From 5f334d9502186871f526ec41a7b86c97066f38fc Mon Sep 17 00:00:00 2001
From: Frederick Muriuki Muriithi
Date: Tue, 11 Feb 2025 14:36:21 -0600
Subject: Add a default page template and styling for genenetwork-like pages.

---
 web/templates/genenetwork.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 web/templates/genenetwork.scm

(limited to 'web/templates')

diff --git a/web/templates/genenetwork.scm b/web/templates/genenetwork.scm
new file mode 100644
index 0000000..64e9852
--- /dev/null
+++ b/web/templates/genenetwork.scm
@@ -0,0 +1,18 @@
+(define-module (web templates genenetwork)
+  #:use-module (web view markdown)
+
+  #:export (default-gn-template))
+
+(define* (default-gn-template path #:optional (title "Default Page Template"))
+  "Render `PATH' with a default template and styling that fits in with
+ GeneNetwork's look and feel."
+  `(html
+    (head
+     (meta (@ (charset "UTF-8")))
+     (meta (@ (name "viewport") (content "width=device-width, initial-scale=1.0")))
+     (title ,title)
+     (link (@ (rel "stylesheet") (type "text/css")
+              (href "/css/gn-template-style.css"))))
+    (body
+     (header (@ (id "header")) (span (@ (id "header-text")) "GeneNetwork"))
+     (main (@ (id "main")) ,(markdown-github->sxml path)))))
-- 
cgit v1.2.3