commit bf22d4c09ee6745177535398c94c44b431cda077
parent e6a5fa34582f4c932f99109b8dd67e5ec8683f0e
Author: Vincent Demeester <vincent@sbr.pm>
Date: Fri, 29 Jan 2021 10:38:08 +0100
tools/emacs: playing more with consult, embark, …
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
Diffstat:
| A | tools/emacs/bar.el | | | 114 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
1 file changed, 114 insertions(+), 0 deletions(-)
diff --git a/tools/emacs/bar.el b/tools/emacs/bar.el
@@ -0,0 +1,114 @@
+(use-package marginalia
+ :ensure t
+ :config
+ (setq marginalia-annotators
+ '(marginalia-annotators-heavy
+ marginalia-annotators-light))
+ (marginalia-mode 1))
+(use-package minibuffer
+ :hook (after-init . minibuffer-depth-indicate-mode) ; recursion depth
+ :config
+ (setq enable-recursive-minibuffers t)
+ (setq completion-styles '(partial-completion flex))
+ (setq completion-auto-help nil)
+ (setq completion-flex-nospace nil)
+ (setq read-file-name-completion-ignore-case t
+ read-buffer-completion-ignore-case t)
+ (setq completion-pcm-complete-word-inserts-delimiters t)
+ ;; (setq resize-mini-windows t)
+ (setq completion-show-help nil))
+(use-package icomplete
+ :hook (after-init . icomplete-mode)
+ :custom
+ (icomplete-in-buffer t)
+ (icomplete-delay-completions-threshold 0)
+ :config
+ :bind (:map icomplete-minibuffer-map
+ ("<return>" . icomplete-force-complete-and-exit)
+ ("C-s" . icomplete-forward-completions)
+ ("C-n" . icomplete-forward-completions)
+ ("C-p" . icomplete-backward-completions)))
+(use-package icomplete-vertical
+ :after icomplete
+ :hook (icomplete-mode . icomplete-vertical-mode))
+(defgroup prot-orderless ()
+ "Tweaks for the Orderless completion style."
+ :group 'minibuffer)
+
+(defcustom prot-orderless-default-styles
+ '(orderless-flex
+ orderless-strict-leading-initialism
+ orderless-regexp
+ orderless-prefixes
+ orderless-literal)
+ "List that should be assigned to `orderless-matching-styles'."
+ :type 'list
+ :group 'prot-orderless)
+
+(defcustom prot-orderless-alternative-styles
+ '(orderless-literal
+ orderless-prefixes
+ orderless-strict-leading-initialism
+ orderless-regexp)
+ "Alternative list for `orderless-matching-styles'.
+
+Unlike `prot-orderless-default-styles', this variable is intended
+for use on a case-by-case basis, with the help of the function
+`prot-orderless-with-styles'."
+ :type 'list
+ :group 'prot-orderless)
+
+(defun prot-orderless-literal-dispatcher (pattern _index _total)
+ "Literal style dispatcher using the equals sign as a suffix.
+It matches PATTERN _INDEX and _TOTAL according to how Orderless
+parses its input."
+ (when (string-suffix-p "=" pattern)
+ `(orderless-literal . ,(substring pattern 0 -1))))
+
+(defun prot-orderless-initialism-dispatcher (pattern _index _total)
+ "Leading initialism dispatcher using the comma suffix.
+It matches PATTERN _INDEX and _TOTAL according to how Orderless
+parses its input."
+ (when (string-suffix-p "," pattern)
+ `(orderless-strict-leading-initialism . ,(substring pattern 0 -1))))
+
+(defvar orderless-matching-styles)
+
+(defun prot-orderless-with-styles (cmd &optional styles)
+ "Call CMD with optional orderless STYLES.
+
+STYLES is a list of pattern matching methods that is passed to
+`orderless-matching-styles'. Its fallback value is that of
+`prot-orderless-alternative-styles'."
+ (let ((orderless-matching-styles (or styles prot-orderless-alternative-styles))
+ (this-command cmd))
+ (call-interactively cmd)))
+
+(use-package orderless
+ :config
+ (setq prot-orderless-default-styles
+ '(orderless-prefixes
+ orderless-literal
+ orderless-strict-leading-initialism
+ orderless-regexp
+ orderless-flex))
+ (setq prot-orderless-alternative-styles
+ '(orderless-literal
+ orderless-prefixes
+ orderless-strict-leading-initialism
+ orderless-regexp))
+ (setq orderless-component-separator " +")
+ (setq orderless-matching-styles prot-orderless-default-styles)
+ (setq orderless-style-dispatchers
+ '(prot-orderless-literal-dispatcher
+ prot-orderless-initialism-dispatcher))
+ ;; SPC should never complete: use it for `orderless' groups.
+ :bind (:map minibuffer-local-completion-map
+ ("SPC" . nil)))
+
+(setq completion-styles
+ '(partial-completion basic flex initials substring)
+ completion-category-overrides
+ '((file (styles basic flex initials substring))
+ (buffer (styles basic flex initials substring))
+ (info-menu (styles basic flex initials substring))))
