marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix embarrassing escaping in write-file.

Browse source
This commit is contained in:
Brit Butler 2014-04-28 12:40:42 -04:00
parent 7fc472bb7f
commit 2011da83ad
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/coleslaw.lisp
View file

@ -1,6 +1,6 @@
(in-package :coleslaw) (in-package :coleslaw)
(defun main (&optional config-key) (defun main (&optional (config-key ""))
"Load the user's config file, then compile and deploy the site." "Load the user's config file, then compile and deploy the site."
(load-config config-key) (load-config config-key)
(load-content) (load-content)
@ -93,4 +93,4 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
:if-exists :supersede :if-exists :supersede
:if-does-not-exist :create :if-does-not-exist :create
:external-format '(:utf-8)) :external-format '(:utf-8))
(write page :stream out))) (write page :stream out :escape nil)))

2
src/config.lisp
View file

@ -48,7 +48,7 @@ doesn't exist, use the .coleslawrc in the home directory."
custom-path custom-path
(rel-path (user-homedir-pathname) ".coleslawrc")))) (rel-path (user-homedir-pathname) ".coleslawrc"))))
(defun load-config (&optional (config-key "")) (defun load-config (&optional config-key)
"Load the coleslaw configuration from DIR/.coleslawrc, using CONFIG-KEY "Load the coleslaw configuration from DIR/.coleslawrc, using CONFIG-KEY
if necessary. DIR is ~ by default." if necessary. DIR is ~ by default."
(with-open-file (in (discover-config-path config-key) :external-format '(:utf-8)) (with-open-file (in (discover-config-path config-key) :external-format '(:utf-8))