3 files changed, 16 insertions(+), 0 deletions(-)

M backend.rkt
M frontends/discord.rkt
M interface.rkt

@@ 143,6 143,10 @@
     (define/public (lookup name)
       (db:get-trick db (current-context-id) name))
 
+    (define/public (search re)
+      (filter (λ (n) (regexp-match? re n))
+              (db:list-tricks db (current-context-id))))
+
     (define/public (popular)
       (sort (db:all-tricks db (current-context-id)) cmp-tricks))
 

@@ 501,6 501,13 @@
           " [_name_]:  delete the trick [_name_]; requires ownership or administrator and cannot be undone!"
           (result-case list error-response (send (current-backend) delete name)))
 
+        (define/command (search query)
+          " [_query_]:  list tricks whose names match the Racket pregexp [_query_]"
+          (define tricks (send (current-backend) search (pregexp query)))
+          (if (null? tricks)
+              '("No matching tricks found")
+              (list (string-join (sort tricks) ", "))))
+
         (define/command (popular text)
           ":  show a leaderboard of popular tricks"
           (define leaderboard-size 10)


@@ 555,6 562,7 @@
            "delete" delete-trick
 
            "popular" popular
+           "search" search
            "about" about
            "help" help
            "stats" stats


@@ 580,6 588,7 @@
              ,(format-command-help "delete")
              ""
              ,(format-command-help "popular")
+             ,(format-command-help "search")
              ,(format-command-help "about")
              ,(format-command-help "help")
              ,(format-command-help "stats")

@@ 72,6 72,9 @@
     ;; look up a trick by name
     [lookup   (#;trick string? . ->m . (or/c trick? #f))]
 
+    ;; return list of trick names that match the given regexp
+    [search (regexp? . ->m . (listof string?))]
+
     ;; list the registered tricks, sorted by invocation count
     [popular  (->m (listof (cons/c string? trick?)))]