[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
How to store list of variable values into another dynamically created va
From: |
miles christopher |
Subject: |
How to store list of variable values into another dynamically created variables |
Date: |
Mon, 4 Jan 2021 14:51:32 +0000 |
I want to store some variables' value into another minor mode temporary variable
for later restore.
Here is my Elisp code, I don't know how to implement it in FIXME and TODO. Hope
some Elisp master help me.
#+begin_src emacs-lisp
(defvar mu4e-marker-icons-marker-list
'(mu4e-headers-seen-mark
mu4e-headers-new-mark
mu4e-headers-unread-mark
mu4e-headers-signed-mark
mu4e-headers-encrypted-mark
mu4e-headers-draft-mark
mu4e-headers-attach-mark
mu4e-headers-passed-mark
mu4e-headers-flagged-mark
mu4e-headers-replied-mark
mu4e-headers-trashed-mark
;; thread prefix marks
mu4e-headers-default-prefix
mu4e-headers-has-child-prefix
mu4e-headers-empty-parent-prefix
mu4e-headers-first-child-prefix
mu4e-headers-duplicate-prefix)
"A list of markers used in mu4e.")
(defun mu4e-marker-icons--store ()
"Store user old config."
(mapcar
(lambda (marker-variable)
;; FIXME:
`(setq
,(intern (replace-regexp-in-string
"mu4e-headers-" "mu4e-marker-icons--"
(symbol-name marker-variable)))
,(symbol-value marker-variable))
)
mu4e-marker-icons-marker-list))
(defun mu4e-marker-icons--restore ()
"Restore user old config."
;; TODO:
(mapcar
(lambda (marker-variable)
;; FIXME:
`(setq
marker-variable
,(symbol-value (intern (replace-regexp-in-string
"mu4e-headers-" "mu4e-marker-icons--"
(symbol-name marker-variable))))))
mu4e-marker-icons-marker-list))
#+end_src
--
[ stardiviner ]
I try to make every word tell the meaning that I want to express.
Blog: https://stardiviner.github.io/
IRC(freenode): stardiviner, Matrix: stardiviner
GPG: F09F650D7D674819892591401B5DF1C95AE89AC3
- How to store list of variable values into another dynamically created variables,
miles christopher <=