2018-07-31 16:33:16 +02:00
|
|
|
;;; emacs/vc/autoload/vc.el -*- lexical-binding: t; -*-
|
2017-02-03 20:29:09 -05:00
|
|
|
|
2019-12-15 01:55:02 -05:00
|
|
|
(defun +vc--remote-homepage ()
|
|
|
|
|
(or (let ((url (browse-at-remote--remote-ref)))
|
|
|
|
|
(cdr (browse-at-remote--get-url-from-remote (car url))))
|
|
|
|
|
(user-error "Can't find homepage for current project")))
|
2017-02-03 20:29:09 -05:00
|
|
|
|
2017-06-10 11:52:07 +02:00
|
|
|
;;;###autoload
|
2019-12-15 01:55:02 -05:00
|
|
|
(defun +vc/browse-at-remote-homepage ()
|
|
|
|
|
"Open homepage for current project in browser."
|
|
|
|
|
(interactive)
|
|
|
|
|
(browse-url (+vc--remote-homepage)))
|
2018-02-07 02:27:06 -05:00
|
|
|
|
2019-12-15 01:55:02 -05:00
|
|
|
;;;###autoload
|
|
|
|
|
(defun +vc/browse-at-remote-kill-homepage ()
|
|
|
|
|
"Copy homepage URL of current project to clipboard."
|
|
|
|
|
(interactive)
|
2019-12-25 15:21:16 -05:00
|
|
|
(let ((url (+vc--remote-homepage)))
|
|
|
|
|
(kill-new url)
|
|
|
|
|
(message "Copied to clipboard: %S" url)))
|
