diff --git a/config-exwm.org b/config-exwm.org index 2d05fc6..918a44b 100644 --- a/config-exwm.org +++ b/config-exwm.org @@ -11,6 +11,7 @@ (require 'side-window-split) (define-key *window-map* (kbd "j") 'side-bottom-window) (define-key *window-map* (kbd "h") 'side-left-window) + (define-key *window-map* (kbd "k") 'side-top-window) (define-key *window-map* (kbd "l") 'side-right-window) (define-key *window-map* (kbd "d") 'side-window-delete-all) (define-key *window-map* (kbd "r") 'resize-window) diff --git a/lisp/side-window-split.el b/lisp/side-window-split.el index 98d6c48..42f82a8 100644 --- a/lisp/side-window-split.el +++ b/lisp/side-window-split.el @@ -53,6 +53,10 @@ (interactive) (side-window-op 'bottom (incf bottom-side-window-count))) +(defun side-top-window () + (interactive) + (side-window-op 'top (incf bottom-side-window-count))) + (defun side-window-delete-all () (interactive) (setq left-side-window-count -1