From f09e81aeb2db98b7fb0d7ba52fa1e06930debdf3 Mon Sep 17 00:00:00 2001
From: Yehonathan Sharvit <viebel@gmail.com>
Date: Fri, 19 Aug 2016 12:54:58 +0300
Subject: [PATCH 1/2] wip

---
 src/klipse/plugin.cljs | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/src/klipse/plugin.cljs b/src/klipse/plugin.cljs
index 82241d19..9f9491ae 100644
--- a/src/klipse/plugin.cljs
+++ b/src/klipse/plugin.cljs
@@ -4,7 +4,7 @@
   (:require 
     [klipse.args-from-element :refer [editor-args-from-element eval-args-from-element content]]
     [klipse.klipse-editors :refer [create-editor]]
-    [cljs.spec :as s]
+    [clojure.spec :as s :refer [instrument]]
     [clojure.walk :refer [keywordize-keys]]
     [goog.dom :refer [isElement]]
     [cljs.core.async :refer [<!]]
@@ -70,10 +70,17 @@
                      :settings ::klipse-settings
                      :opts ::options))
 
+(s/def ::mode string?)
+
+(s/fdef klipsify
+        :args (s/cat :element ::dom-element
+                     :settings ::klipse-settings
+                     :mode ::mode))
+
 (defn ^:export klipsify [element general-settings mode]
   (if-let [opts (@mode-options mode)]
     (klipsify-with-opts element general-settings opts)
-    (go (js/console.error "cannot find options for mode: " mode ". Supported modes: " (keys @mode-options)))))
+    (go (js/console.error "cannot find options for mode: " mode ". Supported modes are: " (clj->js (keys @mode-options))))))
 
 (defn ^:export klipsify-elements [elements general-settings mode]
   (go
@@ -89,5 +96,5 @@
 (defn ^:export init [js-settings]
   (init-clj (js->clj js-settings :keywordize-keys false))); we cannot keywordize the keys as the modules might be written in javascript
 
-(comment
-  (s/instrument #'klipsify-with-opts))
+  (s/instrument #'klipsify)
+  (s/instrument #'klipsify-with-opts)

From a9f274dfe73ce609166fb83c17b146cd5d0033e7 Mon Sep 17 00:00:00 2001
From: Yehonathan Sharvit <viebel@gmail.com>
Date: Sun, 21 Aug 2016 12:21:35 +0300
Subject: [PATCH 2/2] wip

---
 project.clj                          |  4 ++--
 resources/public/playground-dbg.html | 32 +---------------------------
 src/klipse/plugin.cljs               | 16 ++++++++++----
 src/klipse/run/plugin/plugin.cljs    |  3 +++
 4 files changed, 18 insertions(+), 37 deletions(-)

diff --git a/project.clj b/project.clj
index 7e834e6f..314e2a37 100644
--- a/project.clj
+++ b/project.clj
@@ -1,7 +1,7 @@
 (defproject klipse "2.3.0"
   :description "Cljs compiler in cljs"
-  :dependencies [[org.clojure/clojure "1.8.0"]
-                 [org.clojure/clojurescript "1.9.198"]
+  :dependencies [[org.clojure/clojure "1.9.0-alpha10"]
+                 [org.clojure/clojurescript "1.9.211"]
                  [org.clojure/core.async "0.2.385"]
                  [im.chit/purnam "0.5.2"]
                  [cljsjs/markdown "0.6.0-beta1-0"]
diff --git a/resources/public/playground-dbg.html b/resources/public/playground-dbg.html
index c3ea0d42..8885c7b8 100644
--- a/resources/public/playground-dbg.html
+++ b/resources/public/playground-dbg.html
@@ -14,37 +14,7 @@
     <br/>
 
 
-<div class="lambda">
-    {div {@ style="text-align:center;font:bold 2em georgia;color:red;"} √(3{sup 2}+4{sup 2}) = {sqrt {+ {* 3 3} {* 4 4}}}}
-    </div>
-    <br/>
-<div class="lambda">
-    {def amélie {img 
-     {@ id="amelie"
-         src="http://epsilonwiki.free.fr/lambdaway/data/amelie_poulain.jpg" 
-             height="150"
-                 title="Amélie Poulain"
-                     style="box-shadow:0 0 8px black;
-                                border:1px solid white;
-                                           -webkit-transform:rotate(-5deg);
-                                                         -moz-transform:rotate(-5deg);
-                                                                            transform:rotate(-5deg);"}}}
-                                                                            {amélie}
-    </div>
-    <br/>
-    <pre>
-    <code class="eval-html" data-editor-type="html">
-        &lt;h1&gt; Title &lt;/h1&gt;
-        &lt;b&gt; bold &lt;/b&gt;
-        </code>
-        </pre>
-
-
-    <div class="eval-html" data-editor-type="html">
-    &lt;img id="amelie" src="http://epsilonwiki.free.fr/lambdaway/data/amelie_poulain.jpg" height="150" title="Amélie Poulain" style="box-shadow:0 0 8px black; border:1px solid white; -webkit-transform:rotate(-5deg); -moz-transform:rotate(-5deg); transform:rotate(-5deg);"&gt;&lt;/img&gt;
-    </div>
-
-    
+   
     <script src="https://viebel.github.io/klipse/examples/lambdaway_eval.js"></script>
         <script>
         window.klipse_settings = {
diff --git a/src/klipse/plugin.cljs b/src/klipse/plugin.cljs
index 9f9491ae..c5a364bf 100644
--- a/src/klipse/plugin.cljs
+++ b/src/klipse/plugin.cljs
@@ -4,7 +4,8 @@
   (:require 
     [klipse.args-from-element :refer [editor-args-from-element eval-args-from-element content]]
     [klipse.klipse-editors :refer [create-editor]]
-    [clojure.spec :as s :refer [instrument]]
+    [clojure.spec :as s]
+    [clojure.spec.test :as stest]
     [clojure.walk :refer [keywordize-keys]]
     [goog.dom :refer [isElement]]
     [cljs.core.async :refer [<!]]
@@ -77,11 +78,18 @@
                      :settings ::klipse-settings
                      :mode ::mode))
 
+(defn ->clj [settings]
+; we cannot keywordize the keys as the modules might be written in javascript
+  (js->clj settings :keywordize-keys false))
+
 (defn ^:export klipsify [element general-settings mode]
   (if-let [opts (@mode-options mode)]
     (klipsify-with-opts element general-settings opts)
     (go (js/console.error "cannot find options for mode: " mode ". Supported modes are: " (clj->js (keys @mode-options))))))
 
+(defn klipsify-js [element js-general-settings mode]
+  (klipsify element (->clj js-general-settings) mode))
+
 (defn ^:export klipsify-elements [elements general-settings mode]
   (go
     (doseq [element elements]
@@ -94,7 +102,7 @@
         (klipsify-elements (array-seq (js/document.querySelectorAll selector)) keywordized-settings (@selector->mode selector-name))))))
 
 (defn ^:export init [js-settings]
-  (init-clj (js->clj js-settings :keywordize-keys false))); we cannot keywordize the keys as the modules might be written in javascript
+  (init-clj (->clj js-settings)))
 
-  (s/instrument #'klipsify)
-  (s/instrument #'klipsify-with-opts)
+(stest/instrument `klipsify)
+(stest/instrument `klipsify-with-opts)
diff --git a/src/klipse/run/plugin/plugin.cljs b/src/klipse/run/plugin/plugin.cljs
index aca55b5a..2bf9217c 100644
--- a/src/klipse/run/plugin/plugin.cljs
+++ b/src/klipse/run/plugin/plugin.cljs
@@ -15,4 +15,7 @@
 (defn ^:export settings []
   (aget js/window "klipse_settings"))
 
+(defn ^:export klipsify [element mode]
+  (plugin/klipsify-js element (settings) mode))
+
 (plugin/init (settings))