diff options
| -rw-r--r-- | orderless-kwd.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/orderless-kwd.el b/orderless-kwd.el index 73a0fee..45d09f4 100644 --- a/orderless-kwd.el +++ b/orderless-kwd.el @@ -57,6 +57,7 @@ (cat ,#'orderless-kwd-category) (con ,#'orderless-kwd-content) (dir ,#'orderless-kwd-directory) + (fil ,#'orderless-kwd-file) (doc ,#'orderless-kwd-documentation) (grp ,#'orderless-kwd-group) (mod ,#'orderless-kwd-mode) @@ -201,6 +202,13 @@ as a flag and does not require input." (orderless--match-p pred regexp (buffer-local-value 'default-directory buf))))) +(defun orderless-kwd-file (pred regexp) + "Match `buffer-file-truename' against PRED and REGEXP." + (lambda (str) + (when-let ((buf (orderless-kwd--get-buffer str))) + (orderless--match-p pred regexp + (buffer-local-value 'buffer-file-truename buf))))) + ;;;###autoload (defun orderless-kwd-dispatch (component _index _total) "Match COMPONENT against the keywords in `orderless-kwd-alist'." |