[elpa] master c8013c7 053/272: counsel.el (ivy-ffap-url-functions): Add Emacs git repo

[Oleh Krehel]

branch: master
commit c8013c73524a72518f4b368362f9c4a2c6c4e490
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (ivy-ffap-url-functions): Add Emacs git repo
    
    * counsel.el (counsel-emacs-url-p): New defun.
---
 counsel.el |   15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/counsel.el b/counsel.el
index 6c5a283..4a523cb 100644
--- a/counsel.el
+++ b/counsel.el
@@ -515,6 +515,21 @@ When INITIAL-INPUT is non-nil, use it in the minibuffer 
during completion."
                           user repo (substring url 1)))))))
 (add-to-list 'ivy-ffap-url-functions 'counsel-github-url-p)
 
+(defun counsel-emacs-url-p ()
+  "Return a Debbugs issue URL at point."
+  (when (and (looking-at "#[0-9]+")
+             (or
+              (eq (vc-backend (buffer-file-name)) 'Git)
+              (memq major-mode '(magit-commit-mode))))
+    (let ((url (match-string-no-properties 0))
+          (origin (shell-command-to-string
+                   "git remote get-url origin")))
+      (when (string-match "git.sv.gnu.org:/srv/git/emacs.git" origin)
+        (format "http://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s";
+                (substring url 1))))))
+
+(add-to-list 'ivy-ffap-url-functions 'counsel-emacs-url-p)
+
 (defcustom counsel-find-file-ignore-regexp nil
   "A regexp of files to ignore while in `counsel-find-file'.
 These files are un-ignored if `ivy-text' matches them.