From 8b07fdb43206b2a06d5374b624bf16bec51898e0 Mon Sep 17 00:00:00 2001
From: awb99 <awb99@gmail.com>
Date: Fri, 8 Mar 2024 13:01:54 -0500
Subject: [PATCH] demo: added trateg example

---
 demo/resources/ext/demo.edn     |  5 ++--
 demo/src/demo/page/options.cljs |  4 +--
 demo/src/demo/page/trateg.cljs  | 46 +++++++++++++++++++++++++++++++++
 3 files changed, 51 insertions(+), 4 deletions(-)
 create mode 100644 demo/src/demo/page/trateg.cljs

diff --git a/demo/resources/ext/demo.edn b/demo/resources/ext/demo.edn
index e8149c2..d938ba9 100644
--- a/demo/resources/ext/demo.edn
+++ b/demo/resources/ext/demo.edn
@@ -1,9 +1,10 @@
 {:name "demo"
  :cljs-routes  {"" demo.page.options/page-options
                 "controls" demo.page.controls/page-controls
-                }
+                "trateg" demo.page.trateg/page-trateg}
  :sci-cljs-ns [demo.page.options
-               demo.page.controls]
+               demo.page.controls
+               demo.page.trateg]
 
  
 }
\ No newline at end of file
diff --git a/demo/src/demo/page/options.cljs b/demo/src/demo/page/options.cljs
index 5a9c1fa..8307eea 100644
--- a/demo/src/demo/page/options.cljs
+++ b/demo/src/demo/page/options.cljs
@@ -77,8 +77,8 @@
 (defn page-options [_]
   [:div
 
-   [:a {:href "/controls"}
-    [:p "goto controls"]]
+   [:a {:href "/controls"} [:p "goto controls"]]
+   [:a {:href "/trateg"} [:p "goto trateg"]]
 
    [h1 "state"]
    [:div (pr-str @state)]
diff --git a/demo/src/demo/page/trateg.cljs b/demo/src/demo/page/trateg.cljs
new file mode 100644
index 0000000..9171d2a
--- /dev/null
+++ b/demo/src/demo/page/trateg.cljs
@@ -0,0 +1,46 @@
+(ns demo.page.trateg
+  (:require
+   [reagent.core :as r]
+   [options.core :refer [options-ui]]))
+
+(def state (r/atom {}))
+
+(def config
+  {:state state
+   :options [{:path [0 :asset],
+              :name "asset",
+              :spec
+              ["EUR/USD" "USD/CHF" "GBP/USD" "USD/SEK" "USD/NOK" "USD/CAD" "USD/JPY"
+               "AUD/USD" "NZD/USD" "USD/MXN" "USD/ZAR" "EUR/JPY" "EUR/CHF" "EUR/GBP" "GBP/JPY"]}
+             {:path [2 :trailing-n], :name "DailyLoad#", :spec [2 5 10 20 30 50 80 100 120 150]}
+             {:path [2 :atr-n], :name "dATR#", :spec [5 10 20 30]}
+             {:path [2 :percentile], :name "dPercentile", :spec [10 20 30 40 50 60 70 80 90]}
+             {:path [2 :step], :name "dStep", :spec [0.001 1.0E-4 4.0E-5]}
+             {:path [4 :max-open-close-over-low-high], :name "doji-co/lh max", :spec [0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9]}],
+   :current
+   {[0 :asset] "USD/JPY",
+    [2 :trailing-n] 120,
+    [2 :atr-n] 10,
+    [2 :percentile] 70,
+    [2 :step] 1.0E-4,
+    [4 :max-open-close-over-low-high] 0.3}})
+
+(defn h1 [s]
+  [:<>
+   [:hr]
+   [:br]
+   [:h1 {:class "pt-5 pb-5 text-xl text-bold text-blue-700"} s]])
+
+(defn page-trateg [_]
+  [:div
+   [:a {:href "/controls"}
+    [:p "goto controls"]]
+
+   [h1 "state"]
+   [:div (pr-str @state)]
+
+   [h1 "unstyled"]
+   [options-ui {:class "bg-blue-300 options-debug"
+                :style {:width "50vw"
+                         ;:height "40vh"
+                        }}config]])
\ No newline at end of file