miniblog

Miniblog: A command-line static blog system in Common Lisp
Log | Files | Refs | README | LICENSE

commit b2d35ce5ad2c5ed3543d8bc898fa9801a9c1f1c6
parent e0f607218e8ed82c3b758b1fa90d5043d8dddaec
Author: Decay <decaydjk@tilde.town>
Date:   Sat,  8 Feb 2020 19:36:25 +0000

Initialize the default template as a top level form

This way it can be packaged in a binary

Diffstat:
Msrc/content.lisp | 13++++++-------
Msrc/miniblog.lisp | 1-
Msrc/packages.lisp | 2+-
3 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/src/content.lisp b/src/content.lisp @@ -1,5 +1,11 @@ (in-package :miniblog.content) +(let ((this-file #.(or *compile-file-truename* *load-truename*))) + (register-emb "default-template" + (make-pathname :name "template" :type "lhtml" + :directory (pathname-directory this-file) + :defaults this-file))) + (defun make-generator (&optional title) (lambda (entries &key year month archive-date-list tz) (execute-emb @@ -14,13 +20,6 @@ :short-date-formatter (miniblog.format:make-short-date-formatter (or tz *default-timezone*)) :long-date-formatter (miniblog.format:make-long-date-formatter (or tz *default-timezone*)))))) -(defun init-generator () - (let ((this-file #.(or *compile-file-truename* *load-truename*))) - (register-emb "default-template" - (make-pathname :name "template" :type "lhtml" - :directory (pathname-directory this-file) - :defaults this-file)))) - (defun year-month-of-entry (entry &key tz) (if (not entry) (error "Entry cannot be nil") diff --git a/src/miniblog.lisp b/src/miniblog.lisp @@ -34,7 +34,6 @@ (uiop:getenv "USER")) (defun make-generator (&optional title) - (miniblog.content:init-generator) (setf *generator* (miniblog.content:make-generator title))) (defun get-index-file-for-path (path) diff --git a/src/packages.lisp b/src/packages.lisp @@ -17,7 +17,7 @@ (defpackage :miniblog.content (:use :cl :local-time :cl-emb) - (:export #:make-generator #:init-generator + (:export #:make-generator #:year-month-of-entry #:year-month-of-latest-entry #:gen-all #:gen-index #:gen-year #:gen-month))