jao-minibuffer: make room again for tray icons

1 files changed, 13 insertions, 12 deletions

diff --git a/exwm.org b/exwm.org
index ea99397..c69b485 100644
--- a/exwm.org
+++ b/exwm.org
@@ -148,18 +148,19 @@
 
   #+end_src
 * Minibuffer and system tray
-    #+BEGIN_SRC emacs-lisp
-      (require 'exwm-systemtray)
-      (exwm-systemtray-enable)
-
-      (setq jao-minibuffer-frame-width 271)
-      (add-hook 'exwm-workspace-switch-hook #'jao-minibuffer-refresh)
-
-      (defun jao-exwm--watch-tray (sym newval op where)
-        (setq jao-minibuffer-right-margin (* 2 (length newval)))
-        (jao-minibuffer-refresh))
-      (add-variable-watcher 'exwm-systemtray--list #'jao-exwm--watch-tray)
-#+END_SRC
+  #+begin_src emacs-lisp
+    (require 'exwm-systemtray)
+    (exwm-systemtray-enable)
+
+    (setq jao-minibuffer-frame-width 271)
+    (add-hook 'exwm-workspace-switch-hook #'jao-minibuffer-refresh)
+
+    (defun jao-exwm--watch-tray (sym newval op where)
+      (setq jao-minibuffer-right-margin (make-string (* 2 (length newval)) ?\ ))
+      (jao-minibuffer-refresh))
+
+    (add-variable-watcher 'exwm-systemtray--list #'jao-exwm--watch-tray)
+  #+end_src
 * Switch to buffer / app
   #+begin_src emacs-lisp
     (defvar-local jao-exwm--name nil)