Small bugs: fix NPE, deal with thread-ts == ts

Author: plexus

deps.edn

@@ -46,7 +46,7 @@
                                                             :sha "ff96d4f07d5b12b2fe0d8b206eb4a3713ad222d6"}}}
 
            :datomic-free  {:extra-paths ["profiles/datomic_on_prem"]
-                           :extra-deps  {com.datomic/datomic-free {:mvn/version "1.0.6316"}}}
+                           :extra-deps  {com.datomic/datomic-free {:mvn/version "0.9.5697"}}}
            :datomic-pro   {:extra-paths ["profiles/datomic_on_prem"]
                            :extra-deps  {com.datomic/datomic-pro {:mvn/version "1.0.6316"}}}
            :datomic-cloud {:extra-paths ["profiles/datomic_cloud"]

src/clojurians_log/db/queries.clj

@@ -74,7 +74,10 @@
        ;; Remove all thread messages except for the thread parent
        ;; and except for brodcast messages.
        ;; Note that thread parents do not have a :thread-ts value themselves
-       (remove #(and (:message/thread-ts %) (not (:message/thread-broadcast? %))))
+       (remove #(and (:message/thread-ts %)
+                     ;; detect self-referenctial thread heads, this happens when importing backfilled data
+                     (not (= (:message/thread-ts %) (:message/ts %)))
+                     (not (:message/thread-broadcast? %))))
        (map #(if (:message/thread-broadcast? %)
                (assoc % :message/top-level? true)
                %))

src/clojurians_log/repl.clj

@@ -201,7 +201,7 @@
 
   (def result (load-files! (log-files)))
   ;; or
-  (def result (load-files! (files-from "2019-01-01")))
+  (def result (load-files! (files-from "2021-08-25")))
 
   ;; see progress
   (future

src/clojurians_log/views.clj

@@ -129,9 +129,12 @@
             (when (= today a-date)
               index))
           $)
-    (+ $ offset)
-    (nth channel-days $ nil)
-    (first $)))
+    (when $
+      (+ $ offset))
+    (when $
+      (nth channel-days $ nil))
+    (when $
+      (first $))))
 
 (defn- channel-list [{:data/keys [date channels] :as context}]
   [:div.listings_channels