1 files changed, 28 insertions, 4 deletions
diff --git a/aliases.txr b/aliases.txr
index f6fff50..2f25997 100644
--- a/aliases.txr
+++ b/aliases.txr
@@ -97,11 +97,11 @@
 @(end)
 @;
 @(define update-aliases (userid postdata))
-@  (local memo aliases delaliases)
+@  (local memo aliases selected)
 @  (bind url-args @(split-str postdata "&"))
 @  (next :list url-args)
-@  (collect :vars (delaliases))
-chkbox-@delaliases=on
+@  (collect :vars (selected))
+chkbox-@selected=on
 @  (end)
 @  (next :list url-args)
 @  (gather)
@@ -115,8 +115,32 @@ create=@(skip)
 @    (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 @[set-diff aliases delaliases equal])
+@    (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)
 @  (end)
 @(end)
 @;