You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
64 lines
2.5 KiB
64 lines
2.5 KiB
;;; ace-window-posframe.el --- posframe support for ace-window -*- lexical-binding: t -*- |
|
|
|
;; Copyright (C) 2015-2022 Free Software Foundation, Inc. |
|
|
|
(require 'ace-window) |
|
|
|
;; Suppress warnings |
|
(declare-function posframe-poshandler-window-center "ext:posframe") |
|
(declare-function posframe-show "ext:posframe") |
|
(declare-function posframe-hide "ext:posframe") |
|
(declare-function posframe-workable-p "ext:posframe") |
|
|
|
(defvar aw--posframe-frames '()) |
|
|
|
(defvar aw-posframe-position-handler #'posframe-poshandler-window-center) |
|
|
|
(defun aw--lead-overlay-posframe (path leaf) |
|
(let* ((wnd (cdr leaf)) |
|
(str (format "%s" (apply #'string path))) |
|
;; It's important that buffer names are not unique across |
|
;; multiple invocations: posframe becomes very slow when |
|
;; creating new frames, and so being able to reuse old ones |
|
;; makes a huge difference. What defines "able to reuse" is |
|
;; something like: a frame exists which hasn't been deleted |
|
;; (with posframe-delete) and has the same configuration as |
|
;; the requested new frame. |
|
(bufname (format " *aw-posframe-buffer-%s*" path))) |
|
(with-selected-window wnd |
|
(push bufname aw--posframe-frames) |
|
(posframe-show bufname |
|
:string str |
|
:poshandler aw-posframe-position-handler |
|
:font (face-font 'aw-leading-char-face) |
|
:foreground-color (face-foreground 'aw-leading-char-face nil t) |
|
:background-color (face-background 'aw-leading-char-face nil t))))) |
|
|
|
(defun aw--remove-leading-chars-posframe () |
|
;; Hide rather than delete. See aw--lead-overlay-posframe for why. |
|
(mapc #'posframe-hide aw--posframe-frames) |
|
(setq aw--posframe-frames nil)) |
|
|
|
(defun ace-window-posframe-enable () |
|
(unless (and (require 'posframe nil t) (posframe-workable-p)) |
|
(error "Posframe is not workable")) |
|
|
|
(setq aw--lead-overlay-fn #'aw--lead-overlay-posframe) |
|
(setq aw--remove-leading-chars-fn #'aw--remove-leading-chars-posframe)) |
|
|
|
(defun ace-window-posframe-disable () |
|
(setq aw--lead-overlay-fn #'aw--lead-overlay) |
|
(setq aw--remove-leading-chars-fn #'aw--remove-leading-chars)) |
|
|
|
;;;###autoload |
|
(define-minor-mode ace-window-posframe-mode |
|
"Minor mode for showing the ace window key with child frames." |
|
:global t |
|
:require 'ace-window |
|
:group 'ace-window |
|
:init-value nil |
|
(if ace-window-posframe-mode |
|
(ace-window-posframe-enable) |
|
(ace-window-posframe-disable))) |
|
|
|
(provide 'ace-window-posframe)
|
|
|