Init

Author: cldwalker

.gitignore

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

mermaid.behaviors

@@ -0,0 +1,4 @@
+[
+ [:app :lt.objs.plugins/load-js "mermaid_compiled.js"]
+ [:myplugin.hello :lt.plugins.mermaid/on-close-destroy]
+ ]

mermaid_compiled.js

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

plugin.edn

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

project.clj

@@ -0,0 +1,31 @@
+(ns lt.plugins.mermaid
+  (:require [lt.object :as object]
+            [lt.objs.tabs :as tabs]
+            [lt.objs.command :as cmd])
+  (:require-macros [lt.macros :refer [defui behavior]]))
+
+(defui hello-panel [this]
+  [:h1 "Hello from mermaid"])
+
+(object/object* ::mermaid.hello
+                :tags [:mermaid.hello]
+                :behaviors [::on-close-destroy]
+                :name "mermaid"
+                :init (fn [this]
+                        (hello-panel this)))
+
+(behavior ::on-close-destroy
+          :triggers #{:close}
+          :desc "mermaid: 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 ::mermaid.hello))
+
+(cmd/command {:command ::say-hello
+              :desc "mermaid: Say Hello"
+              :exec (fn []
+                      (tabs/add-or-focus! hello))})