copy inline result from its menu

deploy/settings/default/default.behaviors

@@ -306,7 +306,8 @@
                   :lt.objs.eval/expand-on-click :lt.objs.eval/clear-mark
                   :lt.objs.eval/move-mark :lt.objs.eval/changed
                   :lt.objs.eval/update!
-                  :lt.objs.eval/destroy-on-cleared]
+                  :lt.objs.eval/destroy-on-cleared
+                  :lt.objs.eval/copy-result]
   :inline.underline-result [:lt.objs.eval/result-menu! :lt.objs.eval/ex-clear :lt.objs.eval/destroy-on-clear]
   :inline.watch [:lt.plugins.watches/clear!]
   :inspector.object [:lt.objs.clients.devtools/clear-inspector-object]

src/lt/objs/eval.cljs

@@ -14,7 +14,8 @@
             [crate.binding :refer [bound]]
             [lt.objs.console :as console]
             [lt.util.dom :as dom]
-            [clojure.string :as string])
+            [clojure.string :as string]
+            [lt.objs.platform :as platform])
   (:require-macros [lt.macros :refer [behavior defui]]))
 
 (defui button [label & [cb]]
@@ -194,7 +195,9 @@
           :triggers #{:menu!}
           :reaction (fn [this ev]
                       (-> (menu/menu [{:label "Remove result"
-                                       :click (fn [] (object/raise this :clear!))}])
+                                       :click (fn [] (object/raise this :clear!))}
+                                      {:label "Copy result"
+                                       :click (fn [] (object/raise this :copy))}])
                           (menu/show-menu (.-clientX ev) (.-clientY ev)))
                       (dom/prevent ev)
                       (dom/stop-propagation ev)))
@@ -228,6 +231,11 @@
                         (object/raise this :clear)
                         (object/raise this :cleared))))
 
+(behavior ::copy-result
+          :triggers #{:copy}
+          :reaction (fn [this]
+                      (platform/copy (:result @this))))
+
 (behavior ::changed
           :triggers #{:changed}
           :reaction (fn [this]