From 5969138df724facd88c94d55d485ce9b7e2a3052 Mon Sep 17 00:00:00 2001 From: Guido Günther Date: Sat, 2 Jul 2016 19:56:44 +0200 Subject: Add more open-url helpers TODO: try to guess URL to use from symbol --- debian.el | 30 ++++++++++++++++++++++++++++-- 1 file changed, 28 insertions(+), 2 deletions(-) diff --git a/debian.el b/debian.el index 85b2505..d103451 100644 --- a/debian.el +++ b/debian.el @@ -1,13 +1,39 @@ -(defun xcpu-deb-open-bug () +(defun xcpu-deb-open-bts () "Open the bug under the cursor in the debian bts" (interactive) (let* ( (bounds (bounds-of-thing-at-point 'symbol)) (text (if bounds (buffer-substring (car bounds) (cdr bounds)) - (read-string "Debian Number: "))) + (read-string "Debian Bug Number: "))) (url (concat "http://bugs.debian.org/" text)) ) (browse-url url) )) +(defun xcpu-deb-open-security-tracker () + "Open the symbol under the cursor in the debian security tracker" + (interactive) + (let* ( + (bounds (bounds-of-thing-at-point 'symbol)) + (text (if bounds + (buffer-substring (car bounds) (cdr bounds)) + (read-string "CVE Number: "))) + (url (concat "http://security-tracker.debian.org/" text)) + ) + (browse-url url) + )) + +(defun xcpu-deb-open-tracker () + "Open the symbol under the cursor in the debian package tracker" + (interactive) + (let* ( + (bounds (bounds-of-thing-at-point 'symbol)) + (text (if bounds + (buffer-substring (car bounds) (cdr bounds)) + (read-string "Package name: "))) + (url (concat "http://tracker.debian.org/pkg/" text)) + ) + (browse-url url) + )) + -- cgit v1.2.3