caranmegil/whompmacs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update to code

Browse Source
This commit is contained in:
William Moore 2024-07-14 04:03:59 -05:00
parent bf5b006f09
commit c2ecfe1ef3
2 changed files with 27 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
whomp/whomp-dashboard.el
View File

@ -1,26 +1,29 @@
(straight-use-package 'dashboard) (use-package dashboard
(dashboard-setup-startup-hook) :straight t
:ensure t
:config
(dashboard-setup-startup-hook)
(setq dashboard-banner-logo-title (whomp/dashboard-build-logo-title whomp-help-lines)) (setq dashboard-banner-logo-title (whomp/dashboard-build-logo-title whomp-help-lines))
;; "Welcome to the W.H.O.M.P. Emacs Dashboard") ;; "Welcome to the W.H.O.M.P. Emacs Dashboard")
(setq dashboard-startup-banner (whomp/random-string-from-list (whomp/list-files-with-extension "~/.emacs.d/logos" "png"))) (setq dashboard-startup-banner (whomp/random-string-from-list (whomp/list-files-with-extension "~/.emacs.d/logos" "png")))
(setq initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name))) (setq initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name)))
(setq dashboard-center-content t) (setq dashboard-center-content t)
(setq dashboard-vertically-center-content t) (setq dashboard-vertically-center-content t)
(setq dashboard-show-shortcuts t) (setq dashboard-show-shortcuts t)
(setq dashboard-items '((recents . 5) (setq dashboard-items '((recents . 5)
(agenda . 5))) (agenda . 5)))
(setq dashboard-startupify-list '(dashboard-insert-banner (setq dashboard-startupify-list '(dashboard-insert-banner
dashboard-insert-newline dashboard-insert-newline
dashboard-insert-banner-title dashboard-insert-banner-title
dashboard-insert-newline dashboard-insert-newline
dashboard-insert-navigator dashboard-insert-navigator
dashboard-insert-newline dashboard-insert-newline
dashboard-insert-init-info dashboard-insert-init-info
dashboard-insert-items dashboard-insert-items
dashboard-insert-newline dashboard-insert-newline
dashboard-insert-footer)) dashboard-insert-footer))
(message "W.H.O.M.P. Dashboard loaded") (message "W.H.O.M.P. Dashboard loaded"))
(provide 'whomp-dashboard) (provide 'whomp-dashboard)
;;; whomp-dashboard.el ends here ;;; whomp-dashboard.el ends here

6
whomp/whomp-development.el
View File

@ -49,9 +49,9 @@
;; magit ;; magit
(when (memq 'magitmode whomp-development) (when (memq 'magitmode whomp-development)
(straight-use-package 'magit) (use-package magit
(straight-use-package 'forge) :straight t
(straight-use-package 'magit-todos) :defer t)
(whomp/add-key-binding "g s" 'magit-status "Git status (magit entrypoint)") (whomp/add-key-binding "g s" 'magit-status "Git status (magit entrypoint)")
(whomp/add-key-binding "g l" 'magit-log "Git log (magit entrypoint)") (whomp/add-key-binding "g l" 'magit-log "Git log (magit entrypoint)")
(whomp/add-key-binding "g b" 'magit-blame "Git blame (magit entrypoint)") (whomp/add-key-binding "g b" 'magit-blame "Git blame (magit entrypoint)")