Skip to content

Instantly share code, notes, and snippets.

@Folcon
Created August 24, 2011 11:50

Revisions

  1. Folcon created this gist Aug 24, 2011.
    10 changes: 10 additions & 0 deletions clipboard-utils.clj
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,10 @@
    (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))