Commit 4fcd31ea authored by Antoine Martin's avatar Antoine Martin
Browse files

Switch markdown processor to cl-markdown

3bmd had a problem with '#' inside of lists, marking them as titles
parent 98957d95
...@@ -85,7 +85,7 @@ ...@@ -85,7 +85,7 @@
(let ((readme-txt (file-to-string readme))) (let ((readme-txt (file-to-string readme)))
(if (string= (pathname-type readme) "md") (if (string= (pathname-type readme) "md")
(with-output-to-string (out) (with-output-to-string (out)
(parse-string-and-print-to-stream readme-txt out)) (markdown readme-txt :stream out :format :html))
(format nil "<pre style=\"white-space: pre-wrap;\">~%~A~%</pre>" (format nil "<pre style=\"white-space: pre-wrap;\">~%~A~%</pre>"
readme-txt)))) readme-txt))))
......
(asdf:defsystem quickref (asdf:defsystem quickref
:author "Antoine Martin" :author "Antoine Martin"
:depends-on (:quicklisp :alexandria :net.didierverna.declt :depends-on (:quicklisp :alexandria :net.didierverna.declt
:cl-ppcre :3bmd) :cl-ppcre :cl-markdown)
:serial t :serial t
:components ((:file "quickref") :components ((:file "quickref")
(:file "qrmapper") (:file "qrmapper")
......
...@@ -7,8 +7,8 @@ ...@@ -7,8 +7,8 @@
:native-namestring) :native-namestring)
(:import-from :cl-ppcre (:import-from :cl-ppcre
:regex-replace) :regex-replace)
(:import-from :3bmd (:import-from :cl-markdown
:parse-string-and-print-to-stream) :markdown)
(:export :print-primary-systems (:export :print-primary-systems
:get-primary-system-name :get-primary-system-name
:from-quickref-dir :from-quickref-dir
......
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