candle example

pink-gorilla · Sep 27, 2024 · bf461b0 · bf461b0
1 parent 7555eeb
commit bf461b0
Show file tree

Hide file tree

Showing 2 changed files with 38 additions and 6 deletions.
diff --git a/demo/src/demo/page/highcharts.cljs b/demo/src/demo/page/highcharts.cljs
@@ -28,19 +28,23 @@
     ;; new version that provides :style and :class
    [:p.bg-red-500.p-3 "NEW rtable.render.highcharts"]
    [sample-selector
-    {:lg-new [highstock {:style {:width "1000px"
+    {:lg-new 
+     [highstock {:style {:width "1000px"
                                  :height "500px"}
                          :data highchart-spec}]
-     :annotation-new [highstock {:style {:width "500px"
+     :annotation-new 
+     [highstock {:style {:width "500px"
                                          :height "500px"}
                                  :class "bg-red-300"
                                  :data annotations/spec}]
-     :annotation-new-big  [highstock {:style {:width "1000px"
+     :annotation-new-big  
+     [highstock {:style {:width "1000px"
                                               :height "500px"}
                                       :class "bg-red-500"
                                       :data annotations/spec}]
 
-     :chartspec [highstock-ds {:style {:width "1200px"
+     :chartspec 
+     [highstock-ds {:style {:width "1200px"
                                        :height "800px"
                                        :border "3px solid green"}
                                :class "bg-red-500"
@@ -61,6 +65,29 @@
                                         {:volume :column}
                                         {:atr :column}]
                                :url  "/r/bars-1m-full.transit-json"}]
+     :chartspec-candle
+     [highstock-ds {:style {:width "1200px"
+                                       :height "800px"
+                                       :border "3px solid green"}
+                               :class "bg-red-500"
+                               :charts [{:bar {:type :ohlc} ; :ohlc 
+                                         :close {:type :line}
+                                              ; band
+                                         :atr-band-mid {:type :point :color "orange"}
+                                         :atr-band-lower {:type :line :color "black"}
+                                         :atr-band-upper {:type :line :color "black"}
+                                              ;pivots
+                                              ;:p0-low {:type :step :color "red"}
+                                              ;:p1-low {:type :step :color "red"} ; :step does not work with gaps.
+                                              ;:pweek-low {:type :step :color "red"} ; :step does not work with gaps.
+                                              ;:p0-high {:type :step :color "red"}
+                                              ;:p1-high {:type :step :color "red"} ; :step does not work with gaps.
+                                              ;:pweek-high {:type :step :color "red"} ; :step does not work with gaps.
+                                         }
+                                        {:volume :column}
+                                        {:atr :column}]
+                               :url  "/r/bars-1m-full.transit-json"}]
+
 
      ;
      }]])

diff --git a/src/rtable/render/highcharts_render.cljs b/src/rtable/render/highcharts_render.cljs
@@ -64,11 +64,16 @@
     (info "loading highchart extensions..")
     (reset! loaded? true)
     (add-debugger)
-    (add-boost)
     (add-annotations)
     (add-more)
     (add-draggable-points)
-    (add-drag-panes)))
+    (add-drag-panes)
+    ; Note: The Boost module should be included last. 
+    ; This is because it overrides both standard Highcharts functionality, and functionality 
+    ; in certain modules (namely treemap, heatmap, bubble, and scatter).
+    (add-boost)
+
+    ))
 
 (defn render-highchart [dom-node data]
   (ensure-extensions-loaded)