summary refs log tree commit diff stats
path: root/lisp/+ace-window.el
diff options
context:
space:
mode:
authorCase Duckworth2022-10-17 21:41:28 -0500
committerCase Duckworth2022-10-17 21:41:28 -0500
commitaab5bfd074e57d06a79e39d7c7c4760e1f385a06 (patch)
tree7b111190a44458a970355f7a327cc5278c850293 /lisp/+ace-window.el
parentasoi (diff)
downloademacs-aab5bfd074e57d06a79e39d7c7c4760e1f385a06.tar.gz
emacs-aab5bfd074e57d06a79e39d7c7c4760e1f385a06.zip
Bankruptcy 9
Diffstat (limited to 'lisp/+ace-window.el')
-rw-r--r--lisp/+ace-window.el40
1 files changed, 0 insertions, 40 deletions
diff --git a/lisp/+ace-window.el b/lisp/+ace-window.el deleted file mode 100644 index 9e631a2..0000000 --- a/lisp/+ace-window.el +++ /dev/null
@@ -1,40 +0,0 @@
1;;; +ace-window.el -*- lexical-binding: t; -*-
2
3;;; Code:
4
5(require 'ace-window)
6
7;;;###autoload
8(define-minor-mode +ace-window-display-mode
9 "Minor mode for updating data for `+modeline-ace-window-display'."
10 ;; This is stolen from ace-window.el but with the mode-line stuff ripped out.
11 :global t
12 (if +ace-window-display-mode
13 (progn ; Enable
14 (aw-update)
15 (force-mode-line-update t)
16 (add-hook 'window-configuration-change-hook 'aw-update)
17 (add-hook 'after-make-frame-functions 'aw--after-make-frame t)
18 (advice-add 'aw--lead-overlay :override 'ignore))
19 (progn ; Disable
20 (remove-hook 'window-configuration-change-hook 'aw-update)
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;; ())))
28
29;;;###autoload
30(defun +ace-window-or-switch-buffer (arg)
31 "Call `ace-window' with ARG if more than one window is visible.
32Switch to most recent buffer otherwise."
33 ;; cribbed from `crux-other-window-or-switch-buffer'
34 (interactive "p")
35 (if (one-window-p)
36 (switch-to-buffer nil)
37 (ace-window arg)))
38
39(provide '+ace-window)
40;;; +ace-window.el ends here