Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clo
cl-site
Commits
14d6207b
Commit
14d6207b
authored
Apr 25, 2017
by
Mark
Browse files
Non-functional change to convert relevant comments to documentation strings
parent
c65a5b7f
Changes
1
Hide whitespace changes
Inline
Side-by-side
globals.lisp
View file @
14d6207b
;;;; -*- 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/
template
s/"
)
"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*
())
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment