emoji_hash.clj

#!/usr/bin/env bb

(ns emoji-hash
  (:require [babashka.deps :as deps]
            [babashka.http-client :as http]
            [cheshire.core :as json]
            [clj-yaml.core :as yaml]
            [clojure.data.xml :as xml]
            [clojure.edn :as edn]
            [selmer.parser :refer [<<]]
            [clojure.string :as str]))

#_(deps/add-deps '{:deps {}})

(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 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/%s/%s/issues/%s"
      (format owner repo issue-num)
      http/get :body (json/decode keyword) :title sanitize))

(defn emoji-hash [issue-num]
  (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 _
      (format "[#%s](https://github.com/metabase/metabase/pull/%s)" issue-num issue-num))))

(defn -main [& args]
  (let [issue-number (first *command-line-args*)]
    (when-not (re-matches #"\d+" issue-number)
      (binding [*out* *err*]
        (println "Usage: eh issue-number")))
    (println (emoji-hash issue-number))))

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