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

Add Markdown plugin with 3mbd's code highlighting support.

Browse source
This commit is contained in:
Brit Butler 2012-08-22 13:43:17 -04:00
parent 49e1504477
commit 221ea46288
3 changed files with 17 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
TODO
View file

@ -13,8 +13,7 @@ Plugins? Injection support for HEAD and BODY. What about predicate-based injecti
How is it served? Hunchentoot, Lighttpd, S3, whomever! How is it served? Hunchentoot, Lighttpd, S3, whomever!
TODO: TODO:
; after that, focus on markdown support, injections for code highlighting and latex ; test mathjax+markdown
; doc themes and plugins ; doc themes and plugins
; fix plugins: s3 ; fix plugins: s3
;; Incremental compile: only "touched" posts+tags+months. By-20 must be redone, of course. ;; Incremental compile: only "touched" posts+tags+months. By-20 must be redone, of course.

7
plugins/markdown.lisp
View file

@ -1,9 +1,12 @@
(eval-when (:compile-toplevel) (eval-when (:compile-toplevel)
(ql:quickload '3mbd)) (ql:quickload '(3bmd 3bmd-ext-code-blocks)))
(defpackage :coleslaw-md (defpackage :coleslaw-md
(:use :cl :coleslaw)) (:use :cl :coleslaw))
(in-package :coleslaw-md) (in-package :coleslaw-md)
(defmethod render-content (text (format (eql :md)))
(let ((3mbd-code-blocks:*code-blocks* t))
(with-output-to-string (str)
(3bmd:parse-string-and-print-to-stream text str))))

19
src/posts.lisp
View file

@ -48,19 +48,22 @@
(unless (string= (read-line in) ";;;;;") (unless (string= (read-line in) ";;;;;")
(error "The provided file lacks the expected header."))) (error "The provided file lacks the expected header.")))
(parse-field (str) (parse-field (str)
(nth-value 1 (cl-ppcre:scan-to-strings "[a-zA-Z]+: (.*)" str)))) (nth-value 1 (cl-ppcre:scan-to-strings "[a-zA-Z]+: (.*)" str)))
(slurp-remainder ()
(read-sequence (make-string (- (file-length in) (file-position in)))
in :start (file-position in))))
(check-header) (check-header)
(let ((args (loop for field in '("title" "tags" "date" "format") (let ((args (loop for field in '("title" "tags" "date" "format")
for line = (read-line in nil) for line = (read-line in nil)
appending (list (make-keyword (string-upcase field)) appending (list (make-keyword (string-upcase field))
(aref (parse-field line) 0))))) (aref (parse-field line) 0)))))
(check-header) (check-header)
(setf (getf args :tags) (cl-ppcre:split ", " (getf args :tags)) (setf (getf args :tags) (cl-ppcre:split ", " (getf args :tags))
(getf args :format) (make-keyword (string-upcase (getf args :format)))) (getf args :format) (make-keyword (string-upcase (getf args :format))))
(apply 'make-instance 'post (apply 'make-instance 'post
(append args (list :content (render-content (read-line in nil) (append args (list :content (render-content (slurp-remainder)
(getf args :format)) (getf args :format))
:slug (slugify (getf args :title)))))))) :slug (slugify (getf args :title))))))))
(defun write-post (post &key prev next) (defun write-post (post &key prev next)
"Write out the HTML for POST in SLUG.html." "Write out the HTML for POST in SLUG.html."