Fixed up blog layout

1 files changed, 6 insertions, 5 deletions

diff --git a/org/blog/generate-html.scm b/org/blog/generate-html.scm
index e4a1ad3..11da0a5 100755
--- a/org/blog/generate-html.scm
+++ b/org/blog/generate-html.scm
@@ -38,11 +38,12 @@
         (file (cadr (list-ref article 6))))
     (string-append
      "<br />\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"
-     "</table>\n")))
+     "<div class=\"container\">\n"
+     "  <div class=\"article-header\">\n"
+     "    <h2 id=\"" name "\">" title "</h2>--- " pub-date "\n"
+     "  </div>\n"
+     (get-raw-article file) "\n"
+     "</div>\n")))
 
 ;; Generates a html blog from xml data
 (define (generate-html)