diff options
| author | Case Duckworth | 2021-09-10 18:28:18 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-10 18:28:18 -0500 |
| commit | 84c35ed863e55ead381262508f8c14c17a8ea027 (patch) | |
| tree | 6bae16b4f6271e5304c876ad36097e33ec600ffa | |
| parent | Add browse-url-browser-function (diff) | |
| download | emacs-84c35ed863e55ead381262508f8c14c17a8ea027.tar.gz emacs-84c35ed863e55ead381262508f8c14c17a8ea027.zip | |
Add /shorten command for circe
| -rw-r--r-- | init.el | 6 |
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 |