14 lines
603 B
EmacsLisp
14 lines
603 B
EmacsLisp
(setq doom-theme 'doom-gruvbox)
|
|
|
|
(defun posframe-poshandler-window-top-center-offset (info)
|
|
"Posframe's position handler.
|
|
|
|
Get a position which let posframe stay onto current window's
|
|
top center. The structure of INFO can be found in docstring of
|
|
`posframe-show'."
|
|
(let* ((window-left (plist-get info :parent-window-left))
|
|
(window-top (plist-get info :parent-window-top))
|
|
(window-width (plist-get info :parent-window-width))
|
|
(posframe-width (plist-get info :posframe-width)))
|
|
(cons (+ window-left (/ (- window-width posframe-width) 2))
|
|
(+ window-top 48))))
|