Markless plugin through cl-markless-plump

This commit is contained in:
Shinmera 2019-08-30 13:09:01 +02:00
parent 82f7a7f309
commit 95e24bbc2d
No known key found for this signature in database
GPG key ID: E12B14478BE4C922

12
plugins/markless.lisp Normal file
View file

@ -0,0 +1,12 @@
(eval-when (:compile-toplevel :load-toplevel)
(ql:quickload 'cl-markless-plump))
(defpackage #:coleslaw-markless
(:use #:cl)
(:export #:enable))
(in-package :coleslaw-markless)
(defmethod render-text (text (format (eql :mess)))
(cl-markless:output text :target NIL :format 'cl-markless-plump:plump))
(defun enable ())