Permalink
Browse files

Added draft HTML backend.

  • Loading branch information...
1 parent 86729f2 commit e302a590e07ba1928342a6bf9f62dd77c951b8e6 @malcolmsparks committed Jun 22, 2011
Showing with 19 additions and 7 deletions.
  1. +19 −7 src/test/clojure/clj_markdown/test/html.clj
@@ -3,6 +3,7 @@
(:require
[clojure.java.io :as io]
[clojure.zip :as zip]
+ [clojure.contrib.zip-filter :as zipf]
[clojure.contrib.prxml :as prxml]))
@@ -30,6 +31,11 @@
(zip/next)
(zip/edit #(reduce str (interpose " " %))))
+ (= marker :clj-markdown.core/ulist)
+ (->
+ head
+ (zip/replace :ul))
+
(= marker :clj-markdown.core/code-block)
(->
head
@@ -46,11 +52,17 @@
(binding [prxml/*prxml-indent* 4]
(prxml/prxml (emit-html blocks))))
-(pprint
- (emit-html
- (markdown
- (.getResourceAsStream (class System) "/markdown-tests/Markdown Documentation - Basics.text"))))
+(comment
+ (pprint
+ (emit-html
+ (markdown
+ (.getResourceAsStream (class System) "/markdown-tests/Markdown Documentation - Basics.text"))))
+
+ (print-html
+ (markdown
+ (.getResourceAsStream (class System) "/markdown-tests/Markdown Documentation - Basics.text")))
+
+ (pprint
+ (emit-html
+ (markdown (io/file "/home/malcolm/src/clojure-contrib/README.md")))))
-(print-html
- (markdown
- (.getResourceAsStream (class System) "/markdown-tests/Markdown Documentation - Basics.text")))

0 comments on commit e302a59

Please sign in to comment.