zedhugh
b5d9ce18a7
- replace "add-pkg-in-pkg-dir" (recursive load-path scanning) with a central "creature/pkgs" registry that handles load path, autoloads, info dirs and dependencies - adapt all init-*.el files to the new activation function - add a top-level Makefile to byte-compile site-lisp packages - remove unused "emacs-kv" and "emacs-db" submodules
116 lines
2.7 KiB
EmacsLisp
116 lines
2.7 KiB
EmacsLisp
;; -*- coding: utf-8; lexical-binding: t; -*-
|
|
|
|
(require 'init-package)
|
|
|
|
(creature/pkg-active 'marginalia)
|
|
(creature/pkg-active 'vertico)
|
|
(creature/pkg-active 'corfu)
|
|
(creature/pkg-active 'orderless)
|
|
(creature/pkg-active 'cape)
|
|
(creature/pkg-active 'consult)
|
|
(creature/pkg-active 'corfu-terminal)
|
|
(creature/pkg-active 'embark)
|
|
|
|
|
|
(require 'marginalia)
|
|
(marginalia-mode 1)
|
|
|
|
|
|
(require 'vertico)
|
|
(vertico-mode 1)
|
|
(require 'vertico-sort)
|
|
(setq vertico-sort-function 'vertico-sort-history-length-alpha)
|
|
|
|
|
|
(require 'corfu)
|
|
(global-corfu-mode 'toggle)
|
|
(setq corfu-auto t
|
|
corfu-cycle t
|
|
corfu-auto-delay 0.05
|
|
corfu-auto-prefix 2
|
|
corfu-quit-no-match t)
|
|
|
|
(autoload 'corfu-info-documentation "corfu-info" "" t)
|
|
(autoload 'corfu-info-location "corfu-info" "" t)
|
|
|
|
(require 'orderless)
|
|
(setq completion-styles '(orderless basic partial-completion flex)
|
|
completion-category-overrides '((file (styles basic partial-completion))))
|
|
|
|
|
|
;;; indexed extension
|
|
(let ((start 1)
|
|
(count 10))
|
|
(require 'vertico-indexed)
|
|
(require 'corfu-indexed)
|
|
(vertico-indexed-mode 1)
|
|
(corfu-indexed-mode 1)
|
|
(setq vertico-count count
|
|
vertico-indexed-start start
|
|
corfu-count count
|
|
corfu-indexed-start start)
|
|
(dotimes (i count)
|
|
(let* ((n (+ i start))
|
|
(k (mod n count))
|
|
(press-key (format "M-%d" k))
|
|
(target-key (format "C-u %d RET" n)))
|
|
(define-key vertico-map (kbd press-key) (kbd target-key))
|
|
(define-key corfu-map (kbd press-key) (kbd target-key)))))
|
|
|
|
|
|
;;; quick extension
|
|
(let ((quick1 "wesdf")
|
|
(quick2 "iojkl")
|
|
(trigger "M-SPC"))
|
|
(with-eval-after-load 'vertico-quick
|
|
(setq vertico-quick1 quick1)
|
|
(setq vertico-quick2 quick2))
|
|
|
|
(with-eval-after-load 'corfu-quick
|
|
(setq corfu-quick1 quick1)
|
|
(setq corfu-quick2 quick2))
|
|
|
|
(lazy-load-local-keys
|
|
`((,trigger . vertico-quick-insert))
|
|
vertico-map
|
|
"vertico-quick")
|
|
|
|
(lazy-load-local-keys
|
|
`((,trigger . corfu-quick-complete))
|
|
corfu-map
|
|
"corfu-quick"))
|
|
|
|
|
|
(lazy-load-global-keys
|
|
'(("C-'" . cape-file))
|
|
"cape")
|
|
|
|
|
|
(require 'init-keybindings)
|
|
(lazy-load-local-keys
|
|
'(("fr" . consult-recent-file))
|
|
creature/map "consult")
|
|
(with-eval-after-load 'consult
|
|
(recentf-mode 1))
|
|
|
|
(require 'corfu-popupinfo)
|
|
(corfu-popupinfo-mode 1)
|
|
|
|
(defun creature/load-corfu-terminal-in-no-gui-env ()
|
|
(unless (or (display-graphic-p) (featurep 'tty-child-frames))
|
|
(require 'corfu-terminal)
|
|
(corfu-terminal-mode 1)))
|
|
|
|
(add-hook 'emacs-startup-hook #'creature/load-corfu-terminal-in-no-gui-env)
|
|
(add-hook 'server-after-make-frame-hook #'creature/load-corfu-terminal-in-no-gui-env)
|
|
|
|
|
|
(lazy-load-global-keys
|
|
'(("C-." . embark-act)
|
|
("C-;" . embark-dwim)
|
|
("C-h B" . embark-bindings))
|
|
"embark")
|
|
|
|
|
|
(provide 'init-vertico)
|