diff --git a/init.el b/init.el index b0ccdeb..4b7bec3 100644 --- a/init.el +++ b/init.el @@ -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