diff options
| author | Ravi R Kiran <aine.marina@gmail.com> | 2017-05-09 02:48:04 (GMT) |
|---|---|---|
| committer | Ravi R Kiran <aine.marina@gmail.com> | 2017-05-09 02:48:04 (GMT) |
| commit | d7417725c4945ffb25851387f16105b4cde3c48f (patch) | |
| tree | 8b0364fe90ab0270bd578e23f1dcaacfd7f56424 | |
| parent | 3865ad9cda55e2520d808badd4e65c7aaed01e3b (diff) | |
| download | dotemacs-d7417725c4945ffb25851387f16105b4cde3c48f.zip dotemacs-d7417725c4945ffb25851387f16105b4cde3c48f.tar.gz dotemacs-d7417725c4945ffb25851387f16105b4cde3c48f.tar.bz2 | |
Convenience for switching to MRU window
| -rw-r--r-- | lisp/ravi-init-appearance.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/ravi-init-appearance.el b/lisp/ravi-init-appearance.el index f9b50bc..c646498 100644 --- a/lisp/ravi-init-appearance.el +++ b/lisp/ravi-init-appearance.el @@ -361,6 +361,14 @@ Delete all whitespace on a successive key press." ("M-O" . ravi/dispatched-ace-window)) :config (progn + (defun ravi/switch-to-last-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-set-input-focus frame) + (select-window win)))) (set-face-attribute 'aw-leading-char-face nil :foreground "deep sky blue" :weight 'bold :height 3.0) (set-face-attribute 'aw-mode-line-face nil :inherit 'mode-line-buffer-id :foreground "lawn green") (setq aw-keys '(?d ?f ?g ?h ?j ?k ?l ?i ?e) @@ -369,6 +377,7 @@ Delete all whitespace on a successive key press." '((?x aw-delete-window "Ace - Delete Window") (?c aw-swap-window "Ace - Swap Window") (?n aw-flip-window) + (?\r ravi/switch-to-last-window) (?v aw-split-window-vert "Ace - Split Vert Window") (?h aw-split-window-horz "Ace - Split Horz Window") (?m delete-other-windows "Ace - Maximize Window") |