emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ui/doom-dashboard: minor refactor

Browse source
This commit is contained in:
Henrik Lissner 2017-06-28 16:30:40 +02:00
parent 451f2d6301
commit 8f22c64e80
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 4 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/ui/doom-dashboard/config.el
View file

@ -59,26 +59,21 @@ if in a GUI/non-daemon session."
(defun +doom-dashboard|kill-buffer-query-fn () (defun +doom-dashboard|kill-buffer-query-fn ()
(or (not (+doom-dashboard-p)) (or (not (+doom-dashboard-p))
(ignore (ignore-errors (+doom-dashboard-reload)) (ignore (ignore-errors (+doom-dashboard-reload)))))
(bury-buffer))))
(defun +doom-dashboard|make-frame (frame) (defun +doom-dashboard|make-frame (frame)
"Reload the dashboard after a brief pause. This is necessary for new frames, "Reload the dashboard after a brief pause. This is necessary for new frames,
whose dimensions may not be fully initialized by the time this is run." whose dimensions may not be fully initialized by the time this is run."
(run-with-timer 0.1 nil #'+doom-dashboard/open frame)) (run-with-timer 0.1 nil #'+doom-dashboard/open frame))
(add-hook 'window-setup-hook #'+doom-dashboard|init)
(add-hook 'after-make-frame-functions #'+doom-dashboard|make-frame)
(defun +doom-dashboard|server-visit (&rest _) (defun +doom-dashboard|server-visit (&rest _)
"Inhibit dashboard refresh when opening files via emacsclient." "Inhibit dashboard refresh when opening files via emacsclient."
(setq +doom-dashboard-inhibit-refresh t)) (setq +doom-dashboard-inhibit-refresh t))
(add-hook 'window-setup-hook #'+doom-dashboard|init)
(add-hook 'after-make-frame-functions #'+doom-dashboard|make-frame)
(add-hook 'server-visit-hook #'+doom-dashboard|server-visit) (add-hook 'server-visit-hook #'+doom-dashboard|server-visit)
;; Compatibility with `midnight-mode' and `clean-buffer-list'
(after! midnight-mode
(push +doom-dashboard-name clean-buffer-list-kill-never-buffer-names)
(push "^\\s-*\\*doom.+" clean-buffer-list-kill-never-regexps))
;; ;;
(defun +doom-dashboard/open (frame) (defun +doom-dashboard/open (frame)