phlog working

1 files changed, 15 insertions, 7 deletions

diff --git a/org/blog/generate-phlog.scm b/org/blog/generate-phlog.scm
index 3b24da5..8d7445b 100755
--- a/org/blog/generate-phlog.scm
+++ b/org/blog/generate-phlog.scm
@@ -4,7 +4,7 @@
 
 (use-modules (sxml simple))
 
-(define (format-gophermap-filename file)
+(define (format-article-filename file)
   (let ((file-length (string-length file)))
     (string-append (substring file
                               0
@@ -15,10 +15,11 @@
   (let ((title (cadr (list-ref article 0)))
         (pub-date (cadr (list-ref article 4)))
         (file (cadr (list-ref article 6))))
-    (string-append "0" pub-date " - " title "\t" file)))
+    (string-append "0" pub-date " - " title "\t"
+                   (format-article-filename file))))
 
 (define (make-gophermap articles)
-  (call-with-output-file "phlog/gophermap"
+  (call-with-output-file "gophermap"
     (lambda (fp)
       (for-each
        (lambda (article)
@@ -27,16 +28,23 @@
              (newline fp)))
        (cdr (cadr articles))))))
 
+(define (make-blog-file article)
+  (let ((file (cadr (list-ref article 6))))
+    (system
+     (string-append "html2text " file " > "
+                    (format-article-filename file)))))
+
 (define (make-blogs articles)
-  '())
+  (for-each
+   (lambda (article)
+     (if (list? article)
+         (make-blog-file (cddr article))))
+   (cdr (cadr articles))))
 
 (define (generate-phlog)
   (call-with-input-file "articles.xml"
     (lambda (fp)
       (let ((articles (xml->sxml fp)))
-        (unless (file-exists? "phlog")
-          (mkdir "phlog")
-          (mkdir "phlog/articles"))
         (make-gophermap articles)
         (make-blogs articles)))))