From 84c35ed863e55ead381262508f8c14c17a8ea027 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 10 Sep 2021 18:28:18 -0500
Subject: Add /shorten command for circe

---
 init.el | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 801765b..1de412e 100644
--- a/init.el
+++ b/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
-- 
cgit 1.4.1-21-gabe81