pop-os: Add some buttons to my dashboard

This commit is contained in:
Tom Willemse 2025-02-07 08:59:20 -08:00
parent bee8b7008c
commit 986b04aa9a

View file

@ -121,4 +121,21 @@ buffers.")
(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"
(lambda (&rest _)
(browse-url "https://github.com/pulls?q=is%3Aopen+is%3Apr+org%3Ajuked-social+draft%3Afalse+review%3Anone+-author%3Aapp%2Fdependabot"))
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 _)
(browse-url "https://github.com/juked-social/social-api/compare/main...staging"))
default "[" "]")
(,(propertize " " 'display `(image :type svg :file ,(expand-file-name "search.svg" oni-gui-icons-dir) :ascent center :margin (5 . 0))) "chanced" "Unmerged into chanced front-end"
(lambda (&rest _)
(browse-url "https://github.com/juked-social/chanced-frontend/compare/main...staging"))
default "[" "]")
(,(propertize " " 'display `(image :type svg :file ,(expand-file-name "search.svg" oni-gui-icons-dir) :ascent center :margin (5 . 0))) "punt" "Unmerged into punt front-end"
(lambda (&rest _)
(browse-url "https://github.com/juked-social/punt-frontend/compare/main...staging"))
default "[" "]"))))
(setq dashboard-set-navigator t)
(add-hook 'server-after-make-frame-hook #'dashboard-open)