cch1

(let [undefined-value (atom :undefined-value)] 
 (defn pick-and-rename [col pick-map]
  (apply assoc
         {}
         (flatten
          (filter (fn [[k v]]
                    (not (= v undefined-value)))
           (map (fn [[k v]]
                  [v (get col k undefined-value)])
                pick-map))))))

cch1

(ns test-helpers
  (:import [java.io InputStream OutputStream IOException])
  (:require [clojure.java.io :as io]))

(defn- swap-!
  "Atomically swaps the value of atom to be:
  (apply f current-value-of-atom args). Note that f may be called
  multiple times, and thus should be free of side effects.  Returns
  the value prior to the update."
  [a f & args]

cch1

(ns template
  (:require [clojure.edn :as edn]
            [clojure.string :as string]))

;; Tagged literals do not need to be limited to being represented by a single string.  Here we represent a value with a tuple of `magic` and `value`.
(defn read-magic [[magic value]]
  (case magic
    :c (string/capitalize value)
    :l (string/lower-case value)
    :u (string/upper-case value)))