From e7f37be376903241800352156b91f977f0135e5e Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Thu, 8 Oct 2020 17:34:53 -0500 Subject: [PATCH] Add side-top-window --- config-exwm.org | 1 + lisp/side-window-split.el | 4 ++++ 2 files changed, 5 insertions(+) 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