57 lines
2.0 KiB
EmacsLisp
57 lines
2.0 KiB
EmacsLisp
;;; completion/helm/autoload/posframe.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun +helm-poshandler-frame-center-near-bottom-fn (info)
|
|
"Display the child frame in the center of the frame, slightly closer to the
|
|
bottom, which is easier on the eyes on big displays."
|
|
(let ((parent-frame (plist-get info :parent-frame))
|
|
(pos (posframe-poshandler-frame-center info)))
|
|
(cons (car pos)
|
|
(truncate (/ (frame-pixel-height parent-frame)
|
|
2)))))
|
|
|
|
(defvar +helm--posframe-buffer nil)
|
|
;;;###autoload
|
|
(defun +helm-posframe-display-fn (buffer &optional _resume)
|
|
"TODO"
|
|
(setq helm--buffer-in-new-frame-p t)
|
|
(let ((params (copy-sequence +helm-posframe-parameters)))
|
|
(let-alist params
|
|
(require 'posframe)
|
|
(posframe-show
|
|
(setq +helm--posframe-buffer buffer)
|
|
:position (point)
|
|
:poshandler +helm-posframe-handler
|
|
:respect-header-line helm-echo-input-in-header-line
|
|
:min-width
|
|
(max (cl-typecase .width
|
|
(integer .width)
|
|
(float (truncate (* (frame-width) .width)))
|
|
(function (funcall .width))
|
|
(t 0))
|
|
.min-width)
|
|
:min-height
|
|
(max (cl-typecase .height
|
|
(integer .height)
|
|
(float (truncate (* (frame-height) .height)))
|
|
(function (funcall .height))
|
|
(t 0))
|
|
.min-height)
|
|
:override-parameters
|
|
(dolist (p '(width height min-width min-height) params)
|
|
(setq params (delq (assq p params) params)))))
|
|
;;
|
|
(unless (or (null +helm-posframe-text-scale)
|
|
(= +helm-posframe-text-scale 0))
|
|
(with-current-buffer buffer
|
|
(text-scale-set +helm-posframe-text-scale)))))
|
|
|
|
;;;###autoload
|
|
(defun +helm-posframe-cleanup-h ()
|
|
"TODO"
|
|
;; Ensure focus is properly returned to the underlying window. This gives the
|
|
;; modeline a chance to refresh.
|
|
(switch-to-buffer +helm--posframe-buffer t))
|
|
|
|
(add-hook 'helm-cleanup-hook #'+helm-posframe-cleanup-h)
|