diff options
Diffstat (limited to 'org/blog/generate-phlog.scm')
| -rwxr-xr-x | org/blog/generate-phlog.scm | 6 |
1 files changed, 3 insertions, 3 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) |