diff options
Diffstat (limited to '.config/emacs/modules/bd--exwm.el')
| -rw-r--r-- | .config/emacs/modules/bd--exwm.el | 22 |
1 files changed, 4 insertions, 18 deletions
diff --git a/.config/emacs/modules/bd--exwm.el b/.config/emacs/modules/bd--exwm.el index 6ab7c10..6542241 100644 --- a/.config/emacs/modules/bd--exwm.el +++ b/.config/emacs/modules/bd--exwm.el @@ -9,7 +9,7 @@ (require 'exwm-randr) (setopt exwm-randr-workspace-monitor-plist '(0 "HDMI-1" 1 "eDP-1") - exwm-workspace-number 2) + exwm-workspace-number 10) (add-hook 'exwm-randr-screen-change-hook (lambda () (start-process-shell-command @@ -97,7 +97,9 @@ that buffer." (use-package exwm-outer-gaps :defer 1 :config - (exwm-outer-gaps-mode 1)) + (setopt exwm-outer-gaps-mode 1 + exwm-outer-gaps-width 10) + (exwm-outer-gaps-apply)) (use-package server :defer 1 @@ -108,21 +110,5 @@ that buffer." (setopt tab-bar-select-tab-modifiers '(super)) -(defvar new-mode-line nil) -(defun set-new-mode-line () - (setq new-mode-line - (replace-regexp-in-string - "%" "%%" - (format "[%s] [%s]" - (shell-command-to-string "/home/bdunahu/.local/bin/mail-string 2>/dev/null") - (shell-command-to-string "/home/bdunahu/.local/bin/t1-string 2>/dev/null"))))) - -(defvar-local bd/external-mode-line - '(:eval (when new-mode-line - new-mode-line))) - -(run-with-timer t 30 #'set-new-mode-line) -(add-to-list 'global-mode-string bd/external-mode-line) - (provide 'bd--exwm) ;;; bd--exwm.el ends here |