Initial commit.

Signed-off-by: Andreas Widen <andreas@harmonicflow.org>

1 files changed, 61 insertions, 0 deletions

diff --git a/apps/blog/templates/tag.scm b/apps/blog/templates/tag.scm
new file mode 100644
index 0000000..865f27a
--- /dev/null
+++ b/apps/blog/templates/tag.scm
@@ -0,0 +1,61 @@
+;;; Harmonic Flow web site
+
+(define-module (apps blog templates tag)
+  #: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 blog utils)
+  #:use-module (apps i18n)
+  #:export (tag-t))
+
+
+(define (tag-t context)
+  "Return a list of blog posts in SHTML with the data in CONTEXT."
+  (let ((tag (context-datum context "tag"))
+	(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 ""))
+                   tag (C_ "webpage title" "Blog"))
+     #:description
+     (G_ (string-append "Blog posts about "
+                        tag
+                        " on Harmonic Flow Blog."))
+     #: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 tag (hfweb-url (tag-url-path tag)))
+           (crumb (G_ (string-append "Page " page-number ""))
+		  (hfweb-url (url-path-join (tag-url-path tag)
+					   "page"
+					   page-number
+					   ""))))
+     #:content
+     `(main
+       (section
+	(@ (class "page centered-text"))
+        (h2 ,(G_ "Blog — ") ,tag
+	    ,(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") tag))))))