Get IP address and PID in Clojure

ip.clj

(defn ip []
  (try
    (-> (InetAddress/getLocalHost) (.getHostAddress))
    (catch Throwable __
      (->> (NetworkInterface/getNetworkInterfaces)
           (enumeration-seq)
           (xf/some
            (comp (keep (fn [^NetworkInterface network]
                          (when (and (.isUp network)
                                     (not (.isLoopback network)))
                            (.getInetAddresses network))))
                  (mapcat enumeration-seq)
                  (keep (fn [^InetAddress address]
                          (when-not (or (.isAnyLocalAddress address)
                                        (.isLoopbackAddress address)
                                        (.isMulticastAddress address))
                            (.getHostAddress address))))
                  (filter #(str/includes? % "."))))))))


(defn pid []
  (-> (ProcessHandle/current) (.pid)))