diff --git a/modules/ui/posframe/autoload.el b/modules/ui/posframe/autoload.el index 45ecab756..7ff93493b 100644 --- a/modules/ui/posframe/autoload.el +++ b/modules/ui/posframe/autoload.el @@ -10,4 +10,13 @@ "TODO" (let ((pos (posframe-poshandler-frame-center info))) (cons (car pos) - (truncate (* (cdr pos) 1.60))))) + (truncate (* (cdr pos) 1.4))))) + +;;;###autoload +(defun +posframe|delete-on-escape () + "TODO" + (when (cl-loop for frame in (frame-list) + if (and (frame-parameter frame 'posframe-buffer) + (not (frame-visible-p frame))) + return t) + (posframe-delete-all))) diff --git a/modules/ui/posframe/config.el b/modules/ui/posframe/config.el index a92eca480..8fcb2d9fc 100644 --- a/modules/ui/posframe/config.el +++ b/modules/ui/posframe/config.el @@ -7,7 +7,7 @@ (def-package! posframe :defer t :config - (setq posframe-inhibit-double-buffering t)) + (add-hook 'doom-escape-hook #'+posframe|delete-on-escape)) (def-package! company-childframe