Clean up --mk

This commit is contained in:
Marcus Kammer 2022-05-15 20:57:09 +02:00
parent 762ba05da0
commit 8642e4e0ad
Signed by: marcuskammer
GPG key ID: C374817BE285268F

View file

@ -57,24 +57,9 @@
(interactive "nTransparency Value 0 - 100 opaque: ")
(set-frame-parameter (selected-frame) 'alpha value))
(defun jnf/magit-browse-pull-request ()
"In `magit-log-mode', open the associated pull request at point."
(interactive)
(let* ((remote-url
(car
(git-link--exec "remote" "get-url"
(format "%s" (magit-get-current-remote)))))
(beg (line-beginning-position))
(end (line-end-position))
(region (buffer-substring-no-properties beg end)))
(save-match-data
(and (string-match "(\\#\\([0-9]+\\))$" region)
(browse-url-default-macosx-browser
(concat
(s-replace ".git" "" remote-url)
"/pull/"
(match-string 1 region)))))))
;; (if (display-graphic-p)
;; (add-hook 'after-init-hook (lambda () (org-agenda-list) (me/split-h3)))
;; (org-agenda-list))
(defvar mirror-website
"Locally mirror a website using `wget -mkEpnp <ur>`")