diff options
| -rw-r--r-- | users/tazjin/emacs/config/desktop.el | 15 |
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. |