Skip to content
Browse files

fixed an error about dependency.

  • Loading branch information...
1 parent 183d6aa commit 0c0e9e3f9a0efdf8e0ba4732f5987ac7c106ee1d nitro_idiot committed Oct 10, 2011
Showing with 12 additions and 4 deletions.
  1. +2 −1 clack-doc.asd
  2. +10 −3 src/doc/doc.lisp
View
3 clack-doc.asd
@@ -21,7 +21,8 @@
:cl-annot
:cl-markdown
:cl-emb
- :cl-fad)
+ :cl-fad
+ :xmls)
:components ((:module "src"
:pathname "src/doc"
:components
View
13 src/doc/doc.lisp
@@ -18,7 +18,14 @@
(:import-from :clack.doc.asdf
:ensure-system-loaded)
(:import-from :cl-fad
- :copy-file))
+ :copy-file)
+ (:import-from :xmls
+ :parse)
+ (:import-from :cl-ppcre
+ :scan
+ :regex-replace-all)
+ (:import-from :cl-emb
+ :url-encode))
(in-package :clack.doc)
(cl-annot:enable-annot-syntax)
@@ -47,7 +54,7 @@
:long-description ,(ppcre:regex-replace-all "(<h\\d+>([^<]+))" long-description
(lambda (match whole name)
(format nil "<a name=\"~A\"></a>~A"
- (clack.util.hunchentoot:url-encode name)
+ (cl-emb::url-encode name)
whole))
:simple-calls t)
:toc ,(parse-toc long-description)
@@ -65,6 +72,6 @@
(dotimes (i (* 4 (- (parse-integer (subseq (car tag) 1)) 2)))
(princ " " str))
(princ "- " str)
- (format str "[~A](#~A)" (third tag) (clack.util.hunchentoot:url-encode (third tag)))
+ (format str "[~A](#~A)" (third tag) (cl-emb::url-encode (third tag)))
(fresh-line str)
finally (return (nth-value 1 (markdown (get-output-stream-string str) :stream nil)))))

0 comments on commit 0c0e9e3

Please sign in to comment.
Something went wrong with that request. Please try again.