chr15m

(ns screenshots
  (:require ["playwright" :as pw]
            [promesa.core :as p]))

; NOTE: you'll need to npm install `nbb` and `playwright`

(defn wait-for-network-idle [page]
  (p/do
    (.waitForLoadState page "networkidle")
    (p/delay 100)))  ;; Add 100ms delay

plexus

(ns repl-sessions.demo-2021-07
  (:require [lambdaisland.witchcraft :as wc]
            [lambdaisland.witchcraft.cursor :as c]
            [lambdaisland.witchcraft.events :as e]
            [lambdaisland.witchcraft.worlds :as worlds]))

;; First start the server, if you want a clean slate you can create
;; a "superflat" world, otherwise you'll get a more typically generated world.
(wc/start! {;;:server-port 4567
            ;;:config-dir "/tmp/config"

plexus

[{:title ":clojureD 2020",
  :id "PLaSn8eiZ631lrDFmUTBH9LFGzAxc3tvU4",
  :items
  ({:title
    "clojureD 2020: Lightning Talks by Mikkel Gravgaard, Daniel Slutsky, Daniel Janus and Arne Brasseur",
    :id "fVtawjGbvOQ",
    :duration "1363"}
   {:title
    "clojureD 2020: \"From Lazy Lisper to Confident Clojurist\" by Alexander Oloo",
    :id "j57UbYFbI-U",

plexus

(ns interaction.dom-stuff
  (:require [plas.thicc :as thicc]))

(def state (atom {:count 1}))

;; (conj! (thicc/el-by-id "app")
;;        (thicc/dom [:<>
;;                    [:h1 "Count is " (thicc/reatom :count state)]
;;                    [:button {:on-click #(swap! state update :count inc)} "+1"]]))

roman01la

ClojureScript REPL Workflow

Short write up on using REPL when developing UIs in ClojureScript.

Hot-reload on save or Eval in REPL?

Everyone's standard approach to hot-reloading is to use a tool (Figwheel or shadow-cljs) that reloads changed namespaces automatically. This works really well: you change the code, the tool picks up changed files, compiles namespaces and dependants, notifies REPL client which then pulls in compiled changes, and re-runs a function that re-renders UI.

The other approach is to use ClojureScript's REPL directly and rely only on eval from the editor. This more or less matches Clojure style workflow. This approach might be useful when you don't want tools overhead or hot-reloading becomes slow for you or you just used to this style of interactions. Also changing code doesn't always mean that you want to reload all the changes. On the other hand it is very easy to change a couple of top-level forms and forget to eval one of them.

cldwalker

Spike

I looked into the state of GraalVM and Clojure and wrote some small work-related scripts.

GraalVM Build Tools

• Downloaded GraalVM and set $GRAALVM_HOME
• Found two main libraries for building GraalVM CLIs - https://github.com/luchiniatwork/cambada#packaging-as-a-native-image and https://github.com/taylorwood/clj.native-image (or https://github.com/taylorwood/lein-native-image for the lein equivalent). I chose clj.native-image as it seemed more focused on doing one thing well.
• First tried its template example which was easy to follow.
• Then added a graalvm build to one of our small cli tools
• Found it to be pretty straightforward except for a stdout flushing issue that was trivial to fix

roman01la

Abusing constants table in ClojureScript's compiler

In React wrapper library UIx that I'm working on there's defui macro that compiles Hiccup directly into React's VirtualDOM. Apart from doing that the macro also hooks into the compiler to hoist constant parts of VirtualDOM across components and namespaces, so that those parts will be essentially interned (cached).

Here's an example of two components defined in different namespaces where both of them share a part of the structure.

(ns foo.core
  (:require [uix.core.alpha :refer [defui]]))

pesterhazy

ClojureScript Do's and Dont's: clj->js

You should prefer

#js["tag" #js{"k1" v1, "k2" v2}]

over

mfikes

(defn nth' [coll n]
  (transduce (drop n) (completing #(reduced %2)) nil coll))

(defn tree-seq'
  [branch? children root]
    (eduction (take-while some?) (map first)
      (iterate (fn [[node pair]]
                 (when-some [[[node' & r] cont] (if (branch? node)
                                                  (if-some [cs (not-empty (children node))]
                                                    [cs pair]

exupero

(refer-clojure :exclude '[slurp spit])
(import '[java.awt.datatransfer DataFlavor StringSelection Transferable])

(defn clipboard []
  (.getSystemClipboard (java.awt.Toolkit/getDefaultToolkit)))

(defn slurp []
  (try
    (.getTransferData (.getContents (clipboard) nil) (DataFlavor/stringFlavor))
    (catch java.lang.NullPointerException e nil)))