1 files changed, 12 insertions, 1 deletions
diff --git a/aliases.txr b/aliases.txr
index 67874c7..895813d 100644
--- a/aliases.txr
+++ b/aliases.txr
@@ -15,9 +15,15 @@
        (url-decode alias.memo))
      (:method get-html-memo (alias)
        (let* ((mem alias.(get-decoded-memo)))
-         (html-encode-with-http mem)))))
+         (html-encode-with-http mem)))
+     (:method match (alias regex)
+       (or [regex alias.(get-decoded-memo)]
+           [regex alias.address]
+           [regex (time-string-local alias.creation-time date-format)]))))
 @;
 @(bind selected-alias-keys nil)
+@(bind search-query "")
+@(bind search-regex nil)
 @;
 @(define mark-aliases (aliases selected))
 @  (do (each ((key selected))
@@ -111,7 +117,12 @@ chkbox-@selected=on
 @  (next :list url-args)
 @  (gather)
 memo=@memo
+query=@query
 @  (end)
+@  (set search-query @(url-decode query))
+@  (set search-regex @(if (equal search-query "")
+                        nil
+                        (ignerr (regex-compile search-query))))
 @  (next :list url-args)
 @  (cases)
 @    (skip)