From 2e6e06642d668f6fd667d95bd43c3d8e81823943 Mon Sep 17 00:00:00 2001
From: Ravi R Kiran <aine.marina@gmail.com>
Date: Sun, 30 Aug 2015 22:17:52 -0700
Subject: Sometimes the dispatch list does come in handy

How can we make it display the dispatch alist as help?

diff --git a/lisp/ravi-init-appearance.el b/lisp/ravi-init-appearance.el
index 80c4d8a..af0d411 100644
--- a/lisp/ravi-init-appearance.el
+++ b/lisp/ravi-init-appearance.el
@@ -351,7 +351,8 @@ Delete all whitespace on a successive key press."
   :ensure t)
 
 (use-package ace-window
-  :bind (("M-o" . ace-window))
+  :bind (("M-o" . ace-window)
+         ("M-O" . ravi/dispatched-ace-window))
   :config
   (progn
     (set-face-attribute 'aw-leading-char-face nil :foreground "deep sky blue" :weight 'bold :height 3.0)
@@ -370,6 +371,12 @@ Delete all whitespace on a successive key press."
             (?u winner-undo)
             (?r winner-redo)))
 
+    (defun ravi/dispatched-ace-window (arg)
+      "Select window with dispatch always present"
+      (interactive "p")
+      (let ((aw-dispatch-always t))
+        (ace-window arg)))
+
     (when (package-installed-p 'hydra)
       (defhydra hydra-window-size (:color red)
         "Windows size"
-- 
cgit v0.10.1