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

Persist Emacs registers across sessions

Browse source 
Has the side effect of persisting evil macros between
sessions (equivalent to vim's "set viminfo")
This commit is contained in:
Henrik Lissner 2021-02-18 14:51:16 -05:00
parent 28fa854208
commit 79f2f42b95
1 changed files with 19 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

24
core/core-editor.el
View file

@ -297,15 +297,29 @@ or file path may exist now."
savehist-autosave-interval nil ; save on kill only savehist-autosave-interval nil ; save on kill only
savehist-additional-variables savehist-additional-variables
'(kill-ring ; persist clipboard '(kill-ring ; persist clipboard
register-alist ; persist macros
mark-ring global-mark-ring ; persist marks mark-ring global-mark-ring ; persist marks
search-ring regexp-search-ring)) ; persist searches search-ring regexp-search-ring)) ; persist searches
(add-hook! 'savehist-save-hook (add-hook! 'savehist-save-hook
(defun doom-unpropertize-kill-ring-h () (defun doom-savehist-unpropertize-variables-h ()
"Remove text properties from `kill-ring' for a smaller savehist file." "Remove text properties from `kill-ring' for a smaller savehist file."
(setq kill-ring (cl-loop for item in kill-ring (setq kill-ring
if (stringp item) (mapcar #'substring-no-properties
collect (substring-no-properties item) (cl-remove-if-not #'stringp kill-ring))
else if item collect it))))) register-alist
(cl-loop for (reg . item) in register-alist
if (stringp item)
collect (cons reg (substring-no-properties item))
else collect (cons reg item))))
(defun doom-savehist-remove-unprintable-registers-h ()
"Remove unwriteable registers (e.g. containing window configurations).
Otherwise, `savehist' would discard `register-alist' entirely if we don't omit
the unwritable tidbits."
;; Save new value in the temp buffer savehist is running
;; `savehist-save-hook' in. We don't want to actually remove the
;; unserializable registers in the current session!
(setq-local register-alist
(cl-remove-if-not #'savehist-printable register-alist)))))
(use-package! saveplace (use-package! saveplace