Re: How to store list of variable values into another dynamically created variables

[Leo Butler]

miles christopher <numbchild@gmail.com> writes:

> 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

Since you are trying to rename the variables, why not start with a list
of conses (old . new) rather than a list of variable names?

#+begin_src emacs-lisp
(defvar mu4e-marker-icons-marker-list
  '((mu4e-headers-seen-mark . mu4e-saved-headers-seen-mark)
    (mu4e-headers-new-mark . mu4e-saved-headers-new-mark)
    (mu4e-headers-unread-mark . mu4e-saved-headers-unread-mark)
    (mu4e-headers-signed-mark . mu4e-saved-headers-signed-mark)
    (mu4e-headers-encrypted-mark . mu4e-saved-headers-encrypted-mark)
    (mu4e-headers-draft-mark . mu4e-saved-headers-draft-mark)
    (mu4e-headers-attach-mark . mu4e-saved-headers-attach-mark)
    (mu4e-headers-passed-mark . mu4e-saved-headers-passed-mark)
    (mu4e-headers-flagged-mark . mu4e-saved-headers-flagged-mark)
    (mu4e-headers-replied-mark . mu4e-saved-headers-replied-mark)
    (mu4e-headers-trashed-mark . mu4e-saved-headers-trashed-mark)
    ;; thread prefix marks
    (mu4e-headers-default-prefix . mu4e-saved-headers-default-prefix)
    (mu4e-headers-has-child-prefix . mu4e-saved-headers-has-child-prefix)
    (mu4e-headers-empty-parent-prefix . mu4e-saved-headers-empty-parent-prefix)
    (mu4e-headers-first-child-prefix . mu4e-saved-headers-first-child-prefix)
    (mu4e-headers-duplicate-prefix . mu4e-saved-headers-duplicate-prefix))
  "A list of markers used in mu4e.")

#+end_src

Your save and restore functions are then dead easy:

#+begin_src emacs-lisp
(defun mu4e-save (l)
       (mapcar (lambda(x) (set (cdr x) (symbol-value (car x)))) l))

(defun mu4e-restore (l)
 (let ((lrev (mapcar (lambda(x) (cons (cdr x) (car x))) l)))
       (mu4e-save lrev)))

#+end_src

Leo