From 24d216d2553f5955b919538c049b5ff244a28f30 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Thu, 28 Mar 2024 15:44:58 +0200 Subject: Remove debug prints, improve list style --- feed.scm | 4 ---- 1 file changed, 4 deletions(-) (limited to 'feed.scm') diff --git a/feed.scm b/feed.scm index 5846ece..b51baa5 100644 --- a/feed.scm +++ b/feed.scm @@ -66,15 +66,11 @@ (define (generate-archive-index src-dir archive-subdir) (define archive-dir (make-pathname src-dir archive-subdir)) - (printf "debug archive-dir: ~A~%" archive-dir) - (printf "debug glob: ~A~%" (glob (format "~A/*" archive-dir))) (define paths (pipe (glob (format "~A/*" archive-dir)) (@ filter (@ irregex-search "\\.md$")))) (define fm (map (λ (path) (cons path (read-md-frontmatter path))) paths)) (for-each (@ printf "~A~%") fm) - (printf "debug fm: ~A~%" fm) - (printf "debug list?: ~A~%" (list? fm)) ;; newest first (define (less? a b) (string>? (assocdr 'date (cdr a)) (assocdr 'date (cdr b)))) -- cgit v1.3