diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-04-17 17:58:32 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-04-17 17:58:32 -0700 |
| commit | 90578426ce2d152e39a09889092cb49629ff9bae (patch) | |
| tree | 5dba0ceb177472765fb04986e6eb02ef0772b133 | |
| parent | 6a6b5f8c096c207943aa2ebddcc7da4364d994c9 (diff) | |
| download | tamarind-90578426ce2d152e39a09889092cb49629ff9bae.tar.gz tamarind-90578426ce2d152e39a09889092cb49629ff9bae.tar.bz2 tamarind-90578426ce2d152e39a09889092cb49629ff9bae.zip | |
Factor out multiple load-aliases calls.
| -rw-r--r-- | aliases.txr | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/aliases.txr b/aliases.txr index 4bc1d75..da16b16 100644 --- a/aliases.txr +++ b/aliases.txr @@ -113,6 +113,7 @@ @ (collect :vars (selected)) chkbox-@selected=on @ (end) +@ (set selected-alias-keys selected) @ (load-aliases userid aliases) @ (next :list url-args) @ (gather) @@ -122,33 +123,27 @@ memo=@memo @ (cases) @ (skip) create=@(skip) -@ (load-aliases userid aliases) @ (do (push (new (alias :random memo (time))) aliases)) @ (store-aliases userid aliases) @ (or) @ (skip) move-up=@(skip) -@ (load-aliases userid aliases) @ (store-aliases userid @[move-up aliases selected]) @ (or) @ (skip) move-down=@(skip) -@ (load-aliases userid aliases) @ (store-aliases userid @[move-down aliases selected]) @ (or) @ (skip) move-top=@(skip) -@ (load-aliases userid aliases) @ (store-aliases userid @[move-front aliases selected]) @ (or) @ (skip) move-bot=@(skip) -@ (load-aliases userid aliases) @ (store-aliases userid @[move-tail aliases selected]) @ (or) @ (skip) delete=@(skip) -@ (load-aliases userid aliases) @ (store-aliases userid @[set-diff aliases selected equal]) @ (or) @ (accept) |