Improve doclet behavior

doclet/resources/classes.edn

@@ -131,8 +131,6 @@
  "Material" {"material" :methods
              "material!" :methods}
  "MathUtils" {"math!" :static-methods}
- "MapLayer" {"map-layer" :methods
-             "map-layer!" :methods}
  "Matrix3" {"matrix-3" :methods
             "matrix-3!" :methods}
  "Matrix4" {"matrix-4" :methods

doclet/src/clojure/play_clj_doclet/core.clj

@@ -126,6 +126,8 @@
   (->> (io/file "../src/")
        file-seq
        (filter #(-> % .getName (.endsWith ".clj")))
+       (remove #(contains? #{"physics.clj" "utils.clj"}
+                           (-> % .getName)))
        (sort-by #(.getName %))
        (map #(.getCanonicalPath %))
        (map marg/path-to-doc)
@@ -134,10 +136,8 @@
 
 (defn save
   [parsed-files]
-  (let [dir "doc"]
-    (.mkdir (io/file dir))
-    (->> parsed-files pr-str (spit (io/file "doc.edn")))
-    (html/create dir parsed-files)))
+  (->> parsed-files pr-str (spit (io/file "doc.edn")))
+  (html/create "doc" parsed-files))
 
 (defn parse
   [^RootDoc root]

doclet/src/clojure/play_clj_doclet/html.clj

@@ -4,8 +4,12 @@
             [hiccup.core :refer :all]))
 
 (defn str->filename
-  [s]
-  (-> s
+  [ns s]
+  (-> (or (let [dot-pos (.lastIndexOf ns ".")]
+            (when-not (= dot-pos -1)
+              (subs ns (+ 1 dot-pos))))
+          "core")
+      (str "." s)
       (string/replace "?" "_q")
       (string/replace "->" "_")
       (string/replace ">" "_r")
@@ -20,7 +24,7 @@
              [:div {:class "ns"} ns])
            (for [{:keys [name]} groups]
              [:div {:class "name"}
-              [:a {:href (str->filename name)}
+              [:a {:href (str->filename ns name)}
                name]])))])
 
 (defn java-param
@@ -80,13 +84,14 @@
 
 (defn create
   [dir parsed-files]
+  (.mkdir (io/file dir))
   (copy-from-res dir "main.css")
   (copy-from-res dir "main.js")
   (copy-from-res dir "highlight.css")
   (copy-from-res dir "highlight.js")
-  (doseq [{:keys [groups] :as pf} parsed-files]
+  (doseq [{:keys [ns groups] :as pf} parsed-files]
     (doseq [{:keys [name] :as group} groups]
-      (spit (io/file dir (str->filename name))
+      (spit (io/file dir (str->filename ns name))
             (create-file parsed-files name (content group)))))
   (spit (io/file dir "index.html")
         (create-file parsed-files "play-clj docs" nil)))