iens

commit 84a7f246a6f43ed3a48e3c13d95500da564387c4
parent 0482455e2b346fb83cd6886bdff134cbb8a03677
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sun, 14 Jun 2026 18:27:34 +0000

View listing marked gruiks without comment URL
Diffstat:
M
src/cgi.scm
 | 
19
++++++++++++++++++-

1 file changed, 18 insertions(+), 1 deletion(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -586,7 +586,8 @@ END-OF-CSS
         (style ,css-style))
       (body (h1 ,title)
         (p (a (@ (href "./")) "Latest gruiks")
-           (a (@ (href "deleted")) "Deleted gruiks"))
+           (a (@ (href "deleted")) "Deleted gruiks")
+           (a (@ (href "no-comm")) "Commentless gruiks"))
         ,@(apply query
            (map-rows* row->fragment)
            (sql db q)
@@ -699,6 +700,18 @@ END-OF-CSS
      ORDER BY ptime"
     (conc "://" q "/")))
 
+(define (view-no-comm)
+  (catch-up)
+  (gruik-list-view
+    "Marked gruiks without comment URL"
+    post-fragment
+    '()
+    "SELECT gruik.id,mark,ptime,section,title,url,comment_url,
+            group_concat('#'||name,' ')
+     FROM gruik LEFT OUTER JOIN gruik_tags ON gruik_id=gruik.id
+                LEFT OUTER JOIN tag ON tag_id=tag.id
+     WHERE mark >= 1 AND COALESCE(comment_url,'') = '' GROUP BY gruik.id;"))
+
 (define (view-url-search op q)
   (gruik-list-view
     (conc "Gruks " op " " q)
@@ -988,6 +1001,9 @@ END-OF-CSS
   (sequence* ((_ (char-seq "domains/"))
               (q (as-string (repeated item))))
     (result (lambda () (view-domain-search q)))))
+(define route-no-comm
+  (preceded-by (char-seq "no-comm")
+               (result view-no-comm)))
 (define route-url-search
   (sequence* ((_  (char-seq "url?"))
               (op (any-of (char-seq "glob")
@@ -1026,6 +1042,7 @@ END-OF-CSS
                          route-main
                          route-ok
                          route-new
+                         route-no-comm
                          route-spinner
                          route-url-search
                          route-x-new)))))