Ignore private group messages

Author: plexus

repl/emoji_cleanup.clj

@@ -28,6 +28,8 @@
 
 (run! (partial d/transact (conn)) (partition-all 1000 tx-data))
 
+(count (d/q '[:find ?i ?s :where [?i :emoji/shortcode ?s]] (db)))
+
 @(d/transact (conn) [{:db/ident       :emoji/shortcode
                       :db/valueType   :db.type/string
                       :db/cardinality :db.cardinality/one

src/clojurians_log/db/import.clj

@@ -26,7 +26,7 @@
   nil)
 
 (defn message->tx [{:keys [ts text channel user thread_ts] :as message}]
-  (when-not (= \D (first channel)) ;; ignore direct messages
+  (when (= \C (first channel)) ;; ignore direct and private group, can be C, D, G
     (let [inst    (time-util/ts->inst ts)
           message #:message {:key      (message-key message)
                              :ts       ts