modeline: Remove unicode characters in `exwm-title'.

For characters not covered by Terminus, Emacs will default to a font
with a different glyph size, making the modeline undreadable.

1 files changed, 5 insertions, 1 deletions

diff --git a/init.el b/init.el
index 59eee42..cff580e 100644
--- a/init.el
+++ b/init.el
@@ -678,11 +678,15 @@ RIGHT aligned respectively."
         (escape-mode-line-construct (concat " " left padding right))
       (concat " " left right))))
 
+(defun remove-unicode (s)
+  "Remove non-ASCII or non-printable ASCII characters from `S'."
+  (apply #'string (seq-filter #'(lambda (c) (and (>= c ? ) (<= c ?~))) s)))
+
 (setq-default mode-line-format
               '((:eval
                  (mode-line-render
                   (cond ((eq major-mode 'exwm-mode)
-                         (concat "%b: " exwm-title))
+                         (concat "%b: " (remove-unicode exwm-title)))
                         ((eq major-mode 'pdf-view-mode)
                          (concat "%b ["
                                  (number-to-string (pdf-view-current-page))