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 @@ ...@@ -84,8 +84,7 @@
(defun format-readme (readme) (defun format-readme (readme)
(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) (cmark-markdown-to-html readme-txt (length readme-txt) 0)
(parse-string-and-print-to-stream readme-txt out))
(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 :clmark)
:serial t :serial t
:components ((:file "quickref") :components ((:file "quickref")
(:file "qrmapper") (:file "qrmapper")
......
...@@ -15,8 +15,8 @@ ...@@ -15,8 +15,8 @@
:join-thread) :join-thread)
(:import-from :cl-ppcre (:import-from :cl-ppcre
:regex-replace) :regex-replace)
(:import-from :3bmd (:import-from :clmark
:parse-string-and-print-to-stream) :cmark-markdown-to-html)
(: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