[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/corfu d42fadc 1/3: Extract corfu--make-buffer function
From: |
ELPA Syncer |
Subject: |
[elpa] externals/corfu d42fadc 1/3: Extract corfu--make-buffer function |
Date: |
Sun, 11 Jul 2021 02:57:07 -0400 (EDT) |
branch: externals/corfu
commit d42fadcfed963036b1285f90865cff31f1768046
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Extract corfu--make-buffer function
---
corfu.el | 27 ++++++++++++++++-----------
1 file changed, 16 insertions(+), 11 deletions(-)
diff --git a/corfu.el b/corfu.el
index 085dad1..15f279c 100644
--- a/corfu.el
+++ b/corfu.el
@@ -243,6 +243,21 @@ filter string with spaces is allowed."
(buffer-read-only . t))
"Default child frame buffer parameters.")
+(defun corfu--make-buffer (content)
+ "Create corfu buffer with CONTENT."
+ (let ((fr face-remapping-alist)
+ (buffer (get-buffer-create " *corfu*")))
+ (with-current-buffer buffer
+ (dolist (var corfu--buffer-parameters)
+ (set (make-local-variable (car var)) (cdr var)))
+ (setq-local face-remapping-alist fr)
+ (let ((inhibit-modification-hooks t)
+ (inhibit-read-only t))
+ (erase-buffer)
+ (insert content)
+ (goto-char (point-min))))
+ buffer))
+
;; Function adapted from posframe.el by tumashu
(defun corfu--make-frame (x y width height content)
"Show child frame at X/Y with WIDTH/HEIGHT and CONTENT."
@@ -262,7 +277,6 @@ filter string with spaces is allowed."
'resize-mode)))
(after-make-frame-functions)
(edge (window-inside-pixel-edges))
- (fr face-remapping-alist)
(lh (default-line-height))
(x (max 0 (min (+ (car edge) x
(- (alist-get 'child-frame-border-width
corfu--frame-parameters)))
@@ -271,16 +285,7 @@ filter string with spaces is allowed."
(y (if (> (+ yb height lh lh) (frame-pixel-height))
(- yb height lh 1)
yb))
- (buffer (get-buffer-create " *corfu*")))
- (with-current-buffer buffer
- (dolist (var corfu--buffer-parameters)
- (set (make-local-variable (car var)) (cdr var)))
- (setq-local face-remapping-alist fr)
- (let ((inhibit-modification-hooks t)
- (inhibit-read-only t))
- (erase-buffer)
- (insert content)
- (goto-char (point-min))))
+ (buffer (corfu--make-buffer content)))
(unless (and (frame-live-p corfu--frame)
(eq (frame-parent corfu--frame) (window-frame)))
(when corfu--frame (delete-frame corfu--frame))