Skip to content

Commit

Permalink
Remove dead code
Browse files Browse the repository at this point in the history
  • Loading branch information
zampino committed Aug 30, 2023
1 parent ff7ebc2 commit 1452053
Showing 1 changed file with 0 additions and 11 deletions.
11 changes: 0 additions & 11 deletions src/nextjournal/clerk/doc.clj
Original file line number Diff line number Diff line change
Expand Up @@ -124,17 +124,6 @@
#_(ns-tree ns-matches)
#_(ns-tree ())

(defn parent-ns [ns-str]
(when (str/includes? ns-str ".")
(str/join "." (butlast (str/split ns-str #"\.")))))

(defn prepend-parent [nss]
(when-let [parent (parent-ns (first nss))]
(cons parent nss)))

(defn path-to-ns [ns-str]
(last (take-while some? (iterate prepend-parent [ns-str]))))

^{::clerk/visibility {:result :show}}
(clerk/html
(let [matches (try
Expand Down

0 comments on commit 1452053

Please sign in to comment.