Add /shorten command for circe

init.el

@@ -262,6 +262,12 @@ AKA, DO NOT USE THIS FUNCTION!!!"
                  (with-current-buffer buf
                    (kill-buffer))))))
 
+  (defun circe-command-SHORTEN (url)
+    "Shorten URL using `0x0-shorten-uri'."
+    (interactive "sURL to shorten: ")
+    (let ((short-url (0x0-shorten-uri (0x0--choose-server) url)))
+      (circe-command-SAY short-url)))
+
   (:with-mode circe-chat-mode
     (:hook  #'acdw/stop-paren-annoyances
             #'enable-circe-color-nicks