29 lines
1.1 KiB
EmacsLisp
29 lines
1.1 KiB
EmacsLisp
;;; ui/posframe/autoloads.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun +posframe-ivy-display-at-frame-center-near-bottom (str)
|
|
"TODO"
|
|
(ivy-posframe--display str #'+posframe-poshandler-frame-center-near-bottom))
|
|
|
|
;;;###autoload
|
|
(defun +posframe-poshandler-frame-center-near-bottom (info)
|
|
"TODO"
|
|
(let* ((posframe (plist-get info :posframe))
|
|
(parent-frame (plist-get info :parent-frame)))
|
|
(let ((pos (posframe-poshandler-frame-center info)))
|
|
(cons (car pos)
|
|
(truncate (/ (frame-pixel-height parent-frame) 1.6))))))
|
|
|
|
;;;###autoload
|
|
(defun +posframe|delete-on-escape ()
|
|
"TODO"
|
|
(unless (frame-parameter (selected-frame) 'posframe-buffer)
|
|
(cl-loop for frame in (frame-list)
|
|
if (and (frame-parameter frame 'posframe-buffer)
|
|
(not (frame-visible-p frame)))
|
|
do (delete-frame frame))
|
|
(dolist (buffer (buffer-list))
|
|
(let ((frame (buffer-local-value 'posframe--frame buffer)))
|
|
(when (and frame (or (not (frame-live-p frame))
|
|
(not (frame-visible-p frame))))
|
|
(posframe--kill-buffer buffer))))))
|