Commit 244e2b7d authored by Dave Cooper's avatar Dave Cooper
Browse files

Updated cl-markdown patch to use metabang-bind as documented.

supports the use of `_` as placeholder in binding list for variables
which you want ignored. `nil` is also supposed to work, but appears
not to in some cases. So this patch changes the use from `nil` to `_`.
parent 2cf375ab
...@@ -43,10 +43,9 @@ ...@@ -43,10 +43,9 @@
(iterate-elements (iterate-elements
headers headers
(lambda (header) (lambda (header)
(bind (((item anchor text) (bind (((_ anchor text)
(item-at-1 (properties header) :anchor)) (item-at-1 (properties header) :anchor))
(save-header-lines (copy-list (lines header)))) (save-header-lines (copy-list (lines header))))
(declare (ignore item))
(setf (slot-value header 'lines) (setf (slot-value header 'lines)
`(,(format nil `(,(format nil
"~&<a href='~a~a' ~@[title='~a'~]>" "~&<a href='~a~a' ~@[title='~a'~]>"
...@@ -62,7 +61,7 @@ ...@@ -62,7 +61,7 @@
(defun render-handle-eval (body) (defun render-handle-eval (body)
;;?? parse out commands and arguments (deal with quoting, etc) ;;?? parse out commands and arguments (deal with quoting, etc)
(bind (((command arguments result processed?) body) (bind (((command arguments result _) body)
(result (result
(cond ((and (member command *render-active-functions*) (cond ((and (member command *render-active-functions*)
(fboundp command)) (fboundp command))
...@@ -72,7 +71,6 @@ ...@@ -72,7 +71,6 @@
(warn "Undefined CL-Markdown function ~s" command)) (warn "Undefined CL-Markdown function ~s" command))
(t (t
nil)))) nil))))
(declare (ignore processed?))
(when result (when result
(output-html (list result)) (output-html (list result))
(setf *magic-space-p* nil) (setf *magic-space-p* nil)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment