Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add src path and fix dashboard image

Browse Source
This commit is contained in:
Alexander Rosenberg 2024-12-20 18:59:40 -08:00
parent 6cdd4f6aa3
commit b794eebeb7
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
init.el
View File

@ -51,6 +51,10 @@
((text-mode tex-mode prog-mode) . auto-fill-mode)
((text-mode tex-mode prog-mode) . my/-enable-show-trailing-whitespace))
:init
(with-eval-after-load 'find-func
(when (file-directory-p "~/src/emacs/src/")
(setq find-function-C-source-directory "~/src/emacs/src/")))
(defun my/-enable-show-trailing-whitespace ()
(setq-local show-trailing-whitespace t))
;; (defun my/-emacs-lisp-mode-setup-evil-lookup ()
@ -2471,6 +2475,16 @@ one of the normal rainbow-delimiters-depth-N-face faces."
;; dashboard.el
(use-package dashboard
:config
(defvar-local my/-dashboard-did-fix-image nil
"Weather or not the dashboard image has been fixed in this buffer.")
(defun my/-dashboard-fix-image ()
(unless my/-dashboard-did-fix-image
(dashboard-refresh-buffer)
(setq my/-dashboard-did-fix-image t)))
(defun my/-dashboard-setup-function ()
(add-hook 'window-configuration-change-hook 'my/-dashboard-fix-image nil t))
(add-hook 'dashboard-mode-hook 'my/-dashboard-setup-function)
(set-face-background 'dashboard-banner-logo-title nil)
(dashboard-setup-startup-hook)
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*"))
dashboard-force-refresh t