[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/corfu e3210e0b22 3/6: Extract buffer parameters
From: |
ELPA Syncer |
Subject: |
[elpa] externals/corfu e3210e0b22 3/6: Extract buffer parameters |
Date: |
Fri, 18 Nov 2022 09:57:26 -0500 (EST) |
branch: externals/corfu
commit e3210e0b22098ffbff1f5688896ca8d0998c00ee
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Extract buffer parameters
---
extensions/corfu-popupinfo.el | 24 ++++++++++++++----------
1 file changed, 14 insertions(+), 10 deletions(-)
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index c5d3e5c62b..89d9385b37 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -90,6 +90,16 @@
map)
"Additional keymap activated in popupinfo mode.")
+(defvar corfu-popupinfo--buffer-parameters
+ '((line-move-visual . t)
+ (truncate-partial-width-windows . nil)
+ (truncate-lines . nil)
+ (left-margin-width . 1)
+ (right-margin-width . 1)
+ (word-wrap . t)
+ (fringe-indicator-alist (continuation)))
+ "Buffer parameters.")
+
(defvar-local corfu-popupinfo--toggle t
"Local popupinfo toggle state.")
@@ -313,16 +323,10 @@ the candidate popup, its value is 'bottom, 'top, 'right
or 'left."
(when doc-changed
(if-let (doc (funcall corfu-popupinfo--function candidate))
(with-current-buffer (corfu--make-buffer " *corfu-popupinfo*" doc)
- ;; TODO extract settings
- (setq-local line-move-visual t
- truncate-partial-width-windows nil
- left-margin-width 1
- right-margin-width 1
- truncate-lines nil
- word-wrap t
- fringe-indicator-alist '((continuation))
- face-remapping-alist (copy-tree
face-remapping-alist))
- (setf (alist-get 'default face-remapping-alist)
'corfu-popupinfo))
+ (dolist (var corfu-popupinfo--buffer-parameters)
+ (set (make-local-variable (car var)) (cdr var)))
+ (setf face-remapping-alist (copy-tree face-remapping-alist)
+ (alist-get 'default face-remapping-alist)
'corfu-popupinfo))
(corfu-popupinfo--hide)
(setq doc-changed nil edges-changed nil)))
(when (or doc-changed edges-changed)
- [elpa] externals/corfu updated (21214caa8e -> 9f0cad7cd2), ELPA Syncer, 2022/11/18
- [elpa] externals/corfu 709ca22543 1/6: Fix corfu-infoframe placement (Fix #250), ELPA Syncer, 2022/11/18
- [elpa] externals/corfu edf5e1ad3d 2/6: Rename extension once more, ELPA Syncer, 2022/11/18
- [elpa] externals/corfu 51004b233a 4/6: corfu-popupinfo: Expand note ; ), ELPA Syncer, 2022/11/18
- [elpa] externals/corfu e8f6e92ba9 5/6: Cleanup corfu-popupinfo--size, ELPA Syncer, 2022/11/18
- [elpa] externals/corfu e3210e0b22 3/6: Extract buffer parameters,
ELPA Syncer <=
- [elpa] externals/corfu 9f0cad7cd2 6/6: Remove unnecessary get-buffer calls, ELPA Syncer, 2022/11/18