mirror of
https://github.com/metosin/reitit.git
synced 2025-12-17 16:31:11 +00:00
32 lines
1.6 KiB
Clojure
32 lines
1.6 KiB
Clojure
|
(ns cljdoc.reaper
|
||
|
|
(:require [clojure.java.io :as io]
|
||
|
|
[clojure.string :as str]))
|
||
|
|
|
||
|
|
(defn reap! []
|
||
|
|
(let [docs (->> (for [line (-> (io/file "./doc/SUMMARY.md") (slurp) (str/split #"\n"))
|
||
|
|
:let [data (-> (re-seq #"^(.*)\* \[(.*)\]\((.*)\)" line) first rest seq)]
|
||
|
|
:when data]
|
||
|
|
(let [[indent name file] data
|
||
|
|
wrap (if (pos? (count indent)) vector identity)]
|
||
|
|
(wrap [name {:file (str "doc/" file)}])))
|
||
|
|
(reduce
|
||
|
|
(fn [acc data]
|
||
|
|
(if (vector? (first data))
|
||
|
|
(update-in acc [(dec (count acc)) 2] (fnil into []) data)
|
||
|
|
(conj acc data))
|
||
|
|
) [])
|
||
|
|
;; third sweep to flatten chids...
|
||
|
|
(mapv (fn [[n o c]] (if c (into [n o] c) [n o]))))
|
||
|
|
data {:cljdoc/include-namespaces-from-dependencies ['metosin/reitit
|
||
|
|
'metosin/reitit-core
|
||
|
|
'metosin/reitit-ring
|
||
|
|
'metosin/reitit-spec
|
||
|
|
'metosin/reitit-schema
|
||
|
|
'metosin/reitit-swagger
|
||
|
|
'metosin/reitit-swagger-ui]
|
||
|
|
:cljdoc.doc/tree docs}]
|
||
|
|
(spit "doc/cljdoc.edn" (with-out-str (clojure.pprint/pprint data)))))
|
||
|
|
|
||
|
|
(comment
|
||
|
|
(reap!))
|