Get matched event in header of panel

This commit is contained in:
Daniel Compton 2018-01-11 23:27:54 +13:00
parent b55e2c097d
commit c07121f750
1 changed files with 3 additions and 2 deletions

View File

@ -1,5 +1,6 @@
(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
:settings/root
@ -146,7 +147,7 @@
(let [matches (:matches epochs)
current-index (:current-epoch-index epochs)
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)))
(rf/reg-sub