diff options
| author | nathan <nathansmith@disroot.org> | 2025-06-06 06:51:18 -0600 |
|---|---|---|
| committer | nathan <nathansmith@disroot.org> | 2025-06-06 06:51:18 -0600 |
| commit | 7348ddcc85bec1d21a730cc5fed0b2e9ec17e829 (patch) | |
| tree | 7d56f5a35d7101ab78658e71b08704680bed05d0 /org/blog | |
| parent | 484895e052ba88804f470a7cf26961d2f5cc7d0a (diff) | |
Finished up phlog
Diffstat (limited to 'org/blog')
| -rwxr-xr-x | org/blog/generate-phlog.scm | 6 | ||||
| -rw-r--r-- | org/blog/gophermap | 1 |
2 files changed, 3 insertions, 4 deletions
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 |