ipguide-client.bb

#!/usr/bin/env bb
(ns ip.guide.client
  (:require
    [babashka.process :refer [shell]]
    [cheshire.core :as json]))

(def ip-guide-url "https://ip.guide")

(defn fetch-ip-json []
  (let [{:keys [exit out err]}
        (shell {:out :string}
               "curl" "-6" "-sL" ip-guide-url)]
    (when (not (zero? exit))
      (binding [*out* *err*]
        (println "Failed to fetch IP info from" ip-guide-url ":" err))
      (System/exit exit))
    out))

(defn parse-ip [json-str]
  (-> json-str
      (json/parse-string true) ; keywordize keys
      :ip))

(defn -main [& _args]
  (println (parse-ip (fetch-ip-json))))

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

ipguide.bb

#!/usr/bin/env bb

(require '[babashka.process :refer [shell]])
(require '[cheshire.core :as json])

(println
  (:ip
    (json/parse-string
      (:out (shell {:out :string} "curl" "-6" "-sL" "https://ip.guide"))
      true)))

ipguide2ip.sh

bb -e '(clojure.java.shell.sh "curl" "-6" "-sL" "ip.guide")' | bb --stream '(:out *input*)' | bb --stream '(cheshire.core.parse-string *input* true)' | bb --stream '(println (:ip *input*))'

# bb -e '(curl/get "ip.guide" {:headers {"Accept" "application/json"}})' | bb -I '(cheshire.core.parse-string (:body (first *input*)) true)' | bb -I '(println (:ip (first *input*)))'
# bb -e '(curl/get "ip.guide" {:headers {"Accept" "application/json"}})' | bb --stream '(cheshire.core.parse-string (:body *input*) true)' | bb --stream '(println (:ip *input*))'