diff options
Diffstat (limited to 'org/blog/generate_html.scm')
| -rwxr-xr-x | org/blog/generate_html.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/org/blog/generate_html.scm b/org/blog/generate_html.scm index 2d9baeb..c214ff1 100755 --- a/org/blog/generate_html.scm +++ b/org/blog/generate_html.scm @@ -21,7 +21,7 @@ (define (make-article-list-link article) (let ((title (cadr (list-ref article 0))) (name (cadr (list-ref article 2)))) - (string-append " <li><a href=\"#" name "\">" title "</a></li/>\n"))) + (string-append " <li><a href=\"#" name "\">" title "</a></li>\n"))) ;; Reads the article file and formats some stuff out (define (get-raw-article file) @@ -37,7 +37,7 @@ (pub-date (cadr (list-ref article 4))) (file (cadr (list-ref article 6)))) (string-append - "\n<table border=\"1\" width=\"60%\">\n" + "\n<table border=\"1\" width=\"60%\" bgcolor=\"#bebebe\">\n" " <tr><td><h2 id=\"" name "\">" title "</h2>--- " pub-date "</td></tr>\n" " <tr><td>" (get-raw-article file) " </td></tr>\n" @@ -45,7 +45,7 @@ ;; Generates a html blog from xml data (define (generate-html) - (let ((template (read-entire-file "template.html")) + (let ((template (read-entire-file "template.xhtml")) (article-list "<ul>\n") (article-cards "") (articles (call-with-input-file "articles.xml" |