Commit 14d6207b authored by Mark's avatar Mark

Non-functional change to convert relevant comments to documentation strings

parent c65a5b7f
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(in-package :cl-site)
;; Location of template files
(defparameter *LAYOUT-DIR* (asdf:system-relative-pathname :cl-site "layout/templates/"))
(defparameter *LAYOUT-DIR* (asdf:system-relative-pathname :cl-site "layout/templates/")
"Pathname for location of template files.")
;; Where generated output should be written to
(defparameter *OUTPUT-DIR* (asdf:system-relative-pathname :cl-site "output/"))
;; Default template to use unless another is explicitly specified.
(defparameter *OUTPUT-DIR* (asdf:system-relative-pathname :cl-site "output/")
"Pathname where the generated output should be written to.")
;; (More template-related variables may go here in the future)
(defparameter *DEFAULT-PAGE-TEMPLATE* "primary.html")
(defparameter *DEFAULT-PAGE-TEMPLATE* "primary.html"
"Default template to use unless another is explicitly specified.")
;; Location and list of styles
;; *STYLES* should be list of strings representing relative filenames.
;; @TO-DO: replace this with better css preprocessing.
(defparameter *STYLES-DIR* (asdf:system-relative-pathname :cl-site "layout/css/"))
(defparameter *STYLES-DIR* (asdf:system-relative-pathname :cl-site "layout/css/")
"Pathname for location and list of styles.")
(defparameter *STYLES*
(list "main.css"))
(list "main.css")
"A list of strings representing relative filenames.")
;; Location & list of pages
;; Each page is an alist containing info to be sent to the template via the context.
;; The only REQUIRED field is :content which must be the filename of the page content
;; The :content field will NOT be sent to the template.
(defparameter *PAGES-DIR* (asdf:system-relative-pathname :cl-site "content/"))
(defparameter *PAGES-DIR* (asdf:system-relative-pathname :cl-site "content/")
"Pathname for location of page content.")
(defparameter *PRIVATE-KEYS* '(:slug :content))
(defparameter *PAGES*
(list
'((:title . "Test Page") (:slug . "test-page") (:content . "testpage.html"))))
'((:title . "Test Page") (:slug . "test-page") (:content . "testpage.html")))
"Each page is an alist containing info to be sent to the template via the context.")
;; Initialize global context (will be appended to all individual page contexts)
;; Used to store things like stylesheets, etc...
(defparameter *GLOBAL-CONTEXT* ())
\ No newline at end of file
(defparameter *GLOBAL-CONTEXT* ())
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