Include count again in channel-days

Author: plexus

src/clojurians_log/db/queries.clj

@@ -102,8 +102,7 @@
     (some->> chan-name
              chan-name->id
              chan-day-cnt
-             keys
-             (sort reverse-compare))))
+             (sort-by first reverse-compare))))
 
 (defn channel [db name]
   (d/q '[:find (pull ?chan [*]) .

src/clojurians_log/routes.clj

@@ -97,7 +97,7 @@
     (-> request
         context
         (assoc :data/title (str "Clojurians Slack Log | " channel)
-               :data/days (queries/channel-days db channel)
+               :data/channel-days (queries/channel-days db channel)
                :data/channel-name channel)
         views/channel-page
         response/render)))

src/clojurians_log/views.clj

@@ -99,7 +99,8 @@
     (map vector (range) $)
     (some (fn [[index a-date]] index) $)
     (+ $ offset)
-    (nth channel-days $ nil)))
+    (nth channel-days $ nil)
+    (first $)))
 
 (defn- log-page-header [{:data/keys [channel date channel-days]}]
   [:div.header
@@ -188,14 +189,14 @@
       [:div.listings_direct-messages]]
      (message-history context)]]])
 
-(defn- channel-page-html [{:data/keys [days channel-name] :as context}]
+(defn- channel-page-html [{:data/keys [channel-days channel-name] :as context}]
   [:html
    (page-head context)
    [:body
     [:div.main
      [:h1 "Channel: #" channel-name]
      [:ul
-      (for [[day cnt] days]
+      (for [[day cnt] channel-days]
         [:li [:a {:href (bidi/path-for routes
                                        :log
                                        :channel channel-name