Caleb Macdonald Black CalebMacdonaldBlack

CalebMacdonaldBlack / bshep.cljc

Created July 5, 2024 03:04

	(ns io.erical.sandbox.pathom.bshep
	(:require
	[clojure.set :as set]
	[clojure.test :refer :all]
	[com.wsscode.pathom3.connect.indexes :as pci]
	[com.wsscode.pathom3.connect.operation :as pco]
	[com.wsscode.pathom3.interface.eql :as p.eql]
	[datascript.core :as d]))

	(deftest example1

CalebMacdonaldBlack / sadf.txt

Created April 9, 2024 01:51

CalebMacdonaldBlack / foo.txt

Last active April 9, 2024 01:53

asdf

CalebMacdonaldBlack / echo_pretty.sh

Created August 2, 2023 02:33

	#!/bin/bash

	if [ "$(TERM=xterm tput sgr0 2>/dev/null)" ]; then
	export TERM=xterm
	txtund=$(tput sgr 0 1) # Underline
	txtbld=$(tput bold) # Bold
	blu=$(tput setaf 4) # Blue
	grn=$(tput setaf 2) # Green
	red=$(tput setaf 1) # Red
	bldblu=${txtbld}$(tput setaf 4) # Bold Blue

CalebMacdonaldBlack / shadow-cljs.edn

Created September 17, 2022 17:11

Serving shadow-cljs server-side

	{:deps {}
	:builds {:app {:target :browser
	:output-dir "../server/resources/public/assets/js/compiled"
	:asset-path "/assets/js/compiled"
	:devtools {:watch-dir "../server/resources/public"}
	:modules {:app {:entries [com.calebmacdonaldblack.core]}}}}}

CalebMacdonaldBlack / query_check.clj

Created April 11, 2018 04:05 — forked from maxweber/query_check.clj

Checks if a Datomic datalog query contains only allowed symbols / functions.

	(require '[datomic.api :as d]
	'[clojure.string :as str])

	(defn normalize-query
	"Turns a vector formatted Datomic datalog query into a map formatted
	one."
	[query]
	(let [pairs (partition-by keyword? query)]
	(assert (even? (count pairs)))
	(into

CalebMacdonaldBlack / sub_watch.cljs

Last active March 7, 2018 07:12

	(ns whatever.sub-test
	(:require [reagent.core :as r]
	[reagent.ratom :as ratom]
	[re-frame.core :as rf]))

	(def invalidate-form
	(rf/->interceptor
	{:before identity
	:after (fn [{{:keys [:db]} :effects :as ctx}]
	(assoc-in ctx [:effects :db :test-changed] true))}))

CalebMacdonaldBlack / .treehouse

Last active February 2, 2018 05:03 — forked from ErikGartner/.treehouse

dTree Demo

1.3.1

CalebMacdonaldBlack / example.sh

Created November 22, 2017 02:19

Example shell script template/boilerplate

	#!/usr/bin/env bash

	appname=$(basename -s .git `git config --get remote.origin.url`)

	txtund=$(tput sgr 0 1) # Underline
	txtbld=$(tput bold) # Bold
	grn=$(tput setaf 2) # Green
	red=$(tput setaf 1) # Red
	bldgrn=${txtbld}$(tput setaf 2) # Bold Green
	bldred=${txtbld}$(tput setaf 1) # Bold Red