Henrik Kjerringvåg hkjels

Copy and paste these values to your Slack settings Sidebar Theme section: #5A80D9,#076570,#62B234,#FFFFFF,#93B3FD,#FFFFFF,#62B234,#F15340,#475FA1,#FFFFFF

Below is the high-level structure of Design in Practice by Rich Hickey (2023). The talk gives a concrete description of some tools and processes he and his team use for designing things.

Rich says that he believes very strongly that if you take this kind of rigorous approach to doing design, then the thing you make will be smaller and more general due to having designed it.

How do you measure progress in the design process? In programming, progress can be measured by the accretion of functionality. In design, progress can be measured by the accretion of understanding.

Techniques

Glossary
- Example
- Carefully choosing words that have the meaning you intend helps everybody come to a shared understanding. Precision in naming yields precision in thinking.

	(ns test.html
	(:require [clojure.spec :as s]
	[clojure.string :as string])
	(:require-macros [cljs.spec :as s]))

	(def non-closing-elements
	#{:area :base :br :col :command
	:embed :hr :img :input :link
	:meta :keygen :param :source
	:track :wbr})

	(set-env!
	:target-path "target"
	:source-paths #{"src"}
	:dependencies '[[org.clojure/clojure "1.9.0-RC1"]
	[org.clojure/clojurescript "1.9.946"]
	[figwheel-sidecar "0.5.14"]])

	(require '[figwheel-sidecar.repl-api :as ra])

	(deftask cljs-repl []

	;; There is still a ton of work to do wrt to formatting, testing, and improving examples,
	;; but here's a proof-of-concept of Expound printing examples.

	;; 'defn' examples are adapted from "Improving Clojure's Error Messages with Grammars"
	;; https://youtu.be/kt4haSH2xcs?t=10m20s

	;; Changing types
	(defn "foo" [] 1)
	;; -- Example ------------------------
	;; (<f> foo [] 1)

	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

	(require '[clojure.java.io :as io]
	'[clojure.string :as str])

	(defn class->package
	"Implementation by Marco Marini."
	[class-file]
	(with-open [dis (java.io.DataInputStream. (io/input-stream class-file))]
	;; skip first 8 bytes
	(.skipBytes dis 8)
	(let [constant-pool-count (.readUnsignedShort dis)