feat: message statistics db query and route

Author: oxalorg

src/clojurians_log/db/queries.clj

@@ -137,6 +137,17 @@
                [?emoji :emoji/url ?url]]
              db)))
 
+(defn message-stats-between-days [db from-date to-date]
+  (d/q '[:find ?msg ?day
+         :in $ ?from-date ?to-date
+         :where
+         [?msg :message/day ?day]
+         [(> ?day ?from-date)]
+         [(< ?day ?to-date)]]
+       db
+       from-date
+       to-date))
+
 #_
 (doseq [v [#'clojurians-log.db.queries/user-names
            #'clojurians-log.db.queries/channel

src/clojurians_log/routes.clj

@@ -144,6 +144,16 @@
         views/sitemap
         response/xml-render)))
 
+(defn message-stats-route [{:keys [endpoint] :as request}]
+  (let [config                    @(get-in endpoint [:config :value])
+        db (db-from-endpoint endpoint)
+        {:keys [from-date to-date]} (:path-params request)]
+    (-> request
+        make-context
+        (assoc :data/message-stats (queries/message-stats-between-days db from-date to-date))
+        views/message-stats-page
+        response/render)))
+
 (def routes
   [["/" {:name :clojurians-log.routes/index
          :get index-route}]
@@ -158,4 +168,5 @@
    ["/{channel}/{date}" {:name :clojurians-log.routes/channel-date,
                          :get log-route}]
    ["/{channel}/{date}/{ts}" {:name :clojurians-log.routes/message,
-                              :get log-route}]])
+                              :get log-route}]
+   ["/_/stats/{from-date}/{to-date}" {:name :clojurians-log.routes/message-stats :get message-stats-route}]])

src/clojurians_log/views.clj

@@ -286,6 +286,10 @@
                               :date day}))]
         [:lastmod day]]))])
 
+(defn- message-stats-page-html [{:data/keys [message-stats] :as context}]
+  [:div
+    (for [[a b] message-stats] [:p a b])])
+
 (defn log-page [context]
   (assoc context :response/html (log-page-html context)))
 
@@ -300,3 +304,6 @@
 
 (defn sitemap [context]
   (assoc context :response/xml (sitemap-xml context)))
+
+(defn message-stats-page [context]
+  (assoc context :response/html (message-stats-page-html context)))