ajchemist

Add the following chunk to your existing ISC dhcpd.conf file.

if exists user-class and ( option user-class = "iPXE" ) {
    filename "http://boot.smidsrod.lan/boot.ipxe";
}
else {
    filename "undionly.kpxe";
}

(or see https://gist.github.com/4008017 for a more elaborate setup

A little Clojure configuration reader

This is a handy bit of code I've written more than once. I thought I'd throw it in here so I can refer back to it later. Basically, it lets you read a config file to produce a Clojure map. The config files themselves can contain one or more forms, each of which can be either a map or a list. Maps are simply merged. Lists correspond to invocations of extension points, which in turn produces a map, which is merged along with everything else.

An Example

Consider the following files:

names.edn

	# Install `dnsmasq` and configure for *.dev domains

	$ brew install dnsmasq
	$ vim /usr/local/etc/dnsmasq.conf

	# Reload configuration and clear cache

	$ sudo launchctl unload /Library/LaunchDaemons/homebrew.mxcl.dnsmasq.plist
	$ sudo launchctl load /Library/LaunchDaemons/homebrew.mxcl.dnsmasq.plist
	$ dscacheutil -flushcache

	Lisp interpreter in 90 lines of C++

	I've enjoyed reading Peter Norvig's recent articles on Lisp. He implements a Scheme interpreter in 90 lines of Python in the first, and develops it further in the second.

	Just for fun I wondered if I could write one in C++. My goals would be

	1. A Lisp interpreter that would complete Peter's Lis.py test cases correctly...
	2. ...in no more than 90 lines of C++.

	Although I've been thinking about this for a few weeks, as I write this I have not written a line of the code. I'm pretty sure I will achieve 1, and 2 will be... a piece of cake!

	;;
	;; NS CHEATSHEET
	;;
	;; * :require makes functions available with a namespace prefix
	;; and optionally can refer functions to the current ns.
	;;
	;; * :import refers Java classes to the current namespace.
	;;
	;; * :refer-clojure affects availability of built-in (clojure.core)
	;; functions.

	!/fstorms
	/fstorms/*
	!/fstorms/__obsolete/
	!/fstorms/*.el
	/fstorms/el-loaddefs.el
	!/fstorms/fstorm-*
	!/fstorms/__recipes/

	(require '[net.cgrand.enlive-html :as enlive])

	(enlive/html-resource (io/file))

	(defn html->hiccup
	[html]
	(if-not (string? html)
	(->> (map html->hiccup (:content html))
	(concat [(:tag html) (:attrs html)])
	(keep identity)

	# to generate your dhparam.pem file, run in the terminal
	openssl dhparam -out /etc/nginx/ssl/dhparam.pem 2048

	(let [v초 ["ㄱ" "ㄲ" "ㄴ" "ㄷ" "ㄸ" "ㄹ" "ㅁ" "ㅂ" "ㅃ" "ㅅ" "ㅆ" "ㅇ" "ㅈ" "ㅉ" "ㅊ" "ㅋ" "ㅌ" "ㅍ" "ㅎ"]
	v중 ["ㅏ" "ㅐ" "ㅑ" "ㅒ" "ㅓ" "ㅔ" "ㅕ" "ㅖ" "ㅗ" "ㅘ" "ㅙ" "ㅚ" "ㅛ" "ㅜ" "ㅝ" "ㅞ" "ㅟ" "ㅠ" "ㅡ" "ㅢ" "ㅣ"]
	v종 ["" "ㄱ" "ㄲ" "ㄳ" "ㄴ" "ㄵ" "ㄶ" "ㄷ" "ㄹ" "ㄺ" "ㄻ" "ㄼ" "ㄽ" "ㄾ" "ㄿ" "ㅀ" "ㅁ" "ㅂ" "ㅄ" "ㅅ" "ㅆ" "ㅇ" "ㅈ" "ㅊ" "ㅋ" "ㅌ" "ㅍ" "ㅎ"]]
	(defn jaso-decomp [string]
	(loop [chars (seq string), ret ""]
	(if-let [char (first chars)]
	(let [code (-> char str #?(:clj (Character/codePointAt 0) :cljs (.charCodeAt 0)))]
	(if (<= 0xAC00 code 0xD7A3) ; in-hangul
	(let [code (- code 0xAC00)
	종 (rem code 28)

	; A REPL-based, annotated Seesaw tutorial
	; Please visit https://github.com/daveray/seesaw for more info
	;
	; This is a very basic intro to Seesaw, a Clojure UI toolkit. It covers
	; Seesaw's basic features and philosophy, but only scratches the surface
	; of what's available. It only assumes knowledge of Clojure. No Swing or
	; Java experience is needed.
	;
	; This material was first presented in a talk at @CraftsmanGuild in
	; Ann Arbor, MI.