diff options
Diffstat (limited to 'lib/eos/jao-afio.el')
| -rw-r--r-- | lib/eos/jao-afio.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el index 68c8166..c4445bd 100644 --- a/lib/eos/jao-afio.el +++ b/lib/eos/jao-afio.el @@ -24,6 +24,7 @@ (defvar jao-afio-use-frames (not window-system)) (defvar jao-afio-frame-parameters nil) +(defvar jao-afio-persist-configurations nil) (defvar jao-open-doc-fun 'find-file) (defvar jao-afio-mail-function 'gnus) @@ -47,7 +48,8 @@ (message "Configuration of %s saved" (jao-afio-frame-name c)))) (defun jao-afio-restore-configuration (c) - (when-let ((c (alist-get c (multisession-value jao-afio-configurations)))) + (when-let* ((_ jao-afio-persist-configurations) + (c (alist-get c (multisession-value jao-afio-configurations)))) (window-state-put c) t)) @@ -191,12 +193,12 @@ (let ((c (jao-afio--current-config))) (unless (jao-afio-restore-configuration c) (delete-other-windows) - (cl-case (jao-afio--current-config) + (cl-case c (?w (jao-afio-open-www)) (?g (jao-afio-open-mail)) (?p (jao-afio-open-doc)) (t (jao-afio-trisect))) - (jao-afio-save-configuration)))) + (when jao-afio-persist-configurations (jao-afio-save-configuration))))) ;;; go to frame (defsubst jao-afio--find-frame (c) |