iens

commit ca8d7fafd944bad5e45f61b7078d815a03b530eb
parent fdc5c0e07d67342361a3d10a659c3ed03cec7030
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sun, 27 Sep 2026 17:32:43 +0000

Basic log infrastructure in get-gruiks
Diffstat:
M
src/get-gruiks.scm
 | 
11
+++++++++++

1 file changed, 11 insertions(+), 0 deletions(-)
diff --git a/src/get-gruiks.scm b/src/get-gruiks.scm
@@ -31,6 +31,16 @@
   srfi-19-time
   uri-common)
 
+(define verbosity
+  (let ((var (get-environment-variable "VERBOSE")))
+    (if var
+        (let ((n (string->number var))) (if n n 1))
+        0)))
+(define (write-log n . args)
+  (when (>= verbosity n)
+    (let ((ts (time->string (seconds->local-time) "%H:%M:%S ")))
+      (write-line (apply conc (cons ts args))))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Scheduling primitives
 
@@ -215,6 +225,7 @@
       (else #f))))
 
 (define (process-source deadline name url format last-modified etag)
+  (write-log 1 "Processing source " name)
   (condition-case
     (let ((data (case format ((0) (get-auto url))
                              ((1) (get-atom url last-modified etag))