zakak

cgrand / heredoc.clj

Last active March 6, 2021 17:16

An ugly hacky heredoc for Clojure

	(defn heredoc []
	(let [delim (.readLine in)]
	(->> (repeatedly #(.readLine in))
	(take-while #(not= delim %))
	(interpose \newline)
	(apply str))))

	; The following lines are read (by the reader) as:
	; "Look )(\"\\T\na here doc!\n"
	#=(heredoc)"""

swlkr / switch.clj

Last active July 27, 2021 17:18

	(ns switch
	(:require [clojure.pprint :as pprint]))

	(defn project-clj-map [filename]
	(->> (slurp filename)
	(read-string)
	(drop 1)
	(partition 2)
	(map vec)
	(into {})))

yogthos / gallery.cljs

Last active March 30, 2024 17:36

script to download walpapers from windowsonearth.org

	#!/usr/bin/env lumo
	(ns spacedl.spacedl
	(:require [cljs.nodejs :as node]
	[clojure.pprint :refer [pprint]]
	[clojure.string :as string :refer [join split starts-with?]]
	[cljs.core :refer [command-line-args]]))

	(node/enable-util-print!)
	(.on js/process "uncaughtException" #(js/console.error %))