iens

commit 809cbf288516fda7f23d1e167dd38d45173af99d
parent 88476db5dd011fb383d9f70aed3802b1d7872687
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sun, 12 Jul 2026 16:49:37 +0000

Command `add-entry` with minor source is corrected
Diffstat:
M
src/iens.scm
 | 
8
++++++--

1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/iens.scm b/src/iens.scm
@@ -557,14 +557,18 @@
       (lambda ()
         (let ((source (if (list? spec) (car   spec) '()))
               (title  (if (list? spec) (cadr  spec) '()))
-              (url    (if (list? spec) (caddr spec) spec)))
+              (url    (if (list? spec) (caddr spec) spec))
+              (s-url  (cond ((not (list? spec)) #f)
+                            ((null? (cdddr spec)
+                              (comment-link (car spec) (cadr spec))))
+                            (else (cadddr spec)))))
           (exec (sql db "INSERT INTO entry(url,title,source,source_url,
                                            notes,ctime,mtime)
                          VALUES (?,?,?,?,?,?,?);")
                 url
                 title
                 source
-                (if (null? source) '() (comment-link source url))
+                (if s-url s-url '())
                 notes
                 ctime
                 ctime))