From d881dae09e97e17abec467bf352225d2c58912f7 Mon Sep 17 00:00:00 2001
From: w96k <w96k@runbox.com>
Date: Mon, 13 Feb 2023 13:13:57 +0400
Subject: [PATCH] Add corfu documentation mode

---
 emacs/.emacs.d/.emacs-config.org | 54 +++++++++++++++++---------------
 1 file changed, 28 insertions(+), 26 deletions(-)

diff --git a/emacs/.emacs.d/.emacs-config.org b/emacs/.emacs.d/.emacs-config.org
index f037378..cbcb722 100644
--- a/emacs/.emacs.d/.emacs-config.org
+++ b/emacs/.emacs.d/.emacs-config.org
@@ -903,33 +903,35 @@ I use built-in project.el
 *** Автодополнение кода и документация
 По большей части я использую дефолтный Completion Buffer и Corfu
 #+begin_src elisp :tangle init.el
-  (when (package-loaded? "corfu")
-    (progn
-      (setq corfu-preview-current 'nil)
-      (corfu-mode 1)
-      (defun show-default-completion-buffer ()
-	(interactive)
-	(corfu-quit)
+    (when (package-loaded? "corfu")
+      (progn
+	(setq corfu-preview-current 'nil
+	      corfu-popupinfo-delay t)
+	(corfu-mode 1)
+	(defun show-default-completion-buffer ()
+	  (interactive)
+	  (corfu-quit)
+	  (corfu-mode -1)
+	  (completion-at-point)
+	  (corfu-mode 1)
+	  (corfu-popupinfo-mode 1))
+	(define-key corfu-map (kbd "M-TAB") 'show-default-completion-buffer)
+	(define-key corfu-map (kbd "TAB") 'show-default-completion-buffer)
+	(define-key corfu-map (kbd "C-M-i") 'show-default-completion-buffer)      
 	(corfu-mode -1)
-	(completion-at-point)
-	(corfu-mode 1))
-      (define-key corfu-map (kbd "M-TAB") 'show-default-completion-buffer)
-      (define-key corfu-map (kbd "TAB") 'show-default-completion-buffer)
-      (define-key corfu-map (kbd "C-M-i") 'show-default-completion-buffer)      
-      (corfu-mode -1)
-      (add-hook 'prog-mode-hook 'corfu-mode)
-
-      (defun corfu-send-shell (&rest _)
-	"Send completion candidate when inside comint/eshell."
-	(cond
-	 ((and (derived-mode-p 'eshell-mode) (fboundp 'eshell-send-input))
-	  (eshell-send-input))
-	 ((and (derived-mode-p 'comint-mode)  (fboundp 'comint-send-input))
-	  (comint-send-input))))
-
-      (advice-add #'corfu-insert :after #'corfu-send-shell)
-      
-      (add-hook 'eshell-mode-hook 'corfu-mode)))
+	(add-hook 'prog-mode-hook 'corfu-mode)
+
+	(defun corfu-send-shell (&rest _)
+	  "Send completion candidate when inside comint/eshell."
+	  (cond
+	   ((and (derived-mode-p 'eshell-mode) (fboundp 'eshell-send-input))
+	    (eshell-send-input))
+	   ((and (derived-mode-p 'comint-mode)  (fboundp 'comint-send-input))
+	    (comint-send-input))))
+
+	(advice-add #'corfu-insert :after #'corfu-send-shell)
+
+	(add-hook 'eshell-mode-hook 'corfu-mode)))
 #+end_src
 *** Модификация дефолта
 #+BEGIN_SRC emacs-lisp :tangle init.el
-- 
2.38.5