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

ui/doom-dashboard: fix unchanging default-directory #347

Browse source
This commit is contained in:
Henrik Lissner 2018-01-11 12:24:33 -05:00
parent ad06eacdac
commit 637a678529
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -26,6 +26,7 @@ Possible values:
nil `default-directory' will never change") nil `default-directory' will never change")
;; ;;
(defvar +doom-dashboard--first t)
(defvar +doom-dashboard--last-cwd nil) (defvar +doom-dashboard--last-cwd nil)
(defvar +doom-dashboard--width 80) (defvar +doom-dashboard--width 80)
(defvar +doom-dashboard--height 0) (defvar +doom-dashboard--height 0)
@ -95,10 +96,15 @@ Possible values:
(add-hook 'kill-buffer-query-functions #'+doom-dashboard|reload-on-kill) (add-hook 'kill-buffer-query-functions #'+doom-dashboard|reload-on-kill)
(when (daemonp) (when (daemonp)
(add-hook 'after-make-frame-functions #'+doom-dashboard|make-frame)) (add-hook 'after-make-frame-functions #'+doom-dashboard|make-frame))
(if (doom-real-buffer-p) (cond ((doom-real-buffer-p)
(current-buffer) (current-buffer))
(let ((default-directory doom-emacs-dir)) (+doom-dashboard--first
(+doom-dashboard/open (selected-frame) t)))) (prog1
(let ((default-directory doom-emacs-dir))
(+doom-dashboard/open (selected-frame) t))
(setq +doom-dashboard--first nil)))
(t
(+doom-dashboard/open (selected-frame) t))))
(defun +doom-dashboard|reload-on-kill () (defun +doom-dashboard|reload-on-kill ()
"If this isn't a dashboard buffer, move along, but record its "If this isn't a dashboard buffer, move along, but record its