emoji_hash.clj

(ns emoji-hash
  (:require
   ;; n.b. these can be used inside of mods.edn!
   [babashka.http-client :as http]
   ;; [babashka.deps :as deps]
   [babashka.pods :as pods]
   [babashka.process :refer [process check sh pipeline pb]]
   [babashka.fs :as fs]
   [babashka.tasks :refer [shell]]
   [cheshire.core :as json]
   [clojure.core.match :refer [match]]
   [clojure.java.browse :as browse]
   [clojure.string :as str]
   [clojure.pprint :as pprint]
   [huff2.core :as h]
   [huff2.extension :as h2e]
   [org.httpkit.server :as httpkit.server]
   [selmer.parser :refer [<<]]

   [clojure.walk :as walk]
   [honey.sql :as hdb]
   [camel-snake-kebab.core :as csk]))



(def emojis
  ["😀" "😁" "😂" "😃" "😄" "😅" "😆" "😇" "😈" "😉" "😊" "😋" "😌" "😍" "😎"
   "😏" "😐" "😑" "😒" "😓" "😔" "😕" #_"😖" "😗" "😘" "😙" "😚" "😛" "😜" "😝"
   #_"😞" #_"😟" "😠" "😡" "😢" "😣" "😤" #_"😥" "😦" #_"😧" #_"😨" #_"😩" "😪" #_"😫" "😬"
   "😭" "😮" #_"😯" "😰" #_"😱" #_"😲" "😳" "😴" "😵" "😶" "😷" "😸" "😹" "😺" "😻"
   "😼" "😽" "😾" "😿" "🙀" "🙁" "🙂" "🙃" "🙄" "🙅" "🙆" "🙇" "🙈" "🙉" "🙊"
   #_"🙋" "🙌" #_"🙍" #_"🙎" "🙏" "🚀" "🚁" "🚂" "🚃" "🚄" "🚅" "🚆" "🚇" "🚈" "🚉"
   "🚊" "🚋" "🚌" "🚍" "🚎" "🚏" "🚐" "🚑" "🚒" "🚓" "🚔" "🚕" "🚖" "🚗" "🚘"
   "🚙" "🚚" "🚛" "🚜" "🚝" "🚞" "🚟" "🚠" "🚡" "🚢" "🚣" "🚤" "🚥" "🚦" "🚧"
   "🚨" #_"🚩" "🚪" "🚫" "🚬" "🚭" "🚮" "🚯" "🚰" "🚱" "🚲" "🚳" "🚴" "🚵" "🚶"
   "🚷" "🚸" "🚹" "🚺" "🚻" "🚼" "🚽" "🚾" "🚿" "🛀" "🛁" "🛂" "🛃" "🛄" "🛅"
   "🛋" "🛌" "🛍" "🛎" "🛏" "🛐" "🛑" "🛒" "🛕" "🛖" "🛗" "🛝" "🛞" "🛟" "🛠" "🛡"
   "🛢" "🛣" "🛤" "🛥" "🛩" "🛫" "🛬" "🛰" "🛳" "🛴" "🛵" "🛶" "🛷" "🛸" "🛹" "🛺"
   "🛻" "🛼" "🟠" "🟡" "🟢" "🟣" "🟤" "🟥" "🟦" "🟧" "🟨" "🟩" "🟪" "🟫"])

(defn hash-to-emojis [obj]
  (let [h1     (hash obj)
        h2     (hash h1)
        index1 (mod h1 (count emojis))
        index2 (mod h2 (count emojis))
        emoji1 (nth (cycle emojis) index1)
        emoji2 (nth (cycle emojis) index2)]
    (str emoji1 emoji2)))

(defn slack-sanitize [s]
  (let [replace {"&quot;" "\""
                 "&amp;"  "&"
                 "&lt;"   "<"
                 "&gt;"   ">"
                 "&apos;" "'"
                 "&nbsp;" " "
                 "&#39;"  "'"
                 ;; can't have [ or ] inside a slack link!
                 "]"      "⟩"
                 "["      "⟨"}]
    (reduce (fn [s [k v]] (clojure.string/replace s k v)) s replace)))

(defn get-title [owner repo issue-num]
  (-> (<< "https://api.github.com/repos/{{owner}}/{{repo}}/issues/{{issue-num}}")
      http/get
      :body
      (json/decode keyword)
      :title
      slack-sanitize))

(defn -main [& args]
  (let [[issue-num] args]
    (println (try
               (format "%s:[%s](https://github.com/metabase/metabase/pull/%s)"
                       (hash-to-emojis issue-num)
                       (get-title "metabase" "metabase" issue-num)
                       issue-num)
               (catch Exception e
                 (format "[#%s](https://github.com/metabase/metabase/pull/%s)" issue-num issue-num))))))

(when
    (= *file* (System/getProperty "babashka.file"))
  (apply -main *command-line-args*))