diff options
Diffstat (limited to 'lisp/+circe.el')
-rw-r--r-- | lisp/+circe.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lisp/+circe.el b/lisp/+circe.el index 3d6ea60..a8db1ec 100644 --- a/lisp/+circe.el +++ b/lisp/+circe.el | |||
@@ -245,6 +245,14 @@ can easily remove elements.") | |||
245 | match)) | 245 | match)) |
246 | text))) | 246 | text))) |
247 | 247 | ||
248 | (defun +circe-shorten-urls-all () | ||
249 | "Turn on `+circe-shorten-url-mode' in all chat buffers." | ||
250 | (interactive) | ||
251 | (+mapc-some-buffers | ||
252 | (lambda () (+circe-shorten-url-mode +1)) | ||
253 | (lambda (buf) | ||
254 | (derived-mode-p 'circe-chat-mode)))) | ||
255 | |||
248 | ;; Temperature conversion | 256 | ;; Temperature conversion |
249 | 257 | ||
250 | (+circe-define-filter +circe-F/C-mode | 258 | (+circe-define-filter +circe-F/C-mode |
@@ -261,12 +269,13 @@ can easily remove elements.") | |||
261 | (round (+ 32 (* (/ 9.0 5.0) degc)))) | 269 | (round (+ 32 (* (/ 9.0 5.0) degc)))) |
262 | 270 | ||
263 | (defun str-F/C (text) | 271 | (defun str-F/C (text) |
264 | (replace-regexp-in-string "[0-9.]+[Ff]" | 272 | (replace-regexp-in-string "[^.]\\([[:digit:]]+\\(?:\\.[[:digit:]]+\\)?[fF]\\)" |
265 | (lambda (match) | 273 | (lambda (match) |
266 | (format "%s/%dC" match | 274 | (format "%s/%dC" match |
267 | (fahrenheit-to-celsius | 275 | (fahrenheit-to-celsius |
268 | (string-to-number match)))) | 276 | (string-to-number match)))) |
269 | text)) | 277 | text |
278 | nil 1)) | ||
270 | 279 | ||
271 | (provide '+circe) | 280 | (provide '+circe) |
272 | ;;; +circe.el ends here | 281 | ;;; +circe.el ends here |