149b2617b0
This is second of three big naming convention changes. In this commit,
we change the naming conventions for hook functions and variable
functions:
1. Replace the bar | to indicate a hook function with a -h suffix, e.g.
doom|init-ui -> doom-init-ui-h
doom|run-local-var-hooks -> doom-run-local-var-hooks-h
2. And add a -fn suffix for functions meant to be set on variables,
e.g.
(setq magit-display-buffer-function #'+magit-display-buffer-fn)
See ccf327f8 for the reasoning behind these changes.
61 lines
2.2 KiB
EmacsLisp
61 lines
2.2 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 ((solaire-p (bound-and-true-p solaire-mode))
|
|
(params (copy-sequence +helm-posframe-parameters)))
|
|
(let-alist params
|
|
(require 'posframe)
|
|
(posframe-show
|
|
(setq +helm--posframe-buffer buffer)
|
|
:position (point)
|
|
:poshandler +helm-posframe-handler
|
|
:width
|
|
(max (cl-typecase .width
|
|
(integer .width)
|
|
(float (truncate (* (frame-width) .width)))
|
|
(function (funcall .width))
|
|
(t 0))
|
|
.min-width)
|
|
: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
|
|
(when (and (featurep 'solaire-mode)
|
|
(not solaire-p))
|
|
(solaire-mode +1))
|
|
(text-scale-set +helm-posframe-text-scale)))))
|
|
|
|
;;;###autoload
|
|
(defun +helm-posframe-cleanup-h ()
|
|
"TODO"
|
|
;; Ensure focus is properly returned to the underlying window, by forcing a
|
|
;; chance in buffer/window focus. This gives the modeline a chance to refresh.
|
|
(switch-to-buffer +helm--posframe-buffer t)
|
|
;;
|
|
(posframe-delete +helm--posframe-buffer))
|
|
|
|
(add-hook 'helm-cleanup-hook #'+helm-posframe-cleanup-h)
|