Lots o changes at work

I need to fix +circe-define-filter or something

1 files changed, 11 insertions, 2 deletions

@@ -245,6 +245,14 @@ can easily remove elements.")
          match))
      text)))
 
+(defun +circe-shorten-urls-all ()
+  "Turn on `+circe-shorten-url-mode' in all chat buffers."
+  (interactive)
+  (+mapc-some-buffers
+   (lambda () (+circe-shorten-url-mode +1))
+   (lambda (buf)
+     (derived-mode-p 'circe-chat-mode))))
+
 ;; Temperature conversion
 
 (+circe-define-filter +circe-F/C-mode
@@ -261,12 +269,13 @@ can easily remove elements.")
   (round (+ 32 (* (/ 9.0 5.0) degc))))
 
 (defun str-F/C (text)
-  (replace-regexp-in-string "[0-9.]+[Ff]"
+  (replace-regexp-in-string "[^.]\\([[:digit:]]+\\(?:\\.[[:digit:]]+\\)?[fF]\\)"
                             (lambda (match)
                               (format "%s/%dC" match
                                       (fahrenheit-to-celsius
                                        (string-to-number match))))
-                            text))
+                            text
+                            nil 1))
 
 (provide '+circe)
 ;;; +circe.el ends here