Add minor mode
This commit is contained in:
parent
273102a287
commit
2c54424ba5
1 changed files with 14 additions and 4 deletions
|
@ -92,8 +92,7 @@ is added as-is, otherwise it's wrapped in a lambda performing an
|
||||||
(plist-get attrs :function)))))
|
(plist-get attrs :function)))))
|
||||||
persist-state-supported-packages-alist))
|
persist-state-supported-packages-alist))
|
||||||
|
|
||||||
;;;###autoload
|
(defun persist-state--enable ()
|
||||||
(defun persist-state-enable ()
|
|
||||||
"Start saving the Emacs state at the configured interval."
|
"Start saving the Emacs state at the configured interval."
|
||||||
(interactive)
|
(interactive)
|
||||||
(persist-state--enable-packages)
|
(persist-state--enable-packages)
|
||||||
|
@ -103,13 +102,24 @@ is added as-is, otherwise it's wrapped in a lambda performing an
|
||||||
persist-state-wait-idle
|
persist-state-wait-idle
|
||||||
#'persist-state--save-state)))
|
#'persist-state--save-state)))
|
||||||
|
|
||||||
;;;###autoload
|
(defun persist-state--disable ()
|
||||||
(defun persist-state-disable ()
|
|
||||||
(interactive)
|
(interactive)
|
||||||
"Stop saving the Emacs state."
|
"Stop saving the Emacs state."
|
||||||
(when (timerp persist-state--save-state-timer)
|
(when (timerp persist-state--save-state-timer)
|
||||||
(cancel-timer persist-state--save-state-timer)))
|
(cancel-timer persist-state--save-state-timer)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(define-minor-mode persist-state-mode
|
||||||
|
"Create minor mode to enable/disable saving state."
|
||||||
|
:global t
|
||||||
|
:lighter " Persist"
|
||||||
|
|
||||||
|
(cond
|
||||||
|
(persist-state-mode
|
||||||
|
(persist-state--enable))
|
||||||
|
(t
|
||||||
|
(persist-state--disable))))
|
||||||
|
|
||||||
(provide 'persist-state)
|
(provide 'persist-state)
|
||||||
|
|
||||||
;;; persist-state.el ends here
|
;;; persist-state.el ends here
|
||||||
|
|
Loading…
Reference in a new issue