clisp_public_ip.lisp

(load "~/quicklisp/setup.lisp")

(ql:quickload :drakma :silent t)
(ql:quickload :cl-json :silent t)

(defmacro drakma-http-request (url &rest body)
  `(map 'string 'code-char (drakma:http-request, url ,@body)))


(defun get-public-ip()
  (cdr (assoc :ip
              (json:decode-json-from-string
               (drakma-http-request "http://ipinfo.io"
                                    :user-agent "curl")))))

(defun main()
  (format t "~a~%" (get-public-ip)))

(main)