Clojure code to interact with the system clipboard

clipboard.clj

(require '[clojure.pprint :as pp])
(import '[java.awt.datatransfer DataFlavor StringSelection Transferable])

(defn clipboard []
  (.getSystemClipboard (java.awt.Toolkit/getDefaultToolkit)))

(defn slurp-clipboard []
  (try
    (.getTransferData (.getContents (clipboard) nil) (DataFlavor/stringFlavor))
    (catch java.lang.NullPointerException e nil)))

(defn spit-clipboard [text]
  (let [selection (StringSelection. text)]
    (.setContents (clipboard) selection selection)))

(defn pp-to-clipboard [x]
  (let [out (java.io.StringWriter.)]
    (pp/pprint x out)
    (spit-clipboard (.toString out))))