1 files changed, 56 insertions, 0 deletions
diff --git a/apps/blog/templates/post-list.scm b/apps/blog/templates/post-list.scm
new file mode 100644
index 0000000..c63b01a
--- /dev/null
+++ b/apps/blog/templates/post-list.scm
@@ -0,0 +1,56 @@
+;;; Harmonic Flow web site
+
+(define-module (apps blog templates post-list)
+  #:use-module (apps aux web)
+  #:use-module (apps base templates components)
+  #:use-module (apps base templates theme)
+  #:use-module (apps base types)
+  #:use-module (apps base utils)
+  #:use-module ((apps blog templates components) #:prefix blog:)
+  #:use-module (apps i18n)
+  #:export (post-list-t))
+
+
+(define (post-list-t context)
+  "Return a list of blog posts in SHTML with the data in CONTEXT."
+  (let ((page-number
+	 (number->string (context-datum context "page-number")))
+	(total-pages
+	 (number->string (context-datum context "total-pages"))))
+    (theme
+     #:title (list (G_ (string-append "Page " page-number ""))
+                   (C_ "webpage title" "Blog |"))
+     #:description
+     (G_ "Blog posts about programming and free software.")
+     #:keywords
+     (string-split ;TRANSLATORS: |-separated list of webpage keywords
+      (G_ "Harmonic Flow Blog|HFGE|Free Software|C++|Libre software|Graphics Programming|Vulkan") #\|)
+     #:index? #false
+     #:active-menu-item (C_ "website menu" "Blog")
+     #:css
+     (list (hfweb-url "static/base/css/page.css")
+	   (hfweb-url "static/base/css/item-preview.css")
+	   (hfweb-url "static/base/css/sidebar.css"))
+     #:crumbs
+     (list (crumb (C_ "website menu" "Blog") (hfweb-url "blog/"))
+           (crumb (G_ (string-append "Page " page-number ""))
+		  (hfweb-url (url-path-join "blog"
+					   "page"
+					   page-number
+					   ""))))
+     #:content
+     `(main
+       (section
+	(@ (class "page centered-text"))
+        (h2 (G_ "Blog")
+	    ,(page-indicator (string->number page-number)
+			     (string->number total-pages)))
+
+	(div
+	 (@ (class "sheet"))
+	 ,@(map blog:post-preview (context-datum context "items"))
+	 ,(page-selector (string->number total-pages)
+			 (string->number page-number)
+			 (hfweb-url "blog")))
+
+	,(blog:sidebar (context-datum context "tags")))))))