31 lines
877 B
Clojure
31 lines
877 B
Clojure
|
;; USAGE: in whatsapp group chat, export your chat _without_ media, and store somewhere.
|
||
|
|
;; Then
|
||
|
|
;; $ cat chatfile.txt | bb -i -f whatsapp_counter.clj
|
||
|
|
|
||
|
|
(ns whatsapp-frequencies
|
||
|
|
{:author "Marten Sytema"}
|
||
|
|
(:require [clojure.java.io :as io]
|
||
|
|
[clojure.pprint :refer [print-table]]
|
||
|
|
[clojure.string :refer [trim] :as string]))
|
||
|
|
|
||
|
|
(defn parse-line
|
||
|
|
"Returns the name of the message, or nil if it can't be found"
|
||
|
|
[l]
|
||
|
|
(->> (string/replace l #"\p{C}" "")
|
||
|
|
trim
|
||
|
|
(re-find #"\[.*\] (.+?):")
|
||
|
|
second))
|
||
|
|
|
||
|
|
(defn chats-by-user
|
||
|
|
([lines]
|
||
|
|
(chats-by-user lines parse-line))
|
||
|
|
([lines keep-fn]
|
||
|
|
(->> (frequencies (keep keep-fn lines))
|
||
|
|
(sort-by second >)
|
||
|
|
(map (fn [[name amount]]
|
||
|
|
{:name name
|
||
|
|
:amount amount}))
|
||
|
|
(print-table [:name :amount]))))
|
||
|
|
|
||
|
|
(chats-by-user (line-seq (io/reader *in*)))
|