A small babashka script to post text to a haste-server and get the url back

haste.clj

#!/usr/bin/env bb

(def ^:const base-url "https://hastebin.com")

(as-> (or (first *command-line-args*) System/in) $ 
      (io/input-stream $)
      (curl/post (str base-url "/documents") {:body $})
      (:body $)
      (json/parse-string $ true)
      (:key $)
      (str base-url \/ $)
      (println $))