😐

Crispin Wellington retrogradeorbit

😐

retrogradeorbit / babashka-depload.clj

Last active October 11, 2022 02:29

add deps dynamically in a babashka script

	;; https://clojurians.slack.com/archives/CLX41ASCS/p1665055449480629?thread_ts=1664969568.562399&cid=CLX41ASCS

	(require '[babashka.deps :as deps])

	(deps/add-deps '{:deps {com.cognitect.aws/endpoints {:mvn/version "1.1.12.206"}
	com.cognitect.aws/s3 {:mvn/version "822.2.1109.0"}
	com.grzm/awyeah-api {:git/url "https://github.com/grzm/awyeah-api"
	:git/sha "0fa7dd51f801dba615e317651efda8c597465af6"}}})

retrogradeorbit / Makefile

Last active May 16, 2024 16:25

Hot loading C wasm into the browser while preserving the state of the heap

	CLANG_DIR = $(HOME)/clang+llvm-13.0.1-x86_64-linux-gnu-ubuntu-18.04
	CLANG = $(CLANG_DIR)/bin/clang
	LLC = $(CLANG_DIR)/bin/llc
	LD = $(CLANG_DIR)/bin/wasm-ld

	C_SRC := $(wildcard src/c/*.c)
	OBJ_SRC := $(patsubst %.c, %.o, $(C_SRC))

	%.o: %.c # delete competing implicit rule

retrogradeorbit / c99.clj

Created March 6, 2022 15:21

babashka C?

	(ns c99
	(:require [clojure.core :as core]
	[clojure.string :as string]))

	(def e' clojure.walk/macroexpand-all)

	(core/defmacro defn [var bindings & body]
	(str (:tag (meta var)) " " var "("
	(->> bindings
	(map (fn [v]

retrogradeorbit / gpg key info

Last active November 27, 2020 11:47

gpg key info

	pub rsa4096 2020-11-27 [SC] [expires: 2023-11-27]
	AF676FA6E9F8595927FBB9CC39246A7C4EC9E959
	uid Crispin Wellington <[email protected]>
	sub rsa4096 2020-11-27 [E] [expires: 2023-11-27]

	gpg: sending key 39246A7C4EC9E959 to hkp://pgp.mit.edu

retrogradeorbit / split-camel-case-test.clj

Created August 1, 2020 16:18

split-camel-case using sequences vs using loop/recur

	(defn split-camel-case-seq [s]
	(let [parts (string/split s #"[a-z][A-Z]")
	word-char-counts (-> (mapv #(+ 2 (count %)) parts)
	(update 0 dec))
	split-points (reductions + 0 word-char-counts)
	from-to (map vector split-points (rest split-points))]
	(map
	(fn [[from to]] (subs s from (min to (count s))))
	from-to)))

retrogradeorbit / net-utls.clj

Last active July 8, 2020 08:46

wait-for-port spire code. extracted from babashka

	(ns net-utils
	(:import [java.net Socket ConnectException]))

	(defn wait-for-port
	"Waits for TCP connection to be available on host and port. Options map
	supports `:timeout` and `:pause`. If `:timeout` is provided and reached,
	`:default`'s value (if any) is returned. The `:pause` option determines
	the time waited between retries."
	([host port]
	(wait-for-port host port nil))

retrogradeorbit / build-acmetool.clj

Last active January 12, 2021 19:43

build new up to date acmetool package on digital ocean droplet

	#!/usr/bin/env spire

	;; spin up a digital ocean droplet
	;; build latest acmetool
	;; patch and update debian package
	;; download acmetool binary and new package
	;; destroy droplet

	;; requirements:
	;; spire 0.1.0-alpha.15 or above

retrogradeorbit / test-do.clj

Created May 20, 2020 03:34

test the digitalocean gist code by making a machine, printing its ip, and then deleting it.

retrogradeorbit / digitalocean.clj

Last active July 8, 2020 08:22

digital ocean API example using spire

	(ns digitalocean
	(:require [spire.modules :refer :all]
	[clojure.data.json :as json]))

	(defn- make-url [suffix & args]
	(apply format (str "https://api.digitalocean.com/v2/" suffix) args))

	(defn request [args]
	(curl (merge {:url (make-url "droplets")
	:headers {:authorization (format "Bearer %s" (System/getenv "DO_TOKEN"))

retrogradeorbit / bumpme

Last active August 18, 2018 14:25

Sat Aug 18 14:25:29 UTC 2018