Get matched event in header of panel
This commit is contained in:
parent
b55e2c097d
commit
c07121f750
|
@ -1,5 +1,6 @@
|
||||||
(ns day8.re-frame.trace.subs
|
(ns day8.re-frame.trace.subs
|
||||||
(:require [mranderson047.re-frame.v0v10v2.re-frame.core :as rf]))
|
(:require [mranderson047.re-frame.v0v10v2.re-frame.core :as rf]
|
||||||
|
[day8.re-frame.trace.metamorphic :as metam]))
|
||||||
|
|
||||||
(rf/reg-sub
|
(rf/reg-sub
|
||||||
:settings/root
|
:settings/root
|
||||||
|
@ -146,7 +147,7 @@
|
||||||
(let [matches (:matches epochs)
|
(let [matches (:matches epochs)
|
||||||
current-index (:current-epoch-index epochs)
|
current-index (:current-epoch-index epochs)
|
||||||
match (nth matches (+ (count matches) (or current-index 0)) (last matches))
|
match (nth matches (+ (count matches) (or current-index 0)) (last matches))
|
||||||
event (get-in (second match) [:tags :event])]
|
event (get-in (metam/matched-event match) [:tags :event])]
|
||||||
event)))
|
event)))
|
||||||
|
|
||||||
(rf/reg-sub
|
(rf/reg-sub
|
||||||
|
|
Loading…
Reference in New Issue