From e5b09fce009a7ff0d13bca70c2e91b1a68229faa Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 18 Mar 2025 11:14:33 -0700 Subject: pop-os-emacs: Some updates - Add ‘M-n’ and ‘M-p’ key bindings to test buffers. These enable easy navigation between errors. - Add new link to “Conversations” in my dashboard. This is reviews that are open that I've commented on. - Remove PRs going into main from the list of PRs for me to look at. --- oni/home/config/pop-os/emacs.el | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/oni/home/config/pop-os/emacs.el b/oni/home/config/pop-os/emacs.el index 381f93c..acdc488 100644 --- a/oni/home/config/pop-os/emacs.el +++ b/oni/home/config/pop-os/emacs.el @@ -136,15 +136,26 @@ buffers.") (interactive) (artisan--test-internal nil name ignore fail))) (local-set-key (kbd "q") #'bury-buffer) - (local-set-key (kbd "s") (lambda () (interactive) (interrupt-process)))))) + (local-set-key (kbd "s") (lambda () (interactive) (interrupt-process))) + (local-set-key (kbd "M-p") (lambda () + (interactive) + (search-backward " •"))) + (local-set-key (kbd "M-n") (lambda () + (interactive) + (search-forward " •")))))) (require 'dashboard) (dashboard-setup-startup-hook) (run-with-idle-timer 300 t (lambda () (switch-to-buffer dashboard-buffer-name))) (run-at-time "02:00" 86400 #'dashboard-open) -(setq dashboard-navigator-buttons `(((,(propertize " " 'display `(image :type svg :file ,(expand-file-name "search.svg" oni-gui-icons-dir) :ascent center :margin (5 . 0))) "PRs" "Open pull requests" +;;; +(setq dashboard-navigator-buttons `(((,(propertize " " 'display `(image :type svg :file ,(expand-file-name "search.svg" oni-gui-icons-dir) :ascent center :margin (5 . 0))) "Conversations" "Open pull requests" (lambda (&rest _) - (browse-url "https://github.com/pulls?q=is%3Aopen+is%3Apr+org%3Ajuked-social+draft%3Afalse+review%3Anone+-author%3Aapp%2Fdependabot+-base%3Adev")) + (browse-url "https://github.com/pulls?q=commenter%3Atomw-punt+review%3Achanges_requested+is%3Aopen")) + default "[" "]") + (,(propertize " " 'display `(image :type svg :file ,(expand-file-name "search.svg" oni-gui-icons-dir) :ascent center :margin (5 . 0))) "PRs" "Open pull requests" + (lambda (&rest _) + (browse-url "https://github.com/pulls?q=is%3Aopen+is%3Apr+org%3Ajuked-social+draft%3Afalse+review%3Anone+-author%3Aapp%2Fdependabot+-base%3Adev+-base%3Amain")) default "[" "]")) ((,(propertize " " 'display `(image :type svg :file ,(expand-file-name "search.svg" oni-gui-icons-dir) :ascent center :margin (5 . 0))) "back-end" "Unmerged into back-end" (lambda (&rest _) -- cgit v1.3-2-g0d8e