iens

commit eaf1758f70db117b1156833787cf5678143c6236
parent 7f411676e9f533753bd6c607cf7f9bad7be4bb33
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sat,  9 May 2026 15:23:48 +0000

Comment link function is shared
Diffstat:
M
src/cgi.scm
 | 
14
--------------
M
src/common.scm
 | 
17
+++++++++++++++++
M
src/iens.scm
 | 
14
--------------

3 files changed, 17 insertions(+), 28 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -335,20 +335,6 @@ END-OF-CSS
   (write-string location)
   (write-string "\r\n\r\n"))
 
-(define (comment-link section url)
-  (let* ((rss-url  (query fetch-value
-                          (sql db "SELECT url FROM source_rss WHERE name=?;")
-                          section)))
-    (if rss-url
-      (let ((rss (with-input-from-request rss-url #f rss:read)))
-        (let loop ((items (rss:feed-items rss)))
-          (cond
-            ((null? items) #f)
-            ((string=? url (rss:item-link (car items)))
-              (alist-ref 'comments (rss:item-attributes (car items))))
-            (else (loop (cdr items))))))
-      #f)))
-
 (define (auto-descr id)
   (let ((row (query fetch-row
                     (sql db "SELECT section,url FROM gruik
diff --git a/src/common.scm b/src/common.scm
@@ -12,6 +12,23 @@
 ; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 ; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
+;;;;;;;;;;;;;;;;;;;
+;; Misc Utilities
+
+(define (comment-link section url)
+  (let* ((rss-url  (query fetch-value
+                          (sql db "SELECT url FROM source_rss WHERE name=?;")
+                          section)))
+    (if rss-url
+      (let ((rss (with-input-from-request rss-url #f rss:read)))
+        (let loop ((items (rss:feed-items rss)))
+          (cond
+            ((null? items) #f)
+            ((string=? url (rss:item-link (car items)))
+              (alist-ref 'comments (rss:item-attributes (car items))))
+            (else (loop (cdr items))))))
+      #f)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Database Creation/Migration
 
diff --git a/src/iens.scm b/src/iens.scm
@@ -952,20 +952,6 @@
 ;;;;;;;;;;;;;;;;;;;;
 ;; Editor Spawning
 
-(define (comment-link section url)
-  (let* ((rss-url  (query fetch-value
-                          (sql db "SELECT url FROM source_rss WHERE name=?;")
-                          section)))
-    (if rss-url
-      (let ((rss (with-input-from-request rss-url #f rss:read)))
-        (let loop ((items (rss:feed-items rss)))
-          (cond
-            ((null? items) #f)
-            ((string=? url (rss:item-link (car items)))
-              (alist-ref 'comments (rss:item-attributes (car items))))
-            (else (loop (cdr items))))))
-      #f)))
-
 (define (edit-descr* entry-id)
   (let ((file-name (create-temporary-file
                      (string-append "."