attic

1 files changed, 62 insertions, 0 deletions

diff --git a/attic/misc.org b/attic/misc.org
index 66e0012..b2b9e6e 100644
--- a/attic/misc.org
+++ b/attic/misc.org
@@ -797,3 +797,65 @@
          ("k" "Kill buffer" kill-buffer)]))
 
   #+end_src
+* cape
+  #+begin_src emacs-lisp
+    (use-package cape
+      :ensure t
+      ;; Bind dedicated completion commands
+      :bind (("C-c p p" . completion-at-point) ;; capf
+             ("C-c p t" . complete-tag)        ;; etags
+             ("C-c p d" . cape-dabbrev)        ;; or dabbrev-completion
+             ("M-/" . cape-dabbrev)
+             ("C-c p f" . cape-file)
+             ("C-c p k" . cape-keyword)
+             ("C-c p s" . cape-symbol)
+             ("C-c p a" . cape-abbrev)
+             ("C-c p i" . cape-ispell)
+             ("C-c p l" . cape-line)
+             ("C-c p w" . cape-dict))
+      :init
+      ;; Add `completion-at-point-functions', used by `completion-at-point'.
+      (add-to-list 'completion-at-point-functions #'cape-file)
+      ;; (add-to-list 'completion-at-point-functions #'cape-dabbrev)
+      ;; (add-to-list 'completion-at-point-functions #'cape-keyword)
+      ;;(add-to-list 'completion-at-point-functions #'cape-abbrev)
+      ;;(add-to-list 'completion-at-point-functions #'cape-ispell)
+      ;;(add-to-list 'completion-at-point-functions #'cape-dict)
+      ;;(add-to-list 'completion-at-point-functions #'cape-symbol)
+      ;;(add-to-list 'completion-at-point-functions #'cape-line)
+      )
+  #+end_src
+* vertico
+  #+begin_src emacs-lisp :tangle no
+    (use-package vertico-directory
+      :after vertico)
+
+    (use-package vertico-repeat
+      :after vertico
+      :config (add-hook 'minibuffer-setup-hook #'vertico-repeat-save)
+      :bind (("M-R" . vertico-repeat)))
+
+    (use-package vertico-buffer
+      :after vertico
+      :init (setq vertico-buffer-display-action
+                  '(display-buffer-at-bottom
+                    (window-height . ,(+ 3 vertico-count)))))
+
+    (use-package vertico
+      :ensure t
+      :init
+      (setq vertico-count 20
+            vertico-cycle t
+            ; vertico-group-format nil
+            org-refile-use-outline-path t)
+      :config
+      (setq read-extended-command-predicate
+            #'command-completion-default-include-p)
+
+      :bind (:map vertico-map (("RET" . vertico-directory-enter)
+                               ("M-<backspace>" . vertico-directory-delete-word)
+                               ("<backspace>" . vertico-directory-delete-char))))
+
+    (vertico-buffer-mode -1)
+    (vertico-mode -1)
+  #+end_src