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

[miles christopher <numbchild@gmail.com>]

This seems a good solution for my purpose. I'm also interested in Stefan's
implementation. I will try both.

Thanks Leo.

Leo Butler <leo.butler@umanitoba.ca> writes:

> 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


-- 
[ 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