Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Support markdown conversion (not for GNU CLISP)

  • Loading branch information...
commit 5b36a378621174658ec88179e6a0531fd66e416f 1 parent 70a4f1d
@ichimal authored
Showing with 10 additions and 3 deletions.
  1. +1 −0  asdf-project-helper.asd
  2. +9 −3 asdf-project-helper.lisp
View
1  asdf-project-helper.asd
@@ -12,6 +12,7 @@
:author "SUZUKI Shingo"
:license "MIT"
:description "A project maintenance helper utilities with ASDF"
+ :depends-on (#-clisp :cl-markdown)
:components
((:file "asdf-project-helper")) )
View
12 asdf-project-helper.lisp
@@ -31,10 +31,16 @@
do (princ line ost) (terpri ost) )
t )
+#-clisp
(defmethod convert-to-string ((file-type (eql :markdown))
- (ist stream) (ost stream) )
- (warn "Currently not supported markdown conversion; read as plain text, instead")
- (convert-to-string :plain-text ist ost) )
+ (path pathname) (ost stream) )
+ (markdown:markdown path :stream ost) )
+
+#+clisp
+(defmethod convert-to-string ((file-type (eql :markdown))
+ (path pathname) (ost stream) )
+ (warn "On GNU clisp environment, markdown conversion is not supported.~%We'll read ~s as plain-text, instead.~%" path)
+ (convert-to-string :plain-text path ost) )
(defmacro update-long-description (fname system
&key ((:type ftype) :plain-text))
Please sign in to comment.
Something went wrong with that request. Please try again.