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 (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