             (:issue/title issue)]
            (issue-tags issue)]])))))
 
-(defn issues [app owner {:keys [submenu]}]
+(defn issues* [app owner {:keys [submenu]}]
   (reify
     om/IDisplayName (display-name [_] "Issues")
     om/IInitState

            (if submenu
              (om/build issue {:issue-id (:active-issue-id app)} {:key :issue-id})
              (when-let [issues (seq (map #(d/entity @issue-db (:e %)) (d/datoms @issue-db :aevt :issue/title)))]
                (om/build-all issue-summary (map (fn [i] {:issue-id (:db/id i)}) (sort (issue-model/issue-comparator cust (datetime/server-date)) issues))
                              {:key :issue-id
                               :opts {:issue-db issue-db}})))]]])))))

       (om/get-shared owner :comms)
       (om/get-shared owner :sente))
      (fdb/add-attribute-listener (om/get-shared owner :issue-db)
                                  :issue/title
                                  (om/get-state owner :listener-key)
                                  (fn [tx-report]
                                    (om/refresh! owner)))
