www.metalisp.dev/index.lisp

;;; -*- mode: lisp; coding: utf-8; -*-
;;; Generate the index.html file

(ql:quickload '(:dev.metalisp.sbt :3bmd))

(defpackage :website
  (:use :cl #:ml-sbt)
  (:import-from #:ml-sbt/section
                #:with-section
                #:with-section-row
                #:with-section-col
                #:with-title-bar)
  (:import-from #:ml-sbt/navbar
                #:with-navbar)
  (:import-from #:ml-sbt/list-group
                #:with-list-group)
  (:import-from #:ml-sbt/card
                #:with-card*)
  (:import-from #:ml-sbt/btn
                #:btn))

(in-package :website)

(defvar *lang* "en")

(defparameter *active-projects*
  '((:header "metalisp.sbt"
     :items ("Library of Common Lisp Macros to generate HTML for Bootstrap CSS." "In Active Development" "Common Lisp")
     :url "https://code.metalisp.dev/marcuskammer/dev.metalisp.sbt")
    (:header "metalisp.survey"
     :items ("Create questionnaires and analyze the results." "In Active Development" "Common Lisp")
     :url "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey")
    (:header "metalisp.qmetrics"
     :items ("Calculation engine for questionnaires." "In Active Development" "Common Lisp")
     :url "https://code.metalisp.dev/marcuskammer/dev.metalisp.qmetrics")
    (:header "metalisp.activitystreams"
     :items ("ActivityStreams 2 library" "In Active Development" "Common Lisp")
     :url "https://code.metalisp.dev/marcuskammer/dev.metalisp.activitystreams")
    (:header "emacs dot files"
     :items ("Personal emacs dot files." "In Active Development" "Emacs Lisp")
     :url "https://code.metalisp.dev/marcuskammer/emacs.d")))

(defun md-to-html-string (markdown-string)
  (with-output-to-string (s)
    (3bmd:parse-string-and-print-to-stream markdown-string s)))

(defun md-file-to-html-string (input-file)
  (with-output-to-string (s)
    (3bmd:parse-and-print-to-stream input-file s)))

(with-open-file (ofile "public/index.html" :direction :output :if-exists :supersede)
  (let ((html (with-page (:title "metalisp.dev projects")
                (with-body-header nil "Crafting Software with the Power of Lisp" *lang*
                  (with-navbar nil "metalisp" "/" nil nil))
                (with-body-main nil
                  ;; Introduction
                  (with-section
                    (with-title-bar "About metalisp")
                    (:raw (md-file-to-html-string "introduction.md")))
                  ;; News
                  (with-section
                    (with-title-bar "News")
                    (:raw (md-file-to-html-string "news.md")))
                  ;; Active Projects
                  (with-section
                    (with-title-bar "Active Projects")
                    (with-section-row
                      (dolist (project *active-projects*)
                        (with-card*
                          :card-header (getf project :header)
                          :card-items (getf project :items)
                          :card-body (btn (:url (getf project :url))
                                       (t9n "view-details" *lang*))))))
                  ;; Contact
                  (with-section
                    (with-title-bar "Contact")
                    (with-list-group '(("email: post at metalisp.dev")
                                       ("jabber groupchat: metalisp@conference.mailbox.org")
                                       (:a :rel "me" :href "https://fosstodon.org/@metalisp" "Mastodon"))))))))
    (princ html ofile)))