diff options
| -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) |