status-im
/
re-frame-10x
mirror of https://github.com/status-im/re-frame-10x.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Provide system message when no event is being shown

This commit is contained in:
Daniel Compton 2018-02-12 07:31:02 +13:00
parent 4e5eb6208b
commit d89616374c
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/day8/re_frame/trace/view/container.cljs
View File

@ -85,9 +85,12 @@
[right-hand-buttons external-window?]])
(defn standard-header [external-window?]
(let [current-event @(rf/subscribe [:epochs/current-event])
(let [current-event @(rf/subscribe [:epochs/current-event])
older-epochs-available? @(rf/subscribe [:epochs/older-epochs-available?])
newer-epochs-available? @(rf/subscribe [:epochs/newer-epochs-available?])]
newer-epochs-available? @(rf/subscribe [:epochs/newer-epochs-available?])
event-str (if (some? current-event)
(subs (prn-str current-event) 0 400)
"No event")]
[[rc/h-box
:align :center
:size "auto"
@ -100,8 +103,9 @@
:style {:max-height "42px" ;42 is exactly 2 lines which is perhaps neater than common/gs-50s (which would allow 3 lines to be seen)
:overflow-x "hidden"
:overflow-y "auto"
:background-color "white"}
:children [[:span.event-header (subs (prn-str current-event) 0 400)]]]
:background-color "white"
:font-style (if (some? current-event) "normal" "italic")}
:children [[:span.event-header event-str]]]
[:span.arrow (if newer-epochs-available?
{:on-click #(rf/dispatch [:epochs/next-epoch])}
{:class "arrow__disabled"})