last commit was wrongly placed

2026-06-30 12:44:14 +02:00
parent 3903502bf3
commit 26b9fa6f32
2 changed files with 9 additions and 3 deletions
@@ -358,6 +358,11 @@

    (define (log-processed-file base-path path info)
      (dbg-am "processing ~a" path)
+
+      (let ((re #px"Willi Bos"))
+	(when (regexp-match re (path->string path))
+	  (info-am "Hey: ~a - ~a" (basename path) info)))
+
      (if (eq? (hash-ref info 'type) 'dir)
          (set! processed-dirs (+ processed-dirs 1))
          (begin