Commit 407092f7 authored by Erik Huelsmann's avatar Erik Huelsmann

Pass styles as parameter (instead of as a global)

parent 49d2d07e
......@@ -5,5 +5,5 @@
(let ((*output-dir* (or output-dir *output-dir*)))
(format t "Generating site in ~A.~%" *output-dir*)
(process-static)
(process-styles)
(process-styles *styles*)
(process-pages *pages*)))
......@@ -2,14 +2,14 @@
(in-package :cl-site)
;; Copies/renders stylesheets + adds to global context
(defun process-styles ()
(defun process-styles (styles)
(let
((styles-list (mapcar
(lambda (s) (progn
(uiop:copy-file (make-path *STYLES-DIR* s)
(make-path *OUTPUT-DIR* s))
(cons :location s)))
*STYLES*)))
styles)))
(push (cons :styles styles-list) *GLOBAL-CONTEXT*)))
;; Copies/renders static assets (imgs, etc)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment