Projects builder placeholder

2 files changed, 37 insertions, 14 deletions

diff --git a/jakob/builder/index.scm b/jakob/builder/index.scm
index 6706f35..a811425 100644
--- a/jakob/builder/index.scm
+++ b/jakob/builder/index.scm
@@ -17,24 +17,12 @@
 (define-module (jakob builder index)
   #:use-module (haunt artifact)
   #:use-module (haunt html)
-  ;; #:use-module (haunt post)
-  ;; #:use-module (haunt utils)
-  ;; #:use-module (ice-9 format)
-  ;; #:use-module (ice-9 match)
   #:use-module (jakob builder blog)
   #:use-module (jakob theme)
   #:use-module (jakob utils org-mode)
-  ;; #:use-module (jakob utils pagination)
-  ;; #:use-module (jakob utils sxml)
-  ;; #:use-module (jakob utils tags)
-  ;; #:use-module (jakob utils comments)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
-  ;; #:use-module (srfi srfi-19)
-  ;; #:use-module (srfi srfi-26)
-  ;; #:use-module (web uri)
-  #:export (index)
-  )
+  #:export (index))
 
 (define about-me-section
   `(section (@ (id "about-me"))
@@ -54,7 +42,9 @@
       (p "Click a thumbnail to view project details.")
       (div (@ (class "project-grid") (role "list"))
            ,(map (lambda (i)
-                   `(a (@ (class "project-thumb") (role "listitem") (href "#"))
+                   `(a (@ (href "/projects/index.html")
+                          (class "project-thumb")
+                          (role "listitem") )
                        ,(format #f "[ PROJECT ~a ]" i)))
                    (iota 6)))))
            
diff --git a/jakob/builder/projects.scm b/jakob/builder/projects.scm
new file mode 100644
index 0000000..448dbc2
--- /dev/null
+++ b/jakob/builder/projects.scm
@@ -0,0 +1,33 @@
+;;; Copyright © 2019 - 2026 Jakob L. Kreuze <zerodaysfordays@sdf.org>
+;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 3 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program. If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+(define-module (jakob builder projects)
+  #:use-module (haunt artifact)
+  #:use-module (haunt html)
+  #:use-module (jakob theme)
+  #:export (projects))
+
+(define (projects)
+  "Return a Haunt build procedure to create an index page."
+  (lambda (site posts)
+    `(,(serialized-artifact "projects/index.html"
+          (theme #:title "Projects"
+                 ;; #:description (description-from-post post)
+                 ;; #:keywords (post-ref post 'tags)
+                 ;; #:meta (if (not (eof-object? meta-tags)) meta-tags '())
+                 ;; #:scripts (if (not (eof-object? scripts)) scripts '())
+           #:content `((p "Just a placeholder for now!")))
+          sxml->html))))