From 7348ddcc85bec1d21a730cc5fed0b2e9ec17e829 Mon Sep 17 00:00:00 2001 From: nathan Date: Fri, 6 Jun 2025 06:51:18 -0600 Subject: Finished up phlog --- org/blog/generate-phlog.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'org/blog/generate-phlog.scm') diff --git a/org/blog/generate-phlog.scm b/org/blog/generate-phlog.scm index 8d7445b..d48b984 100755 --- a/org/blog/generate-phlog.scm +++ b/org/blog/generate-phlog.scm @@ -16,7 +16,8 @@ (pub-date (cadr (list-ref article 4))) (file (cadr (list-ref article 6)))) (string-append "0" pub-date " - " title "\t" - (format-article-filename file)))) + (format-article-filename file) + "\n"))) (define (make-gophermap articles) (call-with-output-file "gophermap" @@ -24,8 +25,7 @@ (for-each (lambda (article) (if (list? article) - (display (get-gophermap-item (cddr article)) fp) - (newline fp))) + (display (get-gophermap-item (cddr article)) fp))) (cdr (cadr articles)))))) (define (make-blog-file article) -- cgit v1.2.3