added recent window switch

This commit is contained in:
ndwarshuis 2019-04-10 17:59:30 -04:00
parent fe52b9b822
commit 760038ddf1
1 changed files with 12 additions and 0 deletions

View File

@ -257,6 +257,16 @@ If FRONT is t, do to the front of current values instead of the back."
(balance-windows)
(other-window 1))
(defun nd/switch-to-last-window ()
"Switch to most recently used window."
(interactive)
(let ((win (get-mru-window t t t)))
(unless win (error "Last window not found"))
(let ((frame (window-frame win)))
(raise-frame frame)
(select-frame frame)
(select-window win))))
(defun nd/switch-to-previous-buffer ()
"Switch the buffer to the last opened buffer."
(interactive)
@ -3371,6 +3381,7 @@ The function keys are nice because they are almost (not always) free in every mo
#+END_SRC
*** control/meta
#+BEGIN_SRC emacs-lisp
;; TODO this should not be in global map
(global-set-key (kbd "C-<SPC>") 'company-complete)
(global-set-key (kbd "C-c e") 'nd/config-visit)
@ -3398,6 +3409,7 @@ The function keys are nice because they are almost (not always) free in every mo
(global-set-key (kbd "M-w") #'ace-swap-window)
(global-set-key (kbd "M-x") 'helm-M-x)
(global-set-key (kbd "H-M-o") #'nd/switch-to-last-window)
(global-set-key (kbd "H-M-k") #'enlarge-window)
(global-set-key (kbd "H-M-j") #'shrink-window)
(global-set-key (kbd "H-M-h") #'enlarge-window-horizontally)