diff options
| author | Mountain Man <43313373+MountainMan1312@users.noreply.github.com> | 2023-08-01 01:57:15 -0400 |
|---|---|---|
| committer | Mountain Man <43313373+MountainMan1312@users.noreply.github.com> | 2023-08-01 01:57:15 -0400 |
| commit | b5b1792e8159da69c12cfe5cc6e80d31564d251f (patch) | |
| tree | a48ea0e1d5151767437a0cdc49c7143fb2a25971 | |
| parent | Remove EXWM named workspaces - didn't work (diff) | |
| download | mmosmacs-b5b1792e8159da69c12cfe5cc6e80d31564d251f.tar.gz mmosmacs-b5b1792e8159da69c12cfe5cc6e80d31564d251f.tar.bz2 mmosmacs-b5b1792e8159da69c12cfe5cc6e80d31564d251f.zip | |
Re-implement named EXWM workspaces the right way
| -rw-r--r-- | init.el | 8 |
1 files changed, 8 insertions, 0 deletions
| @@ -175,6 +175,14 @@ | |||
| 175 | :config | 175 | :config |
| 176 | (require 'exwm-config) | 176 | (require 'exwm-config) |
| 177 | (setq exwm-workspace-number 4 | 177 | (setq exwm-workspace-number 4 |
| 178 | exwm-workspace-index-map (lambda (index) | ||
| 179 | (let ((named-workspaces ["0:Admin" | ||
| 180 | "1:Agenda" | ||
| 181 | "2:KB" | ||
| 182 | "3:IDE"])) | ||
| 183 | (if (< index (length named-workspaces)) | ||
| 184 | (elt named-workspaces index) | ||
| 185 | (number-to-string index)))) | ||
| 178 | exwm-input-prefix-keys '(?\C-h | 186 | exwm-input-prefix-keys '(?\C-h |
| 179 | ?\C-u | 187 | ?\C-u |
| 180 | ?\C-x | 188 | ?\C-x |