about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--users/tazjin/emacs/config/desktop.el15
1 files changed, 8 insertions, 7 deletions
diff --git a/users/tazjin/emacs/config/desktop.el b/users/tazjin/emacs/config/desktop.el
index 8e7a94f96249..b099b573aeb3 100644
--- a/users/tazjin/emacs/config/desktop.el
+++ b/users/tazjin/emacs/config/desktop.el
@@ -94,13 +94,14 @@
     ;; "Quassel IRC - ##tvl (Freenode) โ€” Quassel IRC"
     (`("quassel" ,title)
      (progn
-       (string-match
-        (rx "Quassel IRC - "
-            (group (one-or-more (any alnum "&" "-" "#"))) ;; <-- channel name
-            " (" (group (one-or-more (any ascii space))) ")" ;; <-- network name
-            " โ€” Quassel IRC")
-        title)
-       (format "Quassel<%s>" (match-string 2 title))))
+       (if (string-match
+            (rx "Quassel IRC - "
+                (group (one-or-more (any alnum "[" "]" "&" "-" "#"))) ;; <-- channel name
+                " (" (group (one-or-more (any ascii space))) ")" ;; <-- network name
+                " โ€” Quassel IRC")
+            title)
+           (format "Quassel<%s>" (match-string 2 title))
+         title)))
 
     ;; For any other application, a name is constructed from the
     ;; window's class and name.