From 90578426ce2d152e39a09889092cb49629ff9bae Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 17 Apr 2016 17:58:32 -0700 Subject: Factor out multiple load-aliases calls. --- aliases.txr | 7 +------ 1 file changed, 1 insertion(+), 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) -- cgit v1.2.3