summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el3
-rw-r--r--lisp/acdw-circe.el10
2 files changed, 11 insertions, 2 deletions
diff --git a/init.el b/init.el index 26848c3..edfbda6 100644 --- a/init.el +++ b/init.el
@@ -1056,7 +1056,8 @@ specific to most general, they are these:
1056 #'enable-circe-color-nicks 1056 #'enable-circe-color-nicks
1057 ;; #'enable-circe-display-images 1057 ;; #'enable-circe-display-images
1058 #'enable-circe-new-day-notifier 1058 #'enable-circe-new-day-notifier
1059 #'circe-chat@set-prompt)) 1059 #'circe-chat@set-prompt)
1060 (:bind "C-c C-s" #'circe-command-SLAP))
1060 1061
1061 (autoload 'circe-nick-color-reset "circe-color-nicks") 1062 (autoload 'circe-nick-color-reset "circe-color-nicks")
1062 (add-hook 'modus-themes-after-load-theme-hook 1063 (add-hook 'modus-themes-after-load-theme-hook
diff --git a/lisp/acdw-circe.el b/lisp/acdw-circe.el index e85587b..d6f5b90 100644 --- a/lisp/acdw-circe.el +++ b/lisp/acdw-circe.el
@@ -9,6 +9,7 @@
9(require 'circe) 9(require 'circe)
10 10
11;;; Chat commands 11;;; Chat commands
12
12(defun circe-command-SHORTEN (url) 13(defun circe-command-SHORTEN (url)
13 "Shorten URL using `0x0-shorten-uri'." 14 "Shorten URL using `0x0-shorten-uri'."
14 (interactive "sURL to shorten: ") 15 (interactive "sURL to shorten: ")
@@ -17,11 +18,18 @@
17 (let ((short-url (0x0-shorten-uri (0x0--choose-server) url))) 18 (let ((short-url (0x0-shorten-uri (0x0--choose-server) url)))
18 (circe-command-SAY short-url))) 19 (circe-command-SAY short-url)))
19 20
21(defun circe-command-SLAP (nick)
22 "Slap NICK around a bit with a large trout."
23 (interactive "sWho we slappin' today, boss? ")
24 (circe-command-ME (concat "slaps "
25 (string-trim nick)
26 " around a bit with a large trout")))
27
20;;; Hooks 28;;; Hooks
21 29
22(defun circe-chat@set-prompt () 30(defun circe-chat@set-prompt ()
23 "Set the prompt to the buffer name, shortening it." 31 "Set the prompt to the buffer name, shortening it."
24 (interactive) ; set interactive to unfuck the prompt when need be 32 (interactive) ; set interactive to unfuck the prompt when need be
25 (lui-set-prompt 33 (lui-set-prompt
26 (propertize 34 (propertize
27 (concat 35 (concat