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

27
whomp/whomp-dashboard.el
View File

@ -1,16 +1,19 @@
(straight-use-package 'dashboard)
(dashboard-setup-startup-hook)
(use-package dashboard
:straight t
:ensure t
:config
(dashboard-setup-startup-hook)
(setq dashboard-banner-logo-title (whomp/dashboard-build-logo-title whomp-help-lines))
;; "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 initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name)))
(setq dashboard-center-content t)
(setq dashboard-vertically-center-content t)
(setq dashboard-show-shortcuts t)
(setq dashboard-items '((recents . 5)
(setq dashboard-banner-logo-title (whomp/dashboard-build-logo-title whomp-help-lines))
;; "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 initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name)))
(setq dashboard-center-content t)
(setq dashboard-vertically-center-content t)
(setq dashboard-show-shortcuts t)
(setq dashboard-items '((recents . 5)
(agenda . 5)))
(setq dashboard-startupify-list '(dashboard-insert-banner
(setq dashboard-startupify-list '(dashboard-insert-banner
dashboard-insert-newline
dashboard-insert-banner-title
dashboard-insert-newline
@ -21,6 +24,6 @@
dashboard-insert-newline
dashboard-insert-footer))
(message "W.H.O.M.P. Dashboard loaded")
(message "W.H.O.M.P. Dashboard loaded"))
(provide 'whomp-dashboard)
;;; whomp-dashboard.el ends here

6
whomp/whomp-development.el
View File

@ -49,9 +49,9 @@
;; magit
(when (memq 'magitmode whomp-development)
(straight-use-package 'magit)
(straight-use-package 'forge)
(straight-use-package 'magit-todos)
(use-package magit
:straight t
:defer t)
(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 b" 'magit-blame "Git blame (magit entrypoint)")