From d7417725c4945ffb25851387f16105b4cde3c48f Mon Sep 17 00:00:00 2001
From: Ravi R Kiran <aine.marina@gmail.com>
Date: Mon, 8 May 2017 19:48:04 -0700
Subject: Convenience for switching to MRU window


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")
-- 
cgit v0.10.1