Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
C
cl-site
Project overview
Project overview
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
16
Issues
16
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clo
cl-site
Commits
6c092646
Commit
6c092646
authored
May 11, 2018
by
Mariano Montone
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Output messages on site generation
parent
34f94ae1
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
6 deletions
+8
-6
process.lisp
process.lisp
+8
-6
No files found.
process.lisp
View file @
6c092646
...
...
@@ -52,9 +52,11 @@
output-stream
))))
(
defun
process-pages
()
(
let
((
template-path
(
pathname
(
merge-pathnames
*LAYOUT-DIR*
*DEFAULT-PAGE-TEMPLATE*
))))
(
progn
(
ensure-directories-exist
*OUTPUT-DIR*
)
(
format
t
"Processing pages..~%"
)
(
let
((
template-path
(
pathname
(
merge-pathnames
*LAYOUT-DIR*
*DEFAULT-PAGE-TEMPLATE*
))))
(
ensure-directories-exist
*OUTPUT-DIR*
)
(
loop
for
page
in
*PAGES*
do
(
render-page
page
template-path
)))))
(
format
t
"Generating ~A~%"
(
cdr
(
assoc
:content
page
)))
(
render-page
page
template-path
))
(
format
t
"Done.~%"
)))
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