(ns clj-shell.core
  (:require [clojure.java.io :as io])
  (:import (java.awt.datatransfer DataFlavor StringSelection)))


(def clipboard
  (.getSystemClipboard (java.awt.Toolkit/getDefaultToolkit)))


(defn paste []
  (.getData clipboard (DataFlavor/stringFlavor)))


(defn copy [s]
  (.setContents clipboard (StringSelection. s) nil))