jessieh/dot-emacs
jessieh/dot-emacs
1
Fork 0
Code

Set line-spacing for corfu and eshell

Browse Source
This commit is contained in:
Jessie Hildebrandt 2022-12-29 20:39:19 -05:00
parent dc00cd351a
commit 0efe1a5c48
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
init.el
View File

@ -481,7 +481,8 @@ DOCSTRING is an optional form that is discarded upon expansion."
(user/abbrev-path (eshell/pwd))) (user/abbrev-path (eshell/pwd)))
:unique))) :unique)))
(eshell-mode-hook . (lambda () (eshell-mode-hook . (lambda ()
(setq-local global-hl-line-mode nil (setq-local line-spacing 0.15
global-hl-line-mode nil
tab-line-tabs-function #'tab-line-tabs-mode-buffers) tab-line-tabs-function #'tab-line-tabs-mode-buffers)
(tab-line-mode))) (tab-line-mode)))
:bind :bind
@ -912,6 +913,11 @@ DOCSTRING is an optional form that is discarded upon expansion."
(global-corfu-mode) (global-corfu-mode)
:config :config
(corfu-popupinfo-mode) (corfu-popupinfo-mode)
;; Set `line-spacing' to a custom value in corfu buffers for some
;; added visual separation between completion candidates
(advice-add 'corfu--make-buffer :around (lambda (orig-fun &rest args)
(let ((line-spacing 0.2))
(apply orig-fun args))))
:custom :custom
(corfu-auto t "Automatically display popups wherever available") (corfu-auto t "Automatically display popups wherever available")
(corfu-min-width 20 "Ensure completion popups are at least 20 columns wide") (corfu-min-width 20 "Ensure completion popups are at least 20 columns wide")