Skip to content

Instantly share code, notes, and snippets.

@whamtet

whamtet/clipboard.clj

Last active April 11, 2016 01:32
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save whamtet/7074148358b7f744dfcb152d3e597c31 to your computer and use it in GitHub Desktop.
Save whamtet/7074148358b7f744dfcb152d3e597c31 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
clipboard.clj
(import java.awt.datatransfer.StringSelection)
(import java.awt.Toolkit)
(import java.awt.datatransfer.DataFlavor)
(defn to-clipboard [s]
(let [
selection (StringSelection. s)
clipboard (.getSystemClipboard (Toolkit/getDefaultToolkit))]
(.setContents clipboard selection selection)))
(defn from-clipboard []
(->
(.getSystemClipboard (Toolkit/getDefaultToolkit))
(.getContents nil)
(.getTransferData DataFlavor/stringFlavor)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment