From 4696a3a839fe8f5cc6a21807bfa7781f282a3f28 Mon Sep 17 00:00:00 2001
From: Jeremy Dormitzer <jeremy.dormitzer@gmail.com>
Date: Wed, 12 Jun 2019 10:34:41 -0400
Subject: [PATCH] Redo blog index page

---
 src/blog/index.html.pm | 25 +++++++++++++------------
 src/index.ptree        |  5 +++--
 src/stylesheet.css.pp  | 13 +++++++++++++
 3 files changed, 29 insertions(+), 14 deletions(-)

diff --git a/src/blog/index.html.pm b/src/blog/index.html.pm
index a0df1ad..00834dc 100644
--- a/src/blog/index.html.pm
+++ b/src/blog/index.html.pm
@@ -1,8 +1,10 @@
 #lang pollen
 
-◊(require pollen/pagetree
+◊(require pollen/core
+          pollen/pagetree
           pollen/file
-          racket/path)
+          racket/path
+	  racket/list)
 
 ◊(define here-path (select-from-metas 'here-path metas))
 ◊(define ptree (get-pagetree (build-path
@@ -14,13 +16,12 @@
 ◊(define (get-posts)
    (children 'blog))
 
-◊for/splice[((post (get-posts)))]{
-    ◊let[((src (get-source (path->string (path->complete-path (symbol->string post))))))]{
-        ◊div{
-	    ◊title{◊(select 'h1 src)}
-	    ◊published-date[(select-from-metas 'published src)]
-	    ◊excerpt[post]
-	    ◊link[#:href (symbol->string post)]{Read more...}
-	}
-    }
-}
\ No newline at end of file
+◊(define (render-post post)
+   (let ((src (get-source (path->string (path->complete-path (symbol->string post))))))
+     (div (title (select 'h1 src))
+          (published-date (select-from-metas 'published src))
+          (excerpt post)
+          (link "Read more..." #:href (symbol->string post)))))
+
+◊(let ((rendered-posts (add-between (map render-post (get-posts)) (divider))))
+   `(div ,@rendered-posts))
diff --git a/src/index.ptree b/src/index.ptree
index 9381fd4..6a9ada6 100644
--- a/src/index.ptree
+++ b/src/index.ptree
@@ -5,5 +5,6 @@ index.html
 ◊`(blog
    ,@(map string->symbol
 	  (remove "index.html"
-		  (filter (lambda (p) (string-suffix? p ".html"))
-			  (map path->string (directory-list "blog"))))))
+		  (map (lambda (s) (substring s 0 (- (string-length s) 3)))
+		       (filter (lambda (p) (string-suffix? p ".html.pm"))
+			       (map path->string (directory-list "blog")))))))
diff --git a/src/stylesheet.css.pp b/src/stylesheet.css.pp
index c24479f..9843571 100644
--- a/src/stylesheet.css.pp
+++ b/src/stylesheet.css.pp
@@ -9,6 +9,7 @@
 ◊(define link-hover-color "midnightblue")
 ◊(define link-visited-color "purple")
 ◊(define nav-hover-color "#707070")
+◊(define divider-color "#EFEFEF")
 
 body {
     height: 100%;
@@ -42,6 +43,18 @@ a {
     text-decoration: none;
 }
 
+img {
+    width: 100%;
+}
+
+hr {
+    background-color: ◊|divider-color|;
+    border-color: ◊|divider-color|;
+    color: ◊|divider-color|;
+    margin-top: 2.5em;
+    margin-bottom: 2.5em;
+}
+
 a:visited {
     color: ◊|link-visited-color|;
 }