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

Fix #4784: browse-at-remote-prefer-symbolic = nil

Browse Source 
+ Default browse-at-remote-prefer-symbolic to nil because a permanent
  URL is generally more desirable for developers sharing links.
+ 'SPC g y' and 'SPC o o' now support the prefix arg, which will negate
  the default value of browse-at-remote-prefer-symbolic for that call.
This commit is contained in:
Henrik Lissner
2021-03-11 13:41:16 -05:00
parent 26319322b2
commit fa4f03de22
4 changed files with 33 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,6 +5,29 @@
(cdr (browse-at-remote--get-url-from-remote (car url))))
(user-error "Can't find homepage for current project")))
(defvar browse-at-remote-prefer-symbolic)
;;;###autoload
(defun +vc/browse-at-remote (&optional arg)
"Open URL to current file (and line if selection is active) in browser.
If prefix ARG, negate the default value of `browse-at-remote-prefer-symbolic'."
(interactive "P")
(let ((browse-at-remote-prefer-symbolic
(if arg
(not browse-at-remote-prefer-symbolic)
browse-at-remote-prefer-symbolic)))
(browse-at-remote)))
;;;###autoload
(defun +vc/browse-at-remote-kill (&optional arg)
"Copy URL to current file (and line if selection is active) to clipboard.
If prefix ARG, negate the default value of `browse-at-remote-prefer-symbolic'."
(interactive "P")
(let ((browse-at-remote-prefer-symbolic
(if arg
(not browse-at-remote-prefer-symbolic)
browse-at-remote-prefer-symbolic)))
(browse-at-remote-kill)))
;;;###autoload
(defun +vc/browse-at-remote-homepage ()
"Open homepage for current project in browser."