From 637a678529004f4aa84a2f8f06600d3743a6d02d Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 11 Jan 2018 12:24:33 -0500 Subject: [PATCH] ui/doom-dashboard: fix unchanging default-directory #347 --- modules/ui/doom-dashboard/config.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/modules/ui/doom-dashboard/config.el b/modules/ui/doom-dashboard/config.el index d9e256be3..92a20321f 100644 --- a/modules/ui/doom-dashboard/config.el +++ b/modules/ui/doom-dashboard/config.el @@ -26,6 +26,7 @@ Possible values: nil `default-directory' will never change") ;; +(defvar +doom-dashboard--first t) (defvar +doom-dashboard--last-cwd nil) (defvar +doom-dashboard--width 80) (defvar +doom-dashboard--height 0) @@ -95,10 +96,15 @@ Possible values: (add-hook 'kill-buffer-query-functions #'+doom-dashboard|reload-on-kill) (when (daemonp) (add-hook 'after-make-frame-functions #'+doom-dashboard|make-frame)) - (if (doom-real-buffer-p) - (current-buffer) - (let ((default-directory doom-emacs-dir)) - (+doom-dashboard/open (selected-frame) t)))) + (cond ((doom-real-buffer-p) + (current-buffer)) + (+doom-dashboard--first + (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 () "If this isn't a dashboard buffer, move along, but record its