[elpa] externals/corfu de6c1dd044 3/7: Rename to corfu-infoframe

[ELPA Syncer]

branch: externals/corfu
commit de6c1dd0448c643d54bc487db666fff2f4b85927
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Rename to corfu-infoframe
---
 README.org                                         |   4 +-
 .../{corfu-docframe.el => corfu-infoframe.el}      | 304 ++++++++++-----------
 2 files changed, 154 insertions(+), 154 deletions(-)

diff --git a/README.org b/README.org
index 1f2ef8daa2..d0b81318f6 100644
--- a/README.org
+++ b/README.org
@@ -445,13 +445,13 @@ be enabled manually if desired. Furthermore it is 
possible to install all of the
 files separately, both ~corfu.el~ and the ~corfu-*.el~ extensions. Currently 
the
 following extensions come with the Corfu ELPA package:
 
-- 
[[https://github.com/minad/corfu/blob/main/extensions/corfu-docframe.el][corfu-docframe]]:
 Display candidate documentation in a popup frame next to the
-  candidate menu.
 - 
[[https://github.com/minad/corfu/blob/main/extensions/corfu-history.el][corfu-history]]:
 =corfu-history-mode= remembers selected candidates and sorts the
   candidates by their history position.
 - 
[[https://github.com/minad/corfu/blob/main/extensions/corfu-indexed.el][corfu-indexed]]:
 =corfu-indexed-mode= allows you to select indexed candidates with
   prefix arguments.
 - 
[[https://github.com/minad/corfu/blob/main/extensions/corfu-info.el][corfu-info]]:
 Actions to access the candidate location and documentation.
+- 
[[https://github.com/minad/corfu/blob/main/extensions/corfu-infoframe.el][corfu-infoframe]]:
 Display candidate documentation or source in a popup frame
+  next to the candidate menu.
 - 
[[https://github.com/minad/corfu/blob/main/extensions/corfu-quick.el][corfu-quick]]:
 Commands to select using Avy-style quick keys.
 
 See the Commentary of those files for configuration details.
diff --git a/extensions/corfu-docframe.el b/extensions/corfu-infoframe.el
similarity index 56%
rename from extensions/corfu-docframe.el
rename to extensions/corfu-infoframe.el
index 942ec2b1f0..f6cc215e95 100644
--- a/extensions/corfu-docframe.el
+++ b/extensions/corfu-infoframe.el
@@ -1,4 +1,4 @@
-;;; corfu-docframe.el --- Documentation popup frame for Corfu -*- 
lexical-binding: t -*-
+;;; corfu-infoframe.el --- Candidate information popup frame for Corfu -*- 
lexical-binding: t -*-
 
 ;; Copyright (C) 2021-2022  Free Software Foundation, Inc.
 
@@ -30,14 +30,14 @@
 ;; experimental. The public interface may change any time.
 ;;
 ;; Display a documentation popup for completion candidate when using
-;; Corfu. The `corfu-docframe-mode' must be enabled globally. Set
-;; `corfu-docframe-auto' if you want the documentation popup to be
-;; displayed automatically. If you prefer manual toggling bind
-;; `corfu-docframe-toggle' to a key in `corfu-map':
+;; Corfu. The `corfu-infoframe-mode' must be enabled globally. Set
+;; `corfu-infoframe-auto' if you want the documentation popup frame to
+;; be displayed automatically. If you prefer manual toggling bind
+;; `corfu-infoframe-toggle' to a key in `corfu-map':
 ;;
-;; (define-key corfu-map "\M-d" #'corfu-docframe-toggle)
-;; (define-key corfu-map "\M-g" #'corfu-docframe-location)
-;; (define-key corfu-map "\M-h" #'corfu-docframe-documentation)
+;; (define-key corfu-map "\M-d" #'corfu-infoframe-toggle)
+;; (define-key corfu-map "\M-g" #'corfu-infoframe-location)
+;; (define-key corfu-map "\M-h" #'corfu-infoframe-documentation)
 
 ;;; Code:
 
@@ -45,59 +45,59 @@
 (eval-when-compile
   (require 'subr-x))
 
-(defface corfu-docframe
+(defface corfu-infoframe
   '((t :inherit corfu-default :height 0.8))
-  "Face used for the doc frame."
+  "Face used for the info frame."
   :group 'corfu-faces)
 
-(defcustom corfu-docframe-auto t
+(defcustom corfu-infoframe-auto t
   "Display documentation popup automatically."
   :group 'corfu
   :type 'boolean)
 
-(defcustom corfu-docframe-delay 1.0
+(defcustom corfu-infoframe-delay 1.0
   "The number of seconds to wait before displaying the documentation popup."
   :group 'corfu
   :type '(choice (const :tag "immediate" 0)
                  (number :tag "seconds")))
 
-(defcustom corfu-docframe-hide t
+(defcustom corfu-infoframe-hide t
   "Hide the popup during the transition between candidates."
   :group 'corfu
   :type 'boolean)
 
-(defcustom corfu-docframe-max-width 50
-  "The max width of the corfu doc popup in characters."
+(defcustom corfu-infoframe-max-width 50
+  "The max width of the info frame in characters."
   :group 'corfu
   :type 'integer)
 
-(defcustom corfu-docframe-max-height 10
-  "The max height of the corfu doc popup in characters."
+(defcustom corfu-infoframe-max-height 10
+  "The max height of the info frame in characters."
   :group 'corfu
   :type 'integer)
 
-(defcustom corfu-docframe-resize t
-  "Resize the corfu doc popup automatically if non-nil."
+(defcustom corfu-infoframe-resize t
+  "Resize the info frame automatically if non-nil."
   :group 'corfu
   :type 'boolean)
 
-(defvar-local corfu-docframe--toggle t
-  "Local docframe toggle state.")
+(defvar-local corfu-infoframe--toggle t
+  "Local infoframe toggle state.")
 
-(defvar-local corfu-docframe--function
-  #'corfu-docframe--get-documentation
+(defvar-local corfu-infoframe--function
+  #'corfu-infoframe--get-documentation
   "Documentation function.")
 
-(defvar corfu-docframe--frame nil
-  "Doc frame.")
+(defvar corfu-infoframe--frame nil
+  "Info frame.")
 
-(defvar corfu-docframe--auto-timer nil
-  "Corfu doc popup auto display timer.")
+(defvar corfu-infoframe--auto-timer nil
+  "Corfu info frame auto display timer.")
 
-(defvar-local corfu-docframe--candidate nil
-  "Completion candidate for the doc popup.")
+(defvar-local corfu-infoframe--candidate nil
+  "Completion candidate for the info frame.")
 
-(defvar-local corfu-docframe--edges nil
+(defvar-local corfu-infoframe--edges nil
   "Coordinates of the corfu popup's edges.
 
 The coordinates list has the form (LEFT TOP RIGHT BOTTOM) where all
@@ -106,23 +106,23 @@ values are in pixels relative to the origin - the 
position (0, 0)
 relative to LEFT and TOP which are both zero.
 See `frame-edges' for details.")
 
-(defvar-local corfu-docframe--direction nil
-  "Position direction of the doc popup relative to the corfu popup.")
+(defvar-local corfu-infoframe--direction nil
+  "Position direction of the info frame relative to the corfu popup.")
 
-(defconst corfu-docframe--state-vars
-  '(corfu-docframe--candidate
-    corfu-docframe--edges
-    corfu-docframe--direction
-    corfu-docframe--toggle
-    corfu-docframe--function)
-  "Buffer-local state variables used by corfu-docframe.")
+(defconst corfu-infoframe--state-vars
+  '(corfu-infoframe--candidate
+    corfu-infoframe--edges
+    corfu-infoframe--direction
+    corfu-infoframe--toggle
+    corfu-infoframe--function)
+  "Buffer-local state variables used by corfu-infoframe.")
 
-(defun corfu-docframe--visible-p ()
-  "Determine whether the doc popup is visible."
-  (and (frame-live-p corfu-docframe--frame)
-       (frame-visible-p corfu-docframe--frame)))
+(defun corfu-infoframe--visible-p ()
+  "Determine whether the info frame is visible."
+  (and (frame-live-p corfu-infoframe--frame)
+       (frame-visible-p corfu-infoframe--frame)))
 
-(defun corfu-docframe--get-location (candidate)
+(defun corfu-infoframe--get-location (candidate)
   "Get source at location of CANDIDATE."
   (save-excursion
     (when-let* ((fun (plist-get corfu--extra :company-location))
@@ -137,13 +137,13 @@ See `frame-edges' for details.")
               (goto-char (point-min))
               (forward-line (1- (cdr loc))))
             (let ((beg (point)))
-              (forward-line (* 2 corfu-docframe-max-height))
+              (forward-line (* 2 corfu-infoframe-max-height))
               (when jit-lock-mode
                 (jit-lock-fontify-now beg (point)))
               (setq res (buffer-substring beg (point)))
               (and (not (string-blank-p res)) res))))))))
 
-(defun corfu-docframe--get-documentation (candidate)
+(defun corfu-infoframe--get-documentation (candidate)
   "Get the documentation for CANDIDATE."
   (when-let* ((fun (plist-get corfu--extra :company-doc-buffer))
               (res (save-excursion
@@ -157,20 +157,20 @@ See `frame-edges' for details.")
       (and (not (string-blank-p res)) res))))
 
 ;; TODO get rid of optional arguments?
-(defun corfu-docframe--size (&optional width height)
+(defun corfu-infoframe--size (&optional width height)
   "Calculate popup size in the form of (width height).
 
 If WIDTH and HEIGHT is speicified, just return (WIDTH HEIGHT)."
-  (let ((max-width (* (frame-char-width) corfu-docframe-max-width))
-        (max-height (* (default-line-height) corfu-docframe-max-height)))
+  (let ((max-width (* (frame-char-width) corfu-infoframe-max-width))
+        (max-height (* (default-line-height) corfu-infoframe-max-height)))
     (if (and width height)
         (list (min width max-width) (min height max-height))
       (pcase-let* ((`(,popup-width ,popup-height)
-                    (if (not corfu-docframe-resize)
+                    (if (not corfu-infoframe-resize)
                         (list (or width max-width) (or height max-height))
                       (pcase-let ((`(,win-width . ,win-height)
                                    (save-window-excursion
-                                     (with-current-buffer " *corfu-docframe*"
+                                     (with-current-buffer " *corfu-infoframe*"
                                        (set-window-dedicated-p nil nil)
                                        (set-window-buffer nil (current-buffer))
                                        (window-text-pixel-size nil (point-min) 
(point-max)
@@ -178,7 +178,7 @@ If WIDTH and HEIGHT is speicified, just return (WIDTH 
HEIGHT)."
                         (list (or width win-width) (or height win-height))))))
         (list (min popup-width max-width) (min popup-height max-height))))))
 
-(defun corfu-docframe--frame-geometry (frame)
+(defun corfu-infoframe--frame-geometry (frame)
   "Return position and size geometric attributes of FRAME.
 
 The geometry represents the position and size in pixels
@@ -186,20 +186,20 @@ in the form of (X Y WIDTH HEIGHT)."
   (pcase-let ((`(,x . ,y) (frame-position frame)))
     (list x y (frame-pixel-width frame) (frame-pixel-height frame))))
 
-(defun corfu-docframe--display-area-horizontal (width height)
-  "Calculate the horizontal display area for the doc popup.
+(defun corfu-infoframe--display-area-horizontal (width height)
+  "Calculate the horizontal display area for the info frame.
 
-The WIDTH and HEIGHT of the doc popup are in pixels.
+The WIDTH and HEIGHT of the info frame are in pixels.
 
 The calculated area is in the form (X Y WIDTH HEIGHT DIRECTION).
-DIRECTION indicates the horizontal position direction of the doc popup
+DIRECTION indicates the horizontal position direction of the info frame
 relative to the corfu popup, its value can be 'right or 'left."
   (pcase-let* ((border (alist-get 'child-frame-border-width 
corfu--frame-parameters))
-               ;; space between candidates popup and doc popup
+               ;; space between candidates popup and info frame
                (space (- border))  ;; share the border
                (`(,_pfx ,_pfy ,pfw ,_pfh)
-                (corfu-docframe--frame-geometry (frame-parent corfu--frame)))
-               (`(,cfx ,cfy ,cfw ,_cfh) (corfu-docframe--frame-geometry 
corfu--frame))
+                (corfu-infoframe--frame-geometry (frame-parent corfu--frame)))
+               (`(,cfx ,cfy ,cfw ,_cfh) (corfu-infoframe--frame-geometry 
corfu--frame))
                (x-on-right (+ cfx cfw space))
                (w-remaining-right (- pfw 1 x-on-right border border))
                (x-on-left (- cfx space pfw))
@@ -215,21 +215,21 @@ relative to the corfu popup, its value can be 'right or 
'left."
      (t
       (list x-on-left cfy w-remaining-left height 'left)))))
 
-(defun corfu-docframe--display-area-vertical (width height)
-  "Calculate the vertical display area for the doc popup.
+(defun corfu-infoframe--display-area-vertical (width height)
+  "Calculate the vertical display area for the info frame.
 
-The WIDTH and HEIGHT of the doc popup are in pixels.
+The WIDTH and HEIGHT of the info frame are in pixels.
 
 The calculated area is in the form (X Y WIDTH HEIGHT DIRECTION).
-DIRECTION indicates the vertical position direction of the doc popup
+DIRECTION indicates the vertical position direction of the info frame
 relative to the corfu popup, its value can be 'bottom or 'top."
   (pcase-let* ((a-y 0) (a-height height) (a-direction 'bottom)
                (border (alist-get 'child-frame-border-width 
corfu--frame-parameters))
                (space (- border))
                (lh (default-line-height))
                (`(,_pfx ,_pfy ,pfw ,pfh)
-                (corfu-docframe--frame-geometry (frame-parent corfu--frame)))
-               (`(,cfx ,cfy ,_cfw ,cfh) (corfu-docframe--frame-geometry 
corfu--frame))
+                (corfu-infoframe--frame-geometry (frame-parent corfu--frame)))
+               (`(,cfx ,cfy ,_cfw ,cfh) (corfu-infoframe--frame-geometry 
corfu--frame))
                (cf-on-cursor-bottom-p
                 (>= cfy
                     (+ (cadr (window-inside-pixel-edges))
@@ -253,54 +253,54 @@ relative to the corfu popup, its value can be 'bottom or 
'top."
       (setq a-y (max 0 (- cfy space border height border))))
     (list cfx a-y a-width a-height a-direction)))
 
-(defun corfu-docframe--display-area (direction width height)
-  "Calculate the display area for the doc popup.
+(defun corfu-infoframe--display-area (direction width height)
+  "Calculate the display area for the info frame.
 
 If DIRECTION is non-nil, the display area in the corresponding
 direction is calculated first, its value can be 'bottom,
 'top,'right or 'left.
 
-The pixel size of the doc popup can be specified by WIDTH and HEIGHT.
+The pixel size of the info frame can be specified by WIDTH and HEIGHT.
 
 The calculated area is in the form (X Y WIDTH HEIGHT DIRECTION).
-DIRECTION indicates the position direction of the doc popup relative to
+DIRECTION indicates the position direction of the info frame relative to
 the corfu popup, its value is 'bottom, 'top, 'right or 'left."
   ;; TODO wrong
   (cond
    ((member direction '(right left))
-    (apply #'corfu-docframe--display-area-horizontal
-           (corfu-docframe--size)))
+    (apply #'corfu-infoframe--display-area-horizontal
+           (corfu-infoframe--size)))
    ((member direction '(bottom top))
-    (apply #'corfu-docframe--display-area-vertical
-           (corfu-docframe--size)))
+    (apply #'corfu-infoframe--display-area-vertical
+           (corfu-infoframe--size)))
    (t
     (pcase-let* ((`(,width ,height)  ;; popup inner width and height
-                  (corfu-docframe--size width height))
+                  (corfu-infoframe--size width height))
                  ((and h-a `(,_h-x ,_h-y ,h-w ,h-h ,_h-d))
-                  (corfu-docframe--display-area-horizontal width height))
+                  (corfu-infoframe--display-area-horizontal width height))
                  ((and v-a `(,_v-x ,_v-y ,v-w ,v-h ,_v-d))
-                  (corfu-docframe--display-area-vertical width height)))
+                  (corfu-infoframe--display-area-vertical width height)))
       (if (and (or (< h-h height) (< h-w width))
                (or (>= (* v-w v-h) (* h-w h-h))
                    (and (>= v-h height) (>= v-w width))))
           v-a h-a)))))
 
-(defun corfu-docframe--show (candidate)
-  "Show the doc popup for CANDIDATE."
-  (when corfu-docframe--auto-timer
-    (cancel-timer corfu-docframe--auto-timer)
-    (setq corfu-docframe--auto-timer nil))
+(defun corfu-infoframe--show (candidate)
+  "Show the info frame for CANDIDATE."
+  (when corfu-infoframe--auto-timer
+    (cancel-timer corfu-infoframe--auto-timer)
+    (setq corfu-infoframe--auto-timer nil))
   (when (and (corfu--popup-support-p)
              (frame-live-p corfu--frame)
              (frame-visible-p corfu--frame))
     (let* ((doc-changed
-            (not (and (corfu-docframe--visible-p)
-                      (equal candidate corfu-docframe--candidate))))
+            (not (and (corfu-infoframe--visible-p)
+                      (equal candidate corfu-infoframe--candidate))))
            (new-edges (frame-edges corfu--frame 'inner-edges))
-           (edges-changed (not (equal new-edges corfu-docframe--edges))))
+           (edges-changed (not (equal new-edges corfu-infoframe--edges))))
       (when doc-changed
-        (if-let (doc (funcall corfu-docframe--function candidate))
-            (with-current-buffer (corfu--make-buffer " *corfu-docframe*" doc)
+        (if-let (doc (funcall corfu-infoframe--function candidate))
+            (with-current-buffer (corfu--make-buffer " *corfu-infoframe*" doc)
               ;; TODO extract settings
               (setq-local line-move-visual t
                           truncate-partial-width-windows nil
@@ -310,117 +310,117 @@ the corfu popup, its value is 'bottom, 'top, 'right or 
'left."
                           word-wrap t
                           fringe-indicator-alist '((continuation))
                           face-remapping-alist (copy-tree 
face-remapping-alist))
-              (setf (alist-get 'default face-remapping-alist) 'corfu-docframe))
-          (corfu-docframe--hide)
+              (setf (alist-get 'default face-remapping-alist) 
'corfu-infoframe))
+          (corfu-infoframe--hide)
           (setq doc-changed nil edges-changed nil)))
       (when (or doc-changed edges-changed)
         (pcase-let* ((border (alist-get 'child-frame-border-width 
corfu--frame-parameters))
                      (`(,area-x ,area-y ,area-w ,area-h ,area-d)
-                      (corfu-docframe--display-area
-                       corfu-docframe--direction
+                      (corfu-infoframe--display-area
+                       corfu-infoframe--direction
                        (and (not doc-changed)
-                            (- (frame-pixel-width corfu-docframe--frame) 
border border))
+                            (- (frame-pixel-width corfu-infoframe--frame) 
border border))
                        (and (not doc-changed)
-                            (- (frame-pixel-height corfu-docframe--frame) 
border border)))))
-          (setq corfu-docframe--frame
-                (corfu--make-frame corfu-docframe--frame
+                            (- (frame-pixel-height corfu-infoframe--frame) 
border border)))))
+          (setq corfu-infoframe--frame
+                (corfu--make-frame corfu-infoframe--frame
                                    area-x area-y area-w area-h
-                                   (get-buffer " *corfu-docframe*"))
-                corfu-docframe--direction area-d)))
-      (setq corfu-docframe--candidate candidate
-            corfu-docframe--edges new-edges))))
+                                   (get-buffer " *corfu-infoframe*"))
+                corfu-infoframe--direction area-d)))
+      (setq corfu-infoframe--candidate candidate
+            corfu-infoframe--edges new-edges))))
 
-(defun corfu-docframe--hide ()
-  "Clear the doc popup buffer content and hide it."
-  (corfu--hide-frame corfu-docframe--frame))
+(defun corfu-infoframe--hide ()
+  "Clear the info frame buffer content and hide it."
+  (corfu--hide-frame corfu-infoframe--frame))
 
-(defun corfu-docframe-scroll-up (&optional n)
-  "Scroll text of doc popup window upward N lines.
+(defun corfu-infoframe-scroll-up (&optional n)
+  "Scroll text of info frame window upward N lines.
 
 If ARG is omitted or nil, scroll upward by a near full screen.
 See `scroll-up' for details."
   (interactive "p")
-  (when (corfu-docframe--visible-p)
-    (with-selected-frame corfu-docframe--frame
-      (with-current-buffer (get-buffer " *corfu-docframe*")
+  (when (corfu-infoframe--visible-p)
+    (with-selected-frame corfu-infoframe--frame
+      (with-current-buffer (get-buffer " *corfu-infoframe*")
         (scroll-up n)))))
 
-(defun corfu-docframe-scroll-down (&optional n)
-  "Scroll text of doc popup window down N lines.
+(defun corfu-infoframe-scroll-down (&optional n)
+  "Scroll text of info frame window down N lines.
 
 If ARG is omitted or nil, scroll down by a near full screen."
   (interactive "p")
-  (corfu-docframe-scroll-up (- (or n 1))))
+  (corfu-infoframe-scroll-up (- (or n 1))))
 
-(defun corfu-docframe--set-function (fun)
+(defun corfu-infoframe--set-function (fun)
   "Set popup documentation getter FUN."
-  (setq corfu-docframe--function fun
-        corfu-docframe--candidate nil
-        corfu-docframe--toggle t)
+  (setq corfu-infoframe--function fun
+        corfu-infoframe--candidate nil
+        corfu-infoframe--toggle t)
   (when-let (candidate (and (>= corfu--index 0)
                             (nth corfu--index corfu--candidates)))
-    (corfu-docframe--show candidate)))
+    (corfu-infoframe--show candidate)))
 
-(defun corfu-docframe-documentation ()
+(defun corfu-infoframe-documentation ()
   "Show documentation in popup."
   (interactive)
-  (corfu-docframe--set-function #'corfu-docframe--get-documentation))
+  (corfu-infoframe--set-function #'corfu-infoframe--get-documentation))
 
-(defun corfu-docframe-location ()
+(defun corfu-infoframe-location ()
   "Show location in popup."
   (interactive)
-  (corfu-docframe--set-function #'corfu-docframe--get-location))
+  (corfu-infoframe--set-function #'corfu-infoframe--get-location))
 
-(defun corfu-docframe-toggle ()
-  "Toggle the doc popup display or hide.
+(defun corfu-infoframe-toggle ()
+  "Toggle the info frame display or hide.
 
-When using this command to manually hide the doc popup, it will
+When using this command to manually hide the info frame, it will
 not be displayed until this command is called again, even if
-`corfu-docframe-auto' is non-nil."
+`corfu-infoframe-auto' is non-nil."
   (interactive)
   (if-let ((candidate (and (>= corfu--index 0)
                           (nth corfu--index corfu--candidates)))
-           ((setq corfu-docframe--toggle (not (corfu-docframe--visible-p)))))
-      (corfu-docframe--show candidate)
-    (corfu-docframe--hide)))
+           ((setq corfu-infoframe--toggle (not (corfu-infoframe--visible-p)))))
+      (corfu-infoframe--show candidate)
+    (corfu-infoframe--hide)))
 
-(defun corfu-docframe--exhibit (&rest _)
-  "Update the doc frame."
+(defun corfu-infoframe--exhibit (&rest _)
+  "Update the info frame automatically."
   (if (and (frame-live-p corfu--frame)
            (frame-visible-p corfu--frame)
            (>= corfu--index 0))
-      (when (and corfu-docframe-auto corfu-docframe--toggle)
-        (when corfu-docframe--auto-timer
-          (cancel-timer corfu-docframe--auto-timer)
-          (setq corfu-docframe--auto-timer nil))
+      (when (and corfu-infoframe-auto corfu-infoframe--toggle)
+        (when corfu-infoframe--auto-timer
+          (cancel-timer corfu-infoframe--auto-timer)
+          (setq corfu-infoframe--auto-timer nil))
         (let ((candidate (nth corfu--index corfu--candidates)))
-          (if (or (= corfu-docframe-delay 0)
-                  (equal candidate corfu-docframe--candidate))
-              (corfu-docframe--show candidate)
-            (if corfu-docframe-hide
-                (corfu-docframe--hide)
-              (corfu-docframe--show corfu-docframe--candidate))
-            (setq corfu-docframe--auto-timer
-                  (run-at-time corfu-docframe-delay nil
-                               #'corfu-docframe--show candidate)))))
-    (corfu-docframe--hide)))
+          (if (or (= corfu-infoframe-delay 0)
+                  (equal candidate corfu-infoframe--candidate))
+              (corfu-infoframe--show candidate)
+            (if corfu-infoframe-hide
+                (corfu-infoframe--hide)
+              (corfu-infoframe--show corfu-infoframe--candidate))
+            (setq corfu-infoframe--auto-timer
+                  (run-at-time corfu-infoframe-delay nil
+                               #'corfu-infoframe--show candidate)))))
+    (corfu-infoframe--hide)))
 
 ;;;###autoload
-(define-minor-mode corfu-docframe-mode
-  "Corfu doc popup minor mode."
+(define-minor-mode corfu-infoframe-mode
+  "Corfu info frame minor mode."
   :global t :group 'corfu
   (cond
-   (corfu-docframe-mode
+   (corfu-infoframe-mode
     ;; TODO seq-union (Emacs 28, seq compatibility package?)
     (setq corfu--state-vars (seq-uniq (append corfu--state-vars
-                                              corfu-docframe--state-vars)))
-    (advice-add #'corfu--exhibit :after #'corfu-docframe--exhibit)
-    (advice-add #'corfu--teardown :before #'corfu-docframe--hide))
+                                              corfu-infoframe--state-vars)))
+    (advice-add #'corfu--exhibit :after #'corfu-infoframe--exhibit)
+    (advice-add #'corfu--teardown :before #'corfu-infoframe--hide))
    (t
     (setq corfu--state-vars (seq-difference corfu--state-vars
-                                            corfu-docframe--state-vars))
-    (advice-remove #'corfu--exhibit #'corfu-docframe--exhibit)
-    (advice-remove #'corfu--teardown #'corfu-docframe--hide))))
+                                            corfu-infoframe--state-vars))
+    (advice-remove #'corfu--exhibit #'corfu-infoframe--exhibit)
+    (advice-remove #'corfu--teardown #'corfu-infoframe--hide))))
 
-(provide 'corfu-docframe)
-;;; corfu-docframe.el ends here
+(provide 'corfu-infoframe)
+;;; corfu-infoframe.el ends here