From 28d11fd0e8db7fb7456ebd285174822b2056e645 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 20 Apr 2022 10:44:51 -0500
Subject: bleh

---
 lisp/+ace-window.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

(limited to 'lisp/+ace-window.el')

diff --git a/lisp/+ace-window.el b/lisp/+ace-window.el
index fca27d9..9e631a2 100644
--- a/lisp/+ace-window.el
+++ b/lisp/+ace-window.el
@@ -10,15 +10,21 @@
   ;; This is stolen from ace-window.el but with the mode-line stuff ripped out.
   :global t
   (if +ace-window-display-mode
-      (progn
+      (progn                            ; Enable
         (aw-update)
         (force-mode-line-update t)
         (add-hook 'window-configuration-change-hook 'aw-update)
         (add-hook 'after-make-frame-functions 'aw--after-make-frame t)
         (advice-add 'aw--lead-overlay :override 'ignore))
-    (remove-hook 'window-configuration-change-hook 'aw-update)
-    (remove-hook 'after-make-frame-functions 'aw--after-make-frame)
-    (advice-remove 'aw--lead-overlay 'ignore)))
+    (progn                              ; Disable
+      (remove-hook 'window-configuration-change-hook 'aw-update)
+      (remove-hook 'after-make-frame-functions 'aw--after-make-frame)
+      (advice-remove 'aw--lead-overlay 'ignore))))
+
+;; (defun +ace-window--mode-line-hint (path leaf)
+;;   (let ((wnd (cdr leaf)))
+;;     (with-selected-window wnd
+;;       ())))
 
 ;;;###autoload
 (defun +ace-window-or-switch-buffer (arg)
@@ -30,8 +36,5 @@ Switch to most recent buffer otherwise."
       (switch-to-buffer nil)
     (ace-window arg)))
 
-(defun +ace-window@disable-overlay (_fn &rest _args)
-  "ADVICE for FN `aw--lead-overlay' (and ARGS) to not show overlays.")
-
 (provide '+ace-window)
 ;;; +ace-window.el ends here
-- 
cgit 1.4.1-21-gabe81