Jay Fields jaycfields

jaycfields / in-context.clj

Last active December 15, 2015 15:28

 (defn in-context
   "rebind a var, expecations are run in the defined context"
   {:expectations-options :in-context}
   [work]
   (with-redefs [some-src/a-fn-to-be-rebound (constantly :a-rebound-val)]
     (work)))

jaycfields / toggle_keyword_string.el

Last active December 16, 2015 21:49

	(defun char-at-point ()
	(interactive)
	(buffer-substring-no-properties (point) (+ 1 (point))))

	(defun clj-string-name (s)
	(substring s 1 -1))

	(defun clj-keyword-name (s)
	(substring s 1))

jaycfields / local_jars.clj

Created May 10, 2013 16:04


	;;;; created by David Chelimsky

	(ns leiningen.hooks.expand-resource-paths
	(:use [clojure.java.io :only [as-file]])
	(:import [java.io File])
	(:require [robert.hooke]
	[leiningen.javac]
	[org.satta.glob :as glob]))

jaycfields / compose-with.el

Last active December 17, 2015 06:18

	;;; justification: http://en.wikipedia.org/wiki/%E2%88%98

	(eval-after-load 'clojure-mode
	'(font-lock-add-keywords
	'clojure-mode `(("(\\(comp\\)[[:space:]]"
	(0 (progn (compose-region (match-beginning 1)
	(match-end 1) "∘")
	nil))))))

jaycfields / doseq_let_doseq.clj

Created May 12, 2013 16:09

	(doseq [[printer {:keys [id sub-ids]}] {(partial println "sub1") {:id :A :sub-ids [11 12 13 14]}
	(partial println "sub2") {:id :B :sub-ids [21 22 23 24]}}]
	(let [id-str (name id)]
	(doseq [sub-id sub-ids]
	(printer id-str sub-id))))

	;;; -output-
	;;; sub1 A 11
	;;; sub1 A 12
	;;; sub1 A 13

jaycfields / doseq_multi_bind_let.clj

Created May 12, 2013 16:17

	(doseq [[printer {:keys [id sub-ids]}] {(partial println "sub1") {:id :A :sub-ids [11 12 13 14]}
	(partial println "sub2") {:id :B :sub-ids [21 22 23 24]}}
	sub-id sub-ids]
	(let [id-str (name id)]
	(printer id-str sub-id)))

jaycfields / doseq_multi_bind_with_let_modifier.clj

Created May 12, 2013 16:28

	(doseq [[printer {:keys [id sub-ids]}] {(partial println "sub1") {:id :A :sub-ids [11 12 13 14]}
	(partial println "sub2") {:id :B :sub-ids [21 22 23 24]}}
	:let [id-str (do (println id) (name id))]
	sub-id sub-ids]
	(printer id-str sub-id))

	;;; :A
	;;; sub1 A 11
	;;; sub1 A 12
	;;; sub1 A 13

jaycfields / do_seq_lazy_let.clj

Created May 12, 2013 16:38

	(doseq [[printer {:keys [id sub-ids]}] {(partial println "sub1") {:id :A :sub-ids [11 12 13 14]}
	(partial println "sub2") {:id :B :sub-ids []}}
	sub-id sub-ids
	:let [sub-id-times-2 (do (println "binding occured") (* sub-id 2))]]
	(printer id sub-id))

	;;; binding occured
	;;; sub1 :A 11
	;;; binding occured
	;;; sub1 :A 12

jaycfields / e.el

Last active December 18, 2015 00:59

	;; clojure.core
	;; 141 false greek: ⊥ - http://en.wikipedia.org/wiki/Tautology_(logic)
	;; 163 -> key-chord: kl
	;; 217 true greek: ⊤ - http://en.wikipedia.org/wiki/Tautology_(logic)
	;; 255 nil greek: ∅ - http://en.wikipedia.org/wiki/Null_(mathematics)
	;; 316 :keys key-chord: kk, greek: ӄ

	;; testing
	;; 224 interaction greek: ι
	;; 265 no-op greek: ⒩

jaycfields / expectations.el

Created June 4, 2013 21:14