~skin/ip-finder

1d20562d35637cf659443c34e7080972f44b8242 — Skin 4 months ago cd1ac06 main
Fixed formatting problem
2 files changed, 5 insertions(+), 2 deletions(-)

M .gitignore
M src/main.lisp
M .gitignore => .gitignore +4 -1
@@ 1,4 1,4 @@
# Lisp build files
# Lisp build (and dependency) files

*.abcl
*.fasl


@@ 8,6 8,9 @@
*.lx64fsl
*.x86f

*.exe
*.dll
*.so
# Editor save filees

*~

M src/main.lisp => src/main.lisp +1 -1
@@ 20,5 20,5 @@
              (http-get #'dexador:get)
              (url "https://icanhazip.com"))
    "Get my IP address."
    (let ((ip (string-trim "\n\t " (funcall http-get url))))
    (let ((ip (string-trim #(#\Return #\Newline #\Tab #\Space) (funcall http-get url))))
      (format out-stream "ip: ~A" (cl-yaml:emit-to-string ip))))
\ No newline at end of file