emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

emacs/vc: better feedback from 'SPC g {y,Y}'

Browse source
This commit is contained in:
Henrik Lissner 2019-12-25 15:21:16 -05:00
parent 550c9bda74
commit ac21c09419
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/emacs/vc/autoload/vc.el
View file

@ -19,10 +19,13 @@ the URL."
If a selection is active, highlight them. Otherwise omits the #L<N> suffix in If a selection is active, highlight them. Otherwise omits the #L<N> suffix in
the URL." the URL."
(interactive) (interactive)
(let ((url
(if (or (use-region-p) (if (or (use-region-p)
(ignore-errors (evil-visual-state-p))) (evil-visual-state-p))
(browse-at-remote-kill) (browse-at-remote-get-url)
(kill-new (browse-at-remote--file-url (buffer-file-name))))) (browse-at-remote--file-url (buffer-file-name)))))
(kill-new url)
(message "Copied to clipboard: %S" url)))
(defun +vc--remote-homepage () (defun +vc--remote-homepage ()
@ -40,4 +43,6 @@ the URL."
(defun +vc/browse-at-remote-kill-homepage () (defun +vc/browse-at-remote-kill-homepage ()
"Copy homepage URL of current project to clipboard." "Copy homepage URL of current project to clipboard."
(interactive) (interactive)
(kill-new (+vc--remote-homepage))) (let ((url (+vc--remote-homepage)))
(kill-new url)
(message "Copied to clipboard: %S" url)))