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 +++--- org/blog/gophermap | 1 - 2 files changed, 3 insertions(+), 4 deletions(-) (limited to 'org/blog') 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) diff --git a/org/blog/gophermap b/org/blog/gophermap index a8106b3..f302dad 100644 --- a/org/blog/gophermap +++ b/org/blog/gophermap @@ -1,4 +1,3 @@ - 0Thu, 05 Jun 2025 08:43:05 GMT - Fuck you RFK articles/fuck-you-rfk.txt 0Sun, 01 Jun 2025 08:13:06 GMT - I have no respect for culture articles/i-have-no-respect.txt 0Fri, 30 May 2025 17:51:59 GMT - Not worth it articles/not-worth-it.txt -- cgit v1.2.3