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

Update modules/feature/version-control

Browse source
This commit is contained in:
Henrik Lissner 2017-02-19 18:39:54 -05:00
parent 9b32c8b95e
commit 2f75a81716
4 changed files with 37 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/feature/version-control/autoload.el
View file

@ -3,7 +3,7 @@
;;;###autoload
(defun +vcs-root ()
"Get git url root."
(-when-let (url (car-safe (browse-at-remote--remote-ref buffer-file-name)))
(when-let (url (car-safe (browse-at-remote--remote-ref buffer-file-name)))
(cdr (browse-at-remote--get-url-from-remote url))))
;;;###autoload
@ -17,10 +17,13 @@ Fallback to repository root."
(error
(setq url (shell-command-to-string "hub browse -u --"))
(setq url (if url
(concat (s-trim url) "/" (f-relative (buffer-file-name) (doom-project-root))
(when (use-region-p) (format "#L%s-L%s"
(line-number-at-pos (region-beginning))
(line-number-at-pos (region-end)))))))))
(concat (string-trim url) "/"
(file-relative-name (buffer-file-name)
(doom-project-root))
(when (use-region-p)
(format "#L%s-L%s"
(line-number-at-pos (region-beginning))
(line-number-at-pos (region-end)))))))))
(when url (browse-url url))))
;;;###autoload