commit 558318a8f1db876f52082c286a631687f61fff10
parent 7bd701ec01908cb5b7d039e07b78cab5e4e476b3
Author: Vincent Demeester <vincent@sbr.pm>
Date: Tue, 5 Mar 2024 17:15:24 +0100
tools/emacs: remove unused file
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
Diffstat:
| D | tools/emacs/bar.el | | | 114 | ------------------------------------------------------------------------------- |
1 file changed, 0 insertions(+), 114 deletions(-)
diff --git a/tools/emacs/bar.el b/tools/emacs/bar.el
@@ -1,114 +0,0 @@
-(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))))
