ian/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Emacs window navigation stumpsom integration

Browse source
This commit is contained in:
Ian Keane 2026-09-05 20:54:09 -04:00
parent 20bcc0d97f
commit a64efec920
2 changed files with 56 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

39
emacs-config.org
View file

@ -428,6 +428,45 @@ at the tab level rather than with a dedicated workspace package.
(ace-window arg)
))
#+end_src
*** StumpWM-aware window navigation
=s-h/j/k/l= (mod+hjkl) move between Emacs windows using =windmove=. When
there's no further Emacs window in that direction (i.e. we're at the edge of
Emacs's frame), the command instead shells out to StumpWM via =stumpish= to
move focus to the next tiled frame in that direction — so navigation flows
seamlessly out of Emacs and into the rest of the WM using the same keys
StumpWM itself binds to =s-h/j/k/l=.
#+begin_src emacs-lisp
(defvar stumpwm-stumpish-path
(expand-file-name "~/.stumpwm.d/modules/util/stumpish/stumpish")
"Path to the stumpish binary used to talk to a running StumpWM.")
(defun stumpwm-move-focus (direction)
"Ask StumpWM to move focus to the frame in DIRECTION (\"left\" \"right\" \"up\" \"down\").
No-op on macOS (or anywhere StumpWM isn't running/available)."
(when (and (not IS-MACOS)
(file-executable-p stumpwm-stumpish-path))
(call-process stumpwm-stumpish-path nil nil nil
(concat "move-focus " direction))))
(defun stumpwm-windmove-or-escape (windmove-fn direction)
"Call WINDMOVE-FN; if it errors (no Emacs window in DIRECTION),
fall through to StumpWM and move focus to the next tiled frame there."
(condition-case nil
(funcall windmove-fn)
(error (stumpwm-move-focus direction))))
(defun stumpwm-windmove-left () (interactive) (stumpwm-windmove-or-escape #'windmove-left "left"))
(defun stumpwm-windmove-right () (interactive) (stumpwm-windmove-or-escape #'windmove-right "right"))
(defun stumpwm-windmove-up () (interactive) (stumpwm-windmove-or-escape #'windmove-up "up"))
(defun stumpwm-windmove-down () (interactive) (stumpwm-windmove-or-escape #'windmove-down "down"))
(global-set-key (kbd "s-h") #'stumpwm-windmove-left)
(global-set-key (kbd "s-j") #'stumpwm-windmove-down)
(global-set-key (kbd "s-k") #'stumpwm-windmove-up)
(global-set-key (kbd "s-l") #'stumpwm-windmove-right)
#+end_src
** Popper
Transient/popup buffers — terminals, help, compilation, messages — are managed
by popper, which tracks them as a group and lets you cycle or dismiss them