about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-09-10 18:28:18 -0500
committerCase Duckworth2021-09-10 18:28:18 -0500
commit84c35ed863e55ead381262508f8c14c17a8ea027 (patch)
tree6bae16b4f6271e5304c876ad36097e33ec600ffa
parentAdd browse-url-browser-function (diff)
downloademacs-84c35ed863e55ead381262508f8c14c17a8ea027.tar.gz
emacs-84c35ed863e55ead381262508f8c14c17a8ea027.zip
Add /shorten command for circe
-rw-r--r--init.el6
1 files changed, 6 insertions, 0 deletions
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!!!"
262 (with-current-buffer buf 262 (with-current-buffer buf
263 (kill-buffer)))))) 263 (kill-buffer))))))
264 264
265 (defun circe-command-SHORTEN (url)
266 "Shorten URL using `0x0-shorten-uri'."
267 (interactive "sURL to shorten: ")
268 (let ((short-url (0x0-shorten-uri (0x0--choose-server) url)))
269 (circe-command-SAY short-url)))
270
265 (:with-mode circe-chat-mode 271 (:with-mode circe-chat-mode
266 (:hook #'acdw/stop-paren-annoyances 272 (:hook #'acdw/stop-paren-annoyances
267 #'enable-circe-color-nicks 273 #'enable-circe-color-nicks