Simplify opening bugs

1 files changed, 13 insertions, 0 deletions

diff --git a/debian.el b/debian.el
new file mode 100644
index 0000000..85b2505
--- /dev/null
+++ b/debian.el
@@ -0,0 +1,13 @@
+(defun xcpu-deb-open-bug ()
+  "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: ")))
+         (url (concat "http://bugs.debian.org/" text))
+	 )
+    (browse-url url)
+    ))
+