about summary refs log tree commit diff stats
path: root/lisp/+orderless.el
blob: b2f53b0f943cc8ec0b4bca463de1ca3bcb43cf25 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
;;; +orderless.el --- Mostly from minad -*- lexical-binding: t; -*-

;;; Commentary:

;; See https://github.com/minad/consult/wiki#minads-orderless-configuration

;;; Code:

(require 'orderless)

;;; Dispataching

(defvar +orderless-dispatch-alist '((?% . char-fold-to-regexp)
                                    (?! . orderless-without-literal)
                                    (?` . orderless-initialism)
                                    (?= . orderless-literal)
                                    (?~ . orderless-flex))
  "Charcters to dispatch styles on orderless segments.")

(defun +orderless-dispatch (pattern index _total)
  "Dispatch orderless segments of a search string.
Dispatchers are taken from `+orderless-dispatch-alist', and added
to the following defaults:

- regexp$ :: matches REGEXP at the end of the pattern.
- .ext    :: matches EXT (at end of pattern)

Dispatch characters can be added at the beginning or ending of a
segment to make that segment match accordingly."
  (cond
   ;; Ensure that $ works with Consult commands, which add disambiguation
   ;; suffixes
   ((string-suffix-p "$" pattern)
    (cons 'orderless-regexp
          (concat (substring pattern 0 -1) "[\x100000-\x10FFFD]*$")))
   ;; File extensions
   ((and
     ;; Completing filename or eshell
     (or minibuffer-completing-file-name
         (derived-mode-p 'eshell-mode))
     ;; File extension
     (string-match-p "\\`\\.." pattern))
    (cons orderless-regexp
          (concat "\\." (substring pattern 1) "[\x100000-\x10FFFD]*$")))
   ;; Ignore single !
   ((string= "!" pattern) `(orderless-literal . ""))
   ;; Prefix and suffix
   ((if-let (x (assq (aref pattern 0) +orderless-dispatch-alist))
        (cons (cdr x) (substring pattern 1))
      (when-let (x (assq (aref pattern (1- (length pattern)))
                         +orderless-dispatch-alist))
        (cons (cdr x) (substring pattern 0 -1)))))))

(orderless-define-completion-style +orderless-with-initialism
  (orderless-matching-styles '(orderless-initialism
                               orderless-literal
                               orderless-regexp)))

(provide '+orderless)
;;; +orderless.el ends here