|
@@ -232,7 +232,7 @@
|
|
|
(mldoc/properties? (second
|
|
(mldoc/properties? (second
|
|
|
(remove
|
|
(remove
|
|
|
(fn [[x _]]
|
|
(fn [[x _]]
|
|
|
- (= "Hiccup" (first x)))
|
|
|
|
|
|
|
+ (contains? #{"Hiccup" "Raw_Html"} (first x)))
|
|
|
ast)))))
|
|
ast)))))
|
|
|
(mldoc/properties? (first ast)))
|
|
(mldoc/properties? (first ast)))
|
|
|
lines (string/split-lines content)
|
|
lines (string/split-lines content)
|