AdeAttwood/Dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(emacs): add key binding to open the current pull request in an email

Browse source 
By pushing one key you can now open a PR in your browser. This will work from
your list view or the show view. This makes the email workflow in emacs much
faster.
This commit is contained in:
Ade Attwood 2025-01-21 09:30:31 +00:00
parent 1e6c7f40ef
commit 770ca92c2b
1 changed files with 40 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
site-modules/core/files/emacs/init.el
View file

@ -329,10 +329,46 @@ just in in the current buffer."
:query "query:inbox" :query "query:inbox"
:sort-order oldest-first))) :sort-order oldest-first)))
(evil-define-key 'normal notmuch-search-mode-map (defun aa/notmuch-open-github-link ()
"d" 'aa/notmuch-search-delete) "Open the first GitHub Pull Request or Issue link in the current notmuch message or thread.
(evil-define-key 'visual notmuch-search-mode-map Works in both `notmuch-show-mode` and `notmuch-search-mode`."
"d" 'aa/notmuch-search-delete)) (interactive)
(let (url (original-buffer (current-buffer)))
(cond
;; Handle notmuch-show-mode (email message view)
((eq major-mode 'notmuch-show-mode)
(save-excursion
(goto-char (point-min))
(if (re-search-forward "https://github\\.com/[a-zA-Z0-9_.-]+/[a-zA-Z0-9_.-]+/\\(pull\\|issues\\)/[0-9]+" nil t)
(setq url (match-string 0))
(message "No GitHub link found in the current message."))))
;; Handle notmuch-search-mode (search list view)
((eq major-mode 'notmuch-search-mode)
(let ((message-id (notmuch-search-find-thread-id)))
(when message-id
(save-window-excursion
(with-temp-buffer
(notmuch-show message-id nil nil)
(goto-char (point-min))
(if (re-search-forward "https://github\\.com/[a-zA-Z0-9_.-]+/[a-zA-Z0-9_.-]+/\\(pull\\|issues\\)/[0-9]+" nil t)
(setq url (match-string 0))
(message "No GitHub link found in the thread."))))))))
;; Open the URL in the browser
(if url
(browse-url url)
(message "No GitHub link found."))))
(evil-define-key 'normal notmuch-search-mode-map
"d" 'aa/notmuch-search-delete
"b" 'aa/notmuch-open-github-link)
(evil-define-key 'visual notmuch-search-mode-map
"d" 'aa/notmuch-search-delete)
"b" 'aa/notmuch-open-github-link)
(evil-define-key 'normal notmuch-show-mode-map
"b" 'aa/notmuch-open-github-link)
(defun aa/notmuch-search-inbox () (defun aa/notmuch-search-inbox ()
"Helper function to search for the inbox messages (oldest message first). "Helper function to search for the inbox messages (oldest message first).