Switching sets of variables

Switching sets of variables

[Sven Bretfeld]

Hi to all

I want to have two sets of different values for the same variables and
switch between these sets.

For example:

,----First set: org-mode settings for my private context
|
|   (defvar org-gtd-file "~/private.org")
|   (setq org-todo-keywords '((type "NEXT" "WAITING" "APPT" "DONE")))
|   (setq org-tag-alist '(("OFFICE" . ?o)
|        	          ("HOME" . ?h)
| 		          ("READING" . ?r)
| 		          ("SHOPPING" . ?s)))
`----

,----Second set: org-mode settings for office organization
| 
|   (defvar org-gtd-file "~/institute.org")
|   (setq org-todo-keywords '((type "PRESENT" "HOLIDAY" "DELEGATED" "DONE")))
|   (setq org-tag-alist '(("ANNE" . ?a)
|        	          ("MARY" . ?m)
| 		          ("JOE" . ?j)
| 		          ("FRED" . ?f)))
| 
`----

I want to have a function that switches between these sets. How could
that be done?

Thanks for help,

Sven

Re: Switching sets of variables

[Andreas Röhler]

Sven Bretfeld wrote:
> Hi to all
> 
> I want to have two sets of different values for the same variables and
> switch between these sets.
> 
> For example:
> 
> ,----First set: org-mode settings for my private context
> |
> |   (defvar org-gtd-file "~/private.org")
> |   (setq org-todo-keywords '((type "NEXT" "WAITING" "APPT" "DONE")))
> |   (setq org-tag-alist '(("OFFICE" . ?o)
> |        	          ("HOME" . ?h)
> | 		          ("READING" . ?r)
> | 		          ("SHOPPING" . ?s)))
> `----
> 
> ,----Second set: org-mode settings for office organization
> | 
> |   (defvar org-gtd-file "~/institute.org")
> |   (setq org-todo-keywords '((type "PRESENT" "HOLIDAY" "DELEGATED" "DONE")))
> |   (setq org-tag-alist '(("ANNE" . ?a)
> |        	          ("MARY" . ?m)
> | 		          ("JOE" . ?j)
> | 		          ("FRED" . ?f)))
> | 
> `----
> 
> I want to have a function that switches between these sets. How could
> that be done?
> 
> Thanks for help,
> 
> Sven
> 
> 
> 


Maybe define a variable, indicating the state

(defvar privat-org nil
  "If privat-org settings are active, otherwise institute-settings.")

then some function setting the vars with setq as you have shown.

(defun my-toggle-var-sets ()
  (interactive)
  (if privat-org
      (my-institute-settings)
    (my-private-settings)))

Both forms should set `privat-org' respectivly.

Andreas

--
https://code.launchpad.net/~a-roehler/python-mode
https://code.launchpad.net/s-x-emacs-werkstatt/

Re: Switching sets of variables

[Stephen Berman]

On Thu, 04 Mar 2010 08:19:12 +0100 Andreas Röhler <andreas.roehler@easy-emacs.de> wrote:

> Sven Bretfeld wrote:
>> Hi to all
>> 
>> I want to have two sets of different values for the same variables and
>> switch between these sets.
>> 
>> For example:
>> 
>> ,----First set: org-mode settings for my private context
>> |
>> |   (defvar org-gtd-file "~/private.org")
>> |   (setq org-todo-keywords '((type "NEXT" "WAITING" "APPT" "DONE")))
>> |   (setq org-tag-alist '(("OFFICE" . ?o)
>> |        	          ("HOME" . ?h)
>> | 		          ("READING" . ?r)
>> | 		          ("SHOPPING" . ?s)))
>> `----
>> 
>> ,----Second set: org-mode settings for office organization
>> | 
>> |   (defvar org-gtd-file "~/institute.org")
>> |   (setq org-todo-keywords '((type "PRESENT" "HOLIDAY" "DELEGATED" "DONE")))
>> |   (setq org-tag-alist '(("ANNE" . ?a)
>> |        	          ("MARY" . ?m)
>> | 		          ("JOE" . ?j)
>> | 		          ("FRED" . ?f)))
>> | 
>> `----
>> 
>> I want to have a function that switches between these sets. How could
>> that be done?
>> 
>> Thanks for help,
>> 
>> Sven
>> 
>> 
>> 
>
>
> Maybe define a variable, indicating the state
>
> (defvar privat-org nil
>   "If privat-org settings are active, otherwise institute-settings.")

Or just use org-gtd-file, since you already have it, e.g.:

(setq org-todo-keywords
      (cond ((string= org-gtd-file (expand-file-name "~/private.org"))
	     '((type "NEXT" "WAITING" "APPT" "DONE")))
	    ((string= org-gtd-file (expand-file-name "~/institute.org"))
	     '((type "PRESENT" "HOLIDAY" "DELEGATED" "DONE")))))

Steve Berman

Re: Switching sets of variables

[Sven Bretfeld]

Stephen Berman <stephen.berman@gmx.net> writes:

>> Sven Bretfeld wrote:

>>> I want to have two sets of different values for the same variables and
>>> switch between these sets.

> Or just use org-gtd-file, since you already have it, e.g.:
>
> (setq org-todo-keywords
>       (cond ((string= org-gtd-file (expand-file-name "~/private.org"))
> 	     '((type "NEXT" "WAITING" "APPT" "DONE")))
> 	    ((string= org-gtd-file (expand-file-name "~/institute.org"))
> 	     '((type "PRESENT" "HOLIDAY" "DELEGATED" "DONE")))))

This would probably also work. Thanks. I did it in the way suggested by
Andreas. 

Greetings,

Sven

Re: Switching sets of variables

[Barry Margolin]

In article <mailman.2244.1267661988.14305.help-gnu-emacs@gnu.org>,
 "Sven Bretfeld" <sven.bretfeld@gmx.ch> wrote:

> Hi to all
> 
> I want to have two sets of different values for the same variables and
> switch between these sets.
> 
> For example:
> 
> ,----First set: org-mode settings for my private context
> |
> |   (defvar org-gtd-file "~/private.org")
> |   (setq org-todo-keywords '((type "NEXT" "WAITING" "APPT" "DONE")))
> |   (setq org-tag-alist '(("OFFICE" . ?o)
> |        	          ("HOME" . ?h)
> | 		          ("READING" . ?r)
> | 		          ("SHOPPING" . ?s)))
> `----
> 
> ,----Second set: org-mode settings for office organization
> | 
> |   (defvar org-gtd-file "~/institute.org")
> |   (setq org-todo-keywords '((type "PRESENT" "HOLIDAY" "DELEGATED" "DONE")))
> |   (setq org-tag-alist '(("ANNE" . ?a)
> |        	          ("MARY" . ?m)
> | 		          ("JOE" . ?j)
> | 		          ("FRED" . ?f)))
> | 
> `----
> 
> I want to have a function that switches between these sets. How could
> that be done?
> 
> Thanks for help,
> 
> Sven

(defvar org-context-alist nil
  "Alist mapping context name to alist of variable->value.")
(add-to-list 'org-context-alist
  '(private . ((org-gtd-file . "~/private.org")
               (org-todo-keywords . ((type "NEXT" "WAITING" "APPT" 
"DONE")))
               (org-tag-alist . (("OFFICE" . ?o)
                                 ("HOME" . ?h)
                                 ("READING" . ?r)
                                 ("SHOPPING" . ?s))))))
(add-to-list 'org-context-alist
  '(office . ((org-gtd-file . "~/institute.org")
              (org-todo-keywords . ((type "PRESENT" "HOLIDAY" 
"DELEGATED" "DONE")))
              (org-tag-alist . (("ANNE" . ?a)
                                ("MARY" . ?m)
                                ("JOE" . ?j)
                                ("FRED" . ?f))))))

(defun set-org-context (context-name)
  "Set all the variables in the entry in org-context-alist corresponding 
to CONTEXT-NAME."
  (loop for (var . val) in (cdr (assq context-name org-context-alist))
        do (setf (symbol-value var) val)))

-- 
Barry Margolin, barmar@alum.mit.edu
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***
*** PLEASE don't copy me on replies, I'll read them in the group ***

RE: Switching sets of variables

[Drew Adams]

> I want to have two sets of different values for the same 
> variables and switch between these sets.

With Bookmark+ you can easily create a variable-list bookmark for each set.
Jumping to such a bookmark just restores that set of variable values.

http://www.emacswiki.org/emacs/BookmarkPlus#FunctionSequenceVarlistBookmarks

Command `bookmarkp-set-varlist-bookmark' prompts you for the variables to save.
They are saved with their current values.

If you want to create such variable sets from Lisp using specified values, you
can use function `bookmarkp-create-varlist-bookmark'. For example:

(bookmarkp-create-varlist-bookmark
 "Var Set #1"         ; NAME
 '(org-gtd-file       ; VARS
   org-todo-keywords
   org-tag-alist)
 '("~/private.org"    ; VALUES
   ((type "NEXT" "WAITING" "APPT" "DONE"))
   (("OFFICE" . ?o) ("HOME" . ?h)
    ("READING" . ?r) ("SHOPPING" . ?s))))