Changeset d881dae in dotfiles

Timestamp:

Feb 13, 2023, 1:13:57 PM (2 years ago)

Author:

w96k <w96k@…>

Branches:

master

Children:

56a7a86

Parents:

3600aa2

Message:

Add corfu documentation mode

File:

• emacs/.emacs.d/.emacs-config.org (modified) (1 diff)

emacs/.emacs.d/.emacs-config.org

@@ -904 +904 @@
 По большей части я использую дефолтный 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
 *** Модификация дефолта