Add copy-to-clipboard support to :gbr & +vc/git-browse

modules/config/default/+evil-commands.el

@@ -70,7 +70,7 @@ command from the current directory instead of the project root."
 ;; GIT
 (ex! "gist"        #'+gist:send)  ; send current buffer/region to gist
 (ex! "gistl"       #'+gist:list)  ; list gists by user
-(ex! "gbrowse"     #'+vc/git-browse)        ; show file in github/gitlab
+(ex! "gbrowse"     #'+vc:git-browse)        ; show file in github/gitlab
 (ex! "gissues"     #'+vc/git-browse-issues) ; show github issues
 (ex! "git"         #'magit-status)           ; open magit status window
 (ex! "gstage"      #'magit-stage)

modules/emacs/vc/autoload/evil.el

@@ -0,0 +1,8 @@
+;;; emacs/vc/autoload/evil.el -*- lexical-binding: t; -*-
+;;;###if (featurep! :feature evil)
+
+;;;###autoload (autoload '+vc:git-browse "emacs/vc/autoload/evil" nil t)
+(evil-define-command +vc:git-browse (bang)
+  "Ex interface to `+vc/git-browse'."
+  (interactive "<!>")
+  (+vc/git-browse bang))

modules/emacs/vc/autoload/vc.el

@@ -1,4 +1,4 @@
-;;; emacs/vc/autoload.el -*- lexical-binding: t; -*-
+;;; emacs/vc/autoload/vc.el -*- lexical-binding: t; -*-
 
 ;;;###autoload
 (defun +vc-git-root-url ()
@@ -13,21 +13,24 @@
 
 (defvar git-link-open-in-browser)
 ;;;###autoload
-(defun +vc/git-browse ()
+(defun +vc/git-browse (arg)
   "Open the website for the current version controlled file. Fallback to
 repository root."
-  (interactive)
+  (interactive "P")
   (require 'git-link)
   (cl-destructuring-bind (beg end)
       (if buffer-file-name (git-link--get-region))
-    (let ((git-link-open-in-browser t))
+    (let ((git-link-open-in-browser (not arg)))
       (git-link (git-link--select-remote) beg end))))
 
 ;;;###autoload
-(defun +vc/git-browse-issues ()
+(defun +vc/git-browse-issues (arg)
   "Open the issues page for current repo."
-  (interactive)
-  (browse-url (format "%s/issues" (+vc-git-root-url))))
+  (interactive "P")
+  (let ((url (format "%s/issues" (+vc-git-root-url))))
+    (if arg
+        (message "%s" (kill-new url))
+      (browse-url url))))
 
 ;;;###autoload
 (defun +vc/git-browse-pulls ()