clipboard spit/slurp

clipboard.clj

(ns clipboard)

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

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

(defn spit-clipboard [text]
  (.setContents (get-clipboard) (java.awt.datatransfer.StringSelection. text) nil))

deps.edn

{:paths ["."]}

or

(ns  clipboard 
  (:import 
        [java.awt Toolkit]
        [java.awt.datatransfer StringSelection]))

(defn to-clipboard [text]
  "Send a string to the system clipboard."
  (let [text (StringSelection. text)]
    (-> (Toolkit/getDefaultToolkit)
        (.getSystemClipboard)
        (.setContents text text))))