First commit

Author: bbbates

.gitignore

@@ -0,0 +1,2 @@
+.nrepl-port
+target

lt_cljs_playground.behaviors

@@ -0,0 +1,4 @@
+[
+ [:app :lt.objs.plugins/load-js "lt_cljs_playground_compiled.js"]
+ [:lt-cljs-playground.hello :lt.plugins.lt-cljs-playground/on-close-destroy]
+ ]

lt_cljs_playground_compiled.js

@@ -0,0 +1,6 @@
+{:name "lt_cljs_playground"
+ :version "0.0.1"
+ :author ""
+ :source ""
+ :desc ""
+ :behaviors "lt_cljs_playground.behaviors"}

lt_cljs_playground_compiled.js.map

@@ -0,0 +1,2 @@
+(defproject lt-cljs-playground "0.0.1"
+  :dependencies [[org.clojure/clojure "1.5.1"]])

plugin.edn

@@ -0,0 +1,82 @@
+(ns lt.plugins.lt-cljs-playground
+  (:require [lt.object :as object]
+            [lt.objs.tabs :as tabs]
+            [lt.objs.command :as cmd]
+            [lt.objs.editor :as editor]
+            [lt.objs.editor.pool :as editor-pool]
+            [cljs.reader :refer [read-string] :as rdr])
+  (:require-macros [lt.macros :refer [defui behavior]]))
+
+(defui hello-panel [this]
+  [:h1 "Hello from lt-cljs-playground"])
+
+(object/object* ::lt-cljs-playground.hello
+                :tags [:lt-cljs-playground.hello]
+                :behaviors [::on-close-destroy]
+                :name "lt-cljs-playground"
+                :init (fn [this]
+                        (hello-panel this)))
+
+(behavior ::on-close-destroy
+          :triggers #{:close}
+          :desc "lt-cljs-playground: Close tab and tabset as well if last tab"
+          :reaction (fn [this]
+                      (when-let [ts (:lt.objs.tabs/tabset @this)]
+                        (when (= (count (:objs @ts)) 1)
+                          (tabs/rem-tabset ts)))
+                      (object/raise this :destroy)))
+
+(def hello (object/create ::lt-cljs-playground.hello))
+
+(defrecord EditorPushbackReader [ed state]
+  rdr/PushbackReader
+  (read-char [_]
+             (println @state)
+             (if (seq (:buffer @state))
+               (let [popped (last (:buffer @state))]
+                 (swap! state update-in [:buffer] pop)
+                 popped)
+               (let [{:keys [line-contents line col]} @state]
+                 (if (<= (count line-contents) col)
+                   (loop [line-contents (editor/line ed (inc line))
+                          line (inc line)]
+                     (cond
+                       (nil? line-contents) (do (swap! state assoc :eof? true) nil)
+                       (clojure.string/blank? line-contents) (recur (editor/line ed (inc line)) (inc line))
+                       :else (do
+                               (println ">>>>" line line-contents)
+                               (swap! state assoc :line line :col 0 :line-contents line-contents)
+                               (aget line-contents 0))))
+                   (do
+                     (swap! state update-in [:col] inc)
+                     (aget line-contents col))))))
+  (unread [_ ch] (swap! state update-in [:buffer] conj ch)))
+
+(defn- default-reader-state
+  [ed start-line start-col]
+  {:line start-line
+   :col start-col
+   :buffer []
+   :line-contents (editor/line ed start-line)})
+
+(defn editor-pushback-reader
+  [ed]
+  (EditorPushbackReader. ed (atom (default-reader-state ed 0 0))))
+
+(defn read-all-forms-in-editor
+  [ed]
+  (loop [forms []
+         r (editor-pushback-reader ed)]
+    (if-not (:eof? @(:state r))
+      (let [form (rdr/read r false nil true)
+            state @(:state r)]
+        (recur (conj forms form)
+               (assoc r :state (atom (default-reader-state ed (:line state) (inc (:col state)))))))
+      forms)))
+
+(cmd/command {:command ::run-dis
+              :desc "Idiocheck: Run dis"
+              :exec (fn []
+											(when-let [ed (editor-pool/last-active)]
+                        (println (read-all-forms-in-editor ed))))})
+