iens

commit cee37954e4d5efc662fe2ea5ea56693a1bc150d0
parent e4ca50101956f44d93faae209ff4e763643b5fb6
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Thu, 27 Aug 2026 17:30:08 +0000

Iens in CGI report link to respective edit page
Diffstat:
M
src/cgi.scm
 | 
14
++++++++------

1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -1007,18 +1007,20 @@ END-OF-CSS
 (define (feed-sig-base)
   (query (map-rows (lambda (row) (append row (build-signature (caddr row)))))
          (sql db "SELECT id,title,selector FROM feed WHERE active=1;")))
+(define (linked-ien n)
+  `(a (@ (href ,(conc "ien/" n))) ,(conc "item #" n)))
 (define (fragment-sig-diff id title diff)
   `((p ,(conc "Feed #" id ": " title))
     (ul ,@(map (lambda (hunk) (cond
                  ((eqv? (car hunk) 'add)
-                   `(li ,(conc "added item #" (cadr hunk)
-                               " at " (rfc-3339 (caddr hunk)))))
+                   `(li "added " ,(linked-ien (cadr hunk))
+                        ,(conc " at " (rfc-3339 (caddr hunk)))))
                  ((eqv? (car hunk) 'del)
-                   `(li ,(conc "removed item #" (cadr hunk)
-                               " at " (rfc-3339 (caddr hunk)))))
+                   `(li "removed " ,(linked-ien (cadr hunk))
+                        ,(conc " at " (rfc-3339 (caddr hunk)))))
                  ((eqv? (car hunk) 'chg)
-                   `(li ,(conc "updated item #" (cadr hunk)
-                               " from " (rfc-3339 (caddr hunk))
+                   `(li "updated " ,(linked-ien (cadr hunk))
+                        ,(conc " from " (rfc-3339 (caddr hunk))
                                " to " (rfc-3339 (cadddr hunk)))))
                  (else `(li ,(conc "malformed hunk: " hunk)))))
                diff))))