     (when (and (some? to-repl) (some? expression))
       (put! to-repl expression))))
 
-(defn copy-to-clipboard [txt]
-  (->> (js-obj "dataType" "text/plain" "data" txt)
-       (new js/ClipboardEvent "copy")
-       (js/document.dispatchEvent)))
+
 
 (defn history-prev [{:keys [cursor history] :as state}]
   (let [c          (count history)

  (let [state              (:state props)
        {:keys [ns input]} @state
        is-init?           (some? ns)
        is-blank?          (blank? input)
        is-disabled?       (or (not is-init?) is-blank?)]
    [:div.padding-left
     ^{:key is-disabled?}

(ns cljs-webrepl.core
  (:require
   [clojure.string :as str]
   [cljs.core.async :refer [chan close! timeout put!]]
   [cljsjs.clipboard :as clipboard]
   [reagent.core :as r :refer [atom]]
