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 | |
| parent | 484895e052ba88804f470a7cf26961d2f5cc7d0a (diff) | |
Finished up phlog
| -rwxr-xr-x | org/blog/generate-phlog.scm | 6 | ||||
| -rw-r--r-- | org/blog/gophermap | 1 | ||||
| -rw-r--r-- | org/gophermap | 18 |
3 files changed, 12 insertions, 13 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 diff --git a/org/gophermap b/org/gophermap index c696d58..62163c6 100644 --- a/org/gophermap +++ b/org/gophermap @@ -4,16 +4,16 @@ iAs of writing this I am in a pissy mode. iIn this world there are lots of reasons to be pissed. iPoorly exported shit from org-mode: -0Visit the linux room linux-room.txt shittyweb.org -0Visit the music room music-room.txt shittyweb.org -0Learn Nathan's philosophy nathans-philosophy.txt shittyweb.org -0Visit the reading corner reading-corner.txt shittyweb.org -0LEARN THE TRUTH truth.txt shittyweb.org -0Tips, tricks, & reviews ttr.txt shittyweb.org +0Visit the linux room linux-room.txt +0Visit the music room music-room.txt +0Learn Nathan's philosophy nathans-philosophy.txt +0Visit the reading corner reading-corner.txt +0LEARN THE TRUTH truth.txt +0Tips, tricks, & reviews ttr.txt -0Arch guide distro-guides/arch.txt shittyweb.org -0Xfce guide distro-guides/xfce.txt shittyweb.org -0Fedora guide distro-guides/fedora.txt shittyweb.org +0Arch guide distro-guides/arch.txt +0Xfce guide distro-guides/xfce.txt +0Fedora guide distro-guides/fedora.txt 1Phlog blog |