                     :duration nil
                     :progress 0
                     :loaded 0})
+
+(defn next-post [coll el]
+  "Get the next post"
+  (get (zipmap coll (rest coll)) el))
+
+(defn prev-post [coll el]
+  "Get the previous post"
+  (get (zipmap (rest coll) coll) el nil))
 
 (rf/reg-event-db :initialize
                  (fn [_ _]


(rf/reg-event-db :player-ended
                 (fn [db [_ _]]
                   (js/console.log :player-ended)
                   db))

(rf/reg-event-db :player-error
                 (fn [db [_ _]]
                   (js/console.log :player-error)
                   db))

(rf/reg-event-db :player-command-play
                 (fn [db [_ _]]

(rf/reg-event-db :player-command-pause
                 (fn [db [_ _]]
                   (assoc db :player-state :paused)))

(rf/reg-event-db :player-command-next
                 (fn [db [_ _]]
