From 8bd7c65290af536307914b200bdb11cd527c64fd Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Sat, 27 Dec 2025 13:23:16 +0200 Subject: Update style --- main.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'main.scm') diff --git a/main.scm b/main.scm index 7dac6b9..fe49af0 100644 --- a/main.scm +++ b/main.scm @@ -13,7 +13,7 @@ (chicken irregex) (chicken sort) (chicken port) - (only srfi-13 string-join) + (only srfi-13 string-join string-prefix?) srfi-18 matchable json @@ -286,7 +286,9 @@ (define (to-li post) (printf "[info] indexing post ") - (define title (assocdr "title" post)) + (define title-raw (assocdr "title" post)) + ;; strip quotes + (define title (if (string-prefix? "\"" title-raw) (substring title-raw 1 (- (string-length title-raw) 1)) title-raw)) (printf "\"~A\"~%" title) (define date (assocdr "date" post)) (define kind (assocdr "kind" post)) @@ -353,7 +355,7 @@ (define work-md-path (make-pathname work-dir "_linklog.md")) (define work-html-path (make-pathname work-dir "_linklog.html")) (define out-path (make-pathname (list out-dir) "linklog.html")) - + (with-output-to-file work-md-path (λ () (print out-md))) -- cgit v1.3