diff options
Diffstat (limited to 'jakob/builder')
| -rw-r--r-- | jakob/builder/index.scm | 18 | ||||
| -rw-r--r-- | jakob/builder/projects.scm | 33 |
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)))) |