notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Parse markdown in docstrings

Browse Source
This commit is contained in:
oakes
2014-03-31 20:10:00 -04:00
parent 7b9b5aef5d
commit 6775b9c377
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
doclet/project.clj
View File

@@ -2,6 +2,7 @@
:description "FIXME: write description" :description "FIXME: write description"
:dependencies [[hiccup "1.0.5"] :dependencies [[hiccup "1.0.5"]
[marginalia "0.7.1"] [marginalia "0.7.1"]
[markdown-clj "0.9.41"]
[org.clojure/clojure "1.6.0"]] [org.clojure/clojure "1.6.0"]]
:source-paths ["src/clojure"] :source-paths ["src/clojure"]
:java-source-paths ["src/java"] :java-source-paths ["src/java"]

5
doclet/src/clojure/play_clj_doclet/html.clj
View File

@@ -1,6 +1,7 @@
(ns play-clj-doclet.html (ns play-clj-doclet.html
(:require [clojure.string :as string] (:require [clojure.string :as string]
[hiccup.core :refer :all])) [hiccup.core :refer :all]
[markdown.core :as m]))
(defn param (defn param
[[type-name param-name]] [[type-name param-name]]
@@ -25,7 +26,7 @@
(for [group groups] (for [group groups]
[:div [:div
[:h2 {} (:name group)] [:h2 {} (:name group)]
(:docstring group) (m/md-to-html-string (:docstring group))
(for [[name items] (:java group)] (for [[name items] (:java group)]
[:div [:div
(when (not= (:name group) name) (when (not= (:name group) name)