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

doom/popup-restore: return t on success (and clear history less aggressively)

Browse source
This commit is contained in:
Henrik Lissner 2017-03-01 22:14:21 -05:00
parent 8fa6ba7886
commit 4221bea044
1 changed files with 17 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

29
core/autoload/popups.el
View file

@ -39,21 +39,26 @@ possible rules."
;;;###autoload
(defun doom/popup-restore ()
"Restore the last popups. If the buffers have been killed, and represented
real files, they will be restored. Special buffers or buffers with non-nil
:autokill properties will not be."
"Restore the last open popups. If the buffers have been killed, and
represented real files, they will be restored. Special buffers or buffers with
non-nil :autokill properties will not be.
Returns t if popups were restored, nil otherwise."
(interactive)
(unless doom-popup-history
(error "No popups to restore"))
(dolist (spec doom-popup-history)
(let ((buffer (get-buffer (car spec)))
(path (plist-get (cdr spec) :file))
(rules (plist-get (cdr spec) :rules)))
(when (and (not buffer) path)
(setq buffer (find-file-noselect path t)))
(when buffer
(apply 'doom-popup-buffer buffer rules))))
(setq doom-popup-history '()))
(let (any-p)
(dolist (spec doom-popup-history)
(let ((buffer (get-buffer (car spec)))
(path (plist-get (cdr spec) :file))
(rules (plist-get (cdr spec) :rules)))
(when (and (not buffer) path)
(setq buffer (find-file-noselect path t)))
(when (and buffer (apply 'doom-popup-buffer buffer rules) (not any-p))
(setq any-p t))))
(when any-p
(setq doom-popup-history '()))
any-p))
;;;###autoload
(defun doom/popup-toggle ()