From e4f7ed9609d85f80f3f54dae7485f06a49fc4d3c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 11 Jan 2022 16:01:03 -0600
Subject: Lots o changes at work

I need to fix +circe-define-filter or something
---
 lisp/+circe.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'lisp/+circe.el')

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.")
          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
-- 
cgit 1.4.1-21-gabe81