Commit 121f83e3 authored by Antoine Martin's avatar Antoine Martin
Browse files

Use foreign C library for markdown (test)

parent e650070e
......@@ -84,8 +84,7 @@
(defun format-readme (readme)
(let ((readme-txt (file-to-string readme)))
(if (string= (pathname-type readme) "md")
(with-output-to-string (out)
(parse-string-and-print-to-stream readme-txt out))
(cmark-markdown-to-html readme-txt (length readme-txt) 0)
(format nil "<pre style=\"white-space: pre-wrap;\">~%~A~%</pre>"
readme-txt))))
......
(asdf:defsystem quickref
:author "Antoine Martin"
:depends-on (:quicklisp :alexandria :net.didierverna.declt
:cl-ppcre :3bmd)
:cl-ppcre :clmark)
:serial t
:components ((:file "quickref")
(:file "qrmapper")
......
......@@ -15,8 +15,8 @@
:join-thread)
(:import-from :cl-ppcre
:regex-replace)
(:import-from :3bmd
:parse-string-and-print-to-stream)
(:import-from :clmark
:cmark-markdown-to-html)
(:export :print-primary-systems
:get-primary-system-name
: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