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

In my head, all make-symbol/make-keyword things upcase their input. *sigh*

Browse source
This commit is contained in:
Brit Butler 2012-08-21 17:17:43 -04:00
parent 2afde61ad4
commit 1c0a037bac
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/posts.lisp
View file

@ -42,11 +42,11 @@
(check-header)
(let ((args (loop for field in '("title" "tags" "date" "format")
for line = (read-line in nil)
appending (list (make-keyword field)
appending (list (make-keyword (string-upcase field))
(aref (parse-field line) 0)))))
(check-header)
(setf (getf args :tags) (cl-ppcre:split ", " (getf args :tags))
(getf args :format) (make-keyword (getf args :format)))
(getf args :format) (make-keyword (string-upcase (getf args :format))))
(apply 'make-instance 'post
(append args (list :content (read-line in nil)
:slug (slugify (getf args :title))))))))