cripslock

commit 6be6ac9361d33141dff1f2b99f91d787b66d0669
parent cee906bb50fbce36b310a42c6b3cbcd71598c25b
Author: Daniel Barlow <dan@telent.net>
Date:   Mon, 31 Aug 2026 23:08:29 +0100

allowlist the order fields

probably we don't want to have search results ordered by pathname

Diffstat:
M
site.fnl
 | 
4
++++

1 file changed, 4 insertions(+), 0 deletions(-)
diff --git a/site.fnl b/site.fnl
@@ -279,6 +279,9 @@
        names  ["20260102_Magic_DNS.md" "e0b74727-b5b3-4091-92f3-936a758b286b.md"]
        ))))
 
+;; which fields are we allowing to sort result on
+(local order-fields
+       (collect [_ k (ipairs [:date :title :similarity])] (values k k)))
 
 (fn search-posts [posts df { : filter : order : offset : limit &as opts }]
   (let [topics (topics posts)
@@ -296,6 +299,7 @@
             post))]
     (if order
         (let [(field dir) ((pairs order) order)
+              field (or (. order-fields field) :date)
               cmp  (fn [a b]
                      (let [aa (or (. a field) 0)
                            bb (or (. b field) 0)]