Martin Klepsch martinklepsch

I've been moving my blog to Astro and needed to add a slug property to each file. My files had a permalink that included the slug but I needed just the slug as a standalone property.

✅ Script did exactly what I needed ✨

The prompt

(With my babashka scripting context window attached)

A small babashka script to convert HTML from stdin to hiccup and pretty print it.

I use this inside NeoVim with this config line

command PasteAsHiccup r !pbpaste | html2hiccup

And then whenever I want to paste some HTML as Hiccup I'll do :PasteAsHiccup.

deps.lua is an all-in-one script containing your declarative list of dependencies and installing any missing ones.

Kind of like Clojure's deps.edn except that the dependencies and code to download them are bundled in one package.

add link from file to gist so people can find back to here
add entries to .gitignore if available
? if file ends in .fnl, download fennel.lua and compile to respective .lua file location

Usage in a `fennel` script

Conjure Cheat Sheet

All prefixed by local leader, which is \ in my case.

:disconnect "cd"
:connect-port-file "cf"
:interrupt "ei"
:last-exception "ex"
:view-source "es"

How to `analyze-file` with foreign-lib dependencies?

I'm trying to figure out how to analyze a file that depends on react (via CLJSJS)
Previously cljdoc.org would analyze with *analyze-deps* set to false
With 1.10.439 this no longer works. (Dynamic vars can't be resolved, see old description below)
With *analyze-deps* set to true I need to properly supply the foreign lib information but I can't figure out how.

Solution

When calling cljs.analyzer.api/analyze-file with the state-as-first-arg arity it calls cljs.env/with-compiler-env which shadowed my own binding described in Current Approach section. I was unaware that analyzer.api/empty-state is actually just a compiler env as well so creating the right compiler env and passing it to analyze-file solved all issues:

	{
	"description": "Change caps_lock to command+control+option+shift.",
	"manipulators": [
	{
	"from": {
	"key_code": "caps_lock",
	"modifiers": {
	"optional": [
	"any"
	]

	(ns icebreaker.xstate
	"Convenience methods for working with XState in a ClojureScript app.
	This namespace does not attempt to fully cover every feature of XState.

	Automatically enables the XState inspector when ?xstate-debug URL param is present"
	(:refer-clojure :exclude [send])
	(:require ["@xstate/inspect" :as xstate-inspect]
	["@xstate/react" :as xstate-react]
	["xstate" :as xstate]
	[applied-science.js-interop :as j]

	(ns acme.react-spring
	(:require [rum.core :as rum]
	["react-spring" :as rs]))

	(rum/defc AnimatedDiv < rum/static
	[style child]
	(js/React.createElement rs/animated.div (clj->js style) child))

	(defn use-spring
	[config-map]


	(defn log-lifecyle [component-name]
	(into {}
	(map (fn [lifecycle]
	[lifecycle (fn [state] (js/console.log component-name lifecycle) state)]))
	[:will-mount :will-unmount :did-mount :did-unmount]))

	(rum/defc A < (log-lifecyle :A)
	[]
	[:span "A"])

	(ns dev.boot-sentry
	(:require [boot.util :as util]
	[boot.core :as boot]
	[clojure.data.json :as json]
	[org.httpkit.client :as http]))

	(def sentry-key "abc")
	(def org "my-org")
	(def project "frontend")
	(def test-release "test-release-delete-me")