doomemacs/modules/ui/posframe/config.el
Benjamin Andresen 26d31d3b8b Cut: ui/posframe: don't set `ivy-posframe-font'
Previous value of current font + :size 18 is unexpected.
2018-04-02 22:02:08 +02:00

56 lines
2 KiB
EmacsLisp

;;; ui/posframe/config.el -*- lexical-binding: t; -*-
(def-package! posframe
:defer t
:config
(add-hook 'doom-cleanup-hook #'posframe-delete-all)
(add-hook 'doom-escape-hook #'+posframe|delete-on-escape))
(def-package! company-childframe
:when (featurep! :completion company)
:when EMACS26+
:after company
:config
(setq company-childframe-notification nil)
(company-childframe-mode 1)
(after! desktop
(push '(company-childframe-mode . nil) desktop-minor-mode-table)))
(def-package! ivy-posframe
:when (featurep! :completion ivy)
:when EMACS26+
:after ivy
:preface
;; This function searches the entire `obarray' just to populate
;; `ivy-display-functions-props'. There are 15k entries in mine! This is
;; wasteful, so...
(advice-add #'ivy-posframe-setup :override #'ignore)
:config
;; ... let's do it manually
(dolist (fn (list 'ivy-posframe-display-at-frame-bottom-left
'ivy-posframe-display-at-frame-center
'ivy-posframe-display-at-point
'ivy-posframe-display-at-frame-bottom-window-center
'ivy-posframe-display
'ivy-posframe-display-at-window-bottom-left
'ivy-posframe-display-at-window-center
'+posframe-ivy-display-at-frame-center-near-bottom))
(push (list fn :cleanup 'ivy-posframe-cleanup) ivy-display-functions-props))
(push '(t . +posframe-ivy-display-at-frame-center-near-bottom) ivy-display-functions-alist)
;; posframe doesn't work well with async sources
(dolist (fn '(swiper counsel-rg counsel-ag counsel-pt counsel-grep counsel-git-grep))
(push (cons fn nil) ivy-display-functions-alist))
(ivy-posframe-enable)
(setq ivy-height 16
ivy-fixed-height-minibuffer nil
ivy-posframe-parameters `((min-width . 90)
(min-height . ,ivy-height)
(internal-border-width . 10))))
;; TODO helm-posframe?