awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor browse-at-remote commands

Browse Source
This commit is contained in:
Henrik Lissner
2020-01-11 17:29:16 -05:00
parent 0c9f1b1a9c
commit 5802bd7047
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
modules/emacs/vc/autoload/vc.el
View File

@ -3,15 +3,18 @@
(autoload 'browse-at-remote-get-url "browse-at-remote")
(autoload 'browse-at-remote--file-url "browse-at-remote")
(defun +vc--remote-file-or-region-link ()
(if (or (doom-region-active-p) (not buffer-file-name))
(browse-at-remote-get-url)
(browse-at-remote--file-url (buffer-file-name))))
;;;###autoload
(defun +vc/browse-at-remote-file-or-region ()
"Open the current file at remote in your browser.
If a selection is active, highlight them. Otherwise omits the #L<N> suffix in
the URL."
(interactive)
(if (or (doom-region-active-p) (not buffer-file-name))
(browse-at-remote)
(browse-url (browse-at-remote--file-url (buffer-file-name)))))
(browse-url (+vc--remote-file-or-region-link)))
;;;###autoload
(defun +vc/browse-at-remote-kill-file-or-region ()
@ -19,10 +22,7 @@ the URL."
If a selection is active, highlight them. Otherwise omits the #L<N> suffix in
the URL."
(interactive)
(let ((url
(if (or (doom-region-active-p) (not buffer-file-name))
(browse-at-remote-get-url)
(browse-at-remote--file-url (buffer-file-name)))))
(let ((url (+vc--remote-file-or-region-link)))
(kill-new url)
(message "Copied to clipboard: %S" url)))