Clojurians Log v2

I’ve been using jet ever since it was released and it’s become such a day-to-day part of my toolkit that I don’t even think about it anymore 😄 Thank you @borkdude

cool lib. didn't know it existed til now. "CLI to transform between https://www.json.org/, https://github.com/edn-format/edn, https://yaml.org/ and https://github.com/cognitect/transit-format using Clojure." Link for the curious: https://github.com/borkdude/jet

If you haven't yet, try combining it with @djblue’s Portal... it's a great, great combo!

I’d love to see what Portal adds to Flow-Storm. I find myself only in the Flow-Storm UI. I’d love to see how Portal improves the experience

Well, the data inspection aspect of Portal is nicer than the one currently on Flowstorm. You can make it so that you tap a value on Flowstorm, and it shows up on Portal, for you to navigate it. You can do some other cool stuff on Portal (one thing I found super nice is that you can compose the portal submit function with some arbitrary processing, so for example I made it so that documents I keep on XTDB can be navigated in portal, so clicking anything that looks like a UUID, or corresponds to a key that I know maps to an id, takes me to that object in the DB, but the possibilities are endless, really)

I suspect you could eventually have a Portal instance in a webview inside Flowstorm, with a little hacking.

^ Okay, this is really cool. I’m assuming this is using the datafy/nav protocols for making queries to flesh out the data. I’m using next-jdbc + PG, and I believe next-jdbc already has implementations of datafy/nav on the data it returns. I’ll check if Portal can help me get a “excel” style view of my data.

Yes, basically I do a walk/postwalk on the results, and reify Nav via meta-data

(defn fetch [coll k v]
  (if-let [xx (xt/entity (xt/db node) v)]
    (navify xx)
    v))

(def navigable-keywords #{:xt/id ,,,})

(defn navify[x]
  (walk/postwalk (fn[e]
                   (if (instance? clojure.lang.IObj e)
                     (with-meta e {'clojure.core.protocols/nav
                                   (fn[coll k v]
                                     (if (or (contains? navigable-keywords k)
                                             (uuid/uuidable? v))
                                       (fetch coll k v)
                                       (user/navify v)))})
                     e))
                 x))

node there is bound to an initialized instance of XTDB

you can make it neater, of course

and you could extend String to implement Nav as well (can't do it via meta-data, unfortunately)