gistfile1.clj

(import [java.awt Toolkit]
	   [java.awt.datatransfer StringSelection DataFlavor
	    Transferable UnsupportedFlavorException])

(defn clear-clipboard []
  (.. Toolkit
      getDefaultToolkit
      getSystemClipboard
      (setContents
       (proxy [Transferable] []
	 (getTransferData [flavor] (throw (UnsupportedFlavorException. flavor)))
	 (getTransferDataFlavors [] (make-array DataFlavor 0))
	 (isDataFlavorSupported [flavor] false))
       nil)))

;this should supposedly clear the clipboard but it seems to do nothing