Alex King alexanderjamesking

alexanderjamesking / original.cljs

Created November 26, 2021 10:33

Refactor of re-frame task-list example https://github.com/day8/re-frame/blob/master/examples/todomvc/src/todomvc/views.cljs#L53

	(defn task-list []
	(let [visible-todos @(subscribe [:visible-todos])
	all-complete? @(subscribe [:all-complete?])]
	[:section#main
	[:input#toggle-all
	{:type "checkbox"
	:checked all-complete?
	:on-change #(dispatch [:complete-all-toggle])}]
	[:label
	{:for "toggle-all"}

alexanderjamesking / errors.clj

Created October 7, 2021 20:02 — forked from adambard/errors.clj

An example of functional error handling in clojure.

	(ns example.errors)

	(defn clean-address [params]
	"Ensure (params :address) is present"
	(if (empty? (params :address))
	[nil "Please enter your address"]
	[params nil]))

	(defn clean-email [params]
	"Ensure (params :email) matches @.*"

alexanderjamesking / 00-layer-0.png

Last active December 18, 2020 19:24

Atreus

alexanderjamesking / deferred-errors.clj

Created March 26, 2020 17:40

	(try
	(d/catch (d/chain (throw (ex-info "standard failure" {:type :foo})))
	(fn [e]
	(println "d/catch e" (.getMessage e))))
	(catch Exception e
	(println "try/catch e" (.getMessage e))))

	(try
	(d/catch (d/chain (d/error-deferred (ex-info "deferred error" {:type :bar})))
	(fn [e]

alexanderjamesking / RDF in Turtle to PDF Graph

Created September 15, 2018 10:11 — forked from crstn/RDF in Turtle to PDF Graph

Create a graph visualization from an RDF file using http://librdf.org/raptor/ and http://www.graphviz.org.

rapper -i turtle -o dot model.ttl | dot -Tpdf -omodel.pdf

alexanderjamesking / gist:9ba41dc4c41e1815a2a71a78015e1e3c

Created May 18, 2018 10:49

keybase.md

	### Keybase proof

	I hereby claim:

	* I am alexanderjamesking on github.
	* I am ajking (https://keybase.io/ajking) on keybase.
	* I have a public key ASD5bNI-pQZ6-aYSsCLkh8HAxsGsr2YevK3WVSSl-3HBmAo

	To claim this, I am signing this object:

alexanderjamesking / spy-example-test.clj

Last active April 29, 2018 09:53

	(ns spy-example.core-test
	(:require [clojure.test :refer [deftest testing is]]
	[spy.core :as spy]))

	(def beatle->email
	{:john "[email protected]"
	:paul "[email protected]"
	:george "[email protected]"
	:ringo "[email protected]"})

alexanderjamesking / spy-example.clj

Created April 28, 2018 14:44

	(def beatle->email
	{:john "[email protected]"
	:paul "[email protected]"
	:george "[email protected]"
	:ringo "[email protected]"})

	(defn lookup-email [beatle-id]
	(get beatle->email beatle-id))

	(defn send-message [email message]

alexanderjamesking / impure->pure-function.clj

Last active April 28, 2018 11:35

	(require '[clojure.test :refer [is]])

	(defn random-beatle []
	(case (rand-int 4)
	0 "John"
	1 "Paul"
	2 "George"
	3 "Ringo"))

	(defn hello-beatle [get-beatle]

alexanderjamesking / impure-function.clj

Last active April 28, 2018 10:07

	(require '[clojure.test :refer [is]])

	(defn random-beatle []
	(case (rand-int 4)
	0 "John"
	1 "Paul"
	2 "George"
	3 "Ringo"))

	(defn hello-beatle []