Skip to content

Instantly share code, notes, and snippets.

@dustingetz

dustingetz/hyperfiddle-clojure-ns-browser.md

Last active August 19, 2025 16:31
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save dustingetz/b2a7a5a7af0feed17de5eb73e0444e28 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save dustingetz/b2a7a5a7af0feed17de5eb73e0444e28 to your computer and use it in GitHub Desktop.
Download ZIP
hyperfiddle clojure namespace browser
Raw
hyperfiddle-clojure-ns-browser.md

Clojure namespace browser – Hyperfiddle example app

See source code below.

CleanShot 2025-07-20 at 16 01 40
Raw
z.cljc
(ns dustingetz.namespace-explorer
(:require [hyperfiddle.hfql0 #?(:clj :as :cljs :as-alias) hfql]))
#?(:clj (defn doc [!x] (-> !x meta :doc)))
#?(:clj (defn author [!x] (-> !x meta :author)))
#?(:clj (defn ns-publics2 [ns-sym] (-> ns-sym ns-publics vals)))
#?(:clj (defn var-name [!var] (-> !var symbol name symbol)))
#?(:clj (defn var-arglists [!var] (->> !var meta :arglists vec str)))
#?(:clj (def sitemap
(hfql/sitemap
{all-ns (hfql/props [ns-name doc author] {::hfql/select (ns-publics2 %)})
ns-publics2 (hfql/props [var-name] {::hfql/select (resolve %)})
resolve []})))
#?(:clj (extend-type clojure.lang.Namespace
hfql/Identifiable (-identify [ns] (ns-name ns))
hfql/Suggestable (-suggest [_] (hfql/pull-spec [ns-name ns-publics doc author meta]))))
#?(:clj (extend-type clojure.lang.Var
hfql/Identifiable (-identify [x] (symbol x))
hfql/Suggestable (-suggest [x] (hfql/pull-spec [var-name var-arglists meta]))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment