diff options
author | Case Duckworth | 2022-04-20 10:44:51 -0500 |
---|---|---|
committer | Case Duckworth | 2022-04-20 10:44:51 -0500 |
commit | 28d11fd0e8db7fb7456ebd285174822b2056e645 (patch) | |
tree | 796fd191a1d084918ac7053ef7a8d909b00985e9 /lisp/+ace-window.el | |
parent | Don't indicate buffer boundaries (diff) | |
download | emacs-28d11fd0e8db7fb7456ebd285174822b2056e645.tar.gz emacs-28d11fd0e8db7fb7456ebd285174822b2056e645.zip |
bleh
Diffstat (limited to 'lisp/+ace-window.el')
-rw-r--r-- | lisp/+ace-window.el | 17 |
1 files changed, 10 insertions, 7 deletions
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 @@ | |||
10 | ;; This is stolen from ace-window.el but with the mode-line stuff ripped out. | 10 | ;; This is stolen from ace-window.el but with the mode-line stuff ripped out. |
11 | :global t | 11 | :global t |
12 | (if +ace-window-display-mode | 12 | (if +ace-window-display-mode |
13 | (progn | 13 | (progn ; Enable |
14 | (aw-update) | 14 | (aw-update) |
15 | (force-mode-line-update t) | 15 | (force-mode-line-update t) |
16 | (add-hook 'window-configuration-change-hook 'aw-update) | 16 | (add-hook 'window-configuration-change-hook 'aw-update) |
17 | (add-hook 'after-make-frame-functions 'aw--after-make-frame t) | 17 | (add-hook 'after-make-frame-functions 'aw--after-make-frame t) |
18 | (advice-add 'aw--lead-overlay :override 'ignore)) | 18 | (advice-add 'aw--lead-overlay :override 'ignore)) |
19 | (remove-hook 'window-configuration-change-hook 'aw-update) | 19 | (progn ; Disable |
20 | (remove-hook 'after-make-frame-functions 'aw--after-make-frame) | 20 | (remove-hook 'window-configuration-change-hook 'aw-update) |
21 | (advice-remove 'aw--lead-overlay 'ignore))) | 21 | (remove-hook 'after-make-frame-functions 'aw--after-make-frame) |
22 | (advice-remove 'aw--lead-overlay 'ignore)))) | ||
23 | |||
24 | ;; (defun +ace-window--mode-line-hint (path leaf) | ||
25 | ;; (let ((wnd (cdr leaf))) | ||
26 | ;; (with-selected-window wnd | ||
27 | ;; ()))) | ||
22 | 28 | ||
23 | ;;;###autoload | 29 | ;;;###autoload |
24 | (defun +ace-window-or-switch-buffer (arg) | 30 | (defun +ace-window-or-switch-buffer (arg) |
@@ -30,8 +36,5 @@ Switch to most recent buffer otherwise." | |||
30 | (switch-to-buffer nil) | 36 | (switch-to-buffer nil) |
31 | (ace-window arg))) | 37 | (ace-window arg))) |
32 | 38 | ||
33 | (defun +ace-window@disable-overlay (_fn &rest _args) | ||
34 | "ADVICE for FN `aw--lead-overlay' (and ARGS) to not show overlays.") | ||
35 | |||
36 | (provide '+ace-window) | 39 | (provide '+ace-window) |
37 | ;;; +ace-window.el ends here | 40 | ;;; +ace-window.el ends here |