Add side-top-window

This commit is contained in:
Benson Chu 2020-10-08 17:34:53 -05:00
parent 6fd6303cd2
commit e7f37be376
2 changed files with 5 additions and 0 deletions

View file

@ -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)

View file

@ -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