emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

selectrum: autoload +selectrum/backward-updir...

Browse source 
and make it independent of selectrum
This commit is contained in:
Itai Y. Efrat 2021-06-30 19:24:27 +03:00
parent 336ad46c47
commit 7c313fbac2
2 changed files with 18 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
modules/completion/selectrum/config.el
View file

@ -9,18 +9,6 @@
(when (featurep! +prescient)
(setq completion-styles '(substring partial-completion)))
:config
(defun +selectrum/backward-updir ()
"Delete char before or go up directory for file cagetory selectrum buffers."
(interactive)
(if (and (eq (char-before) ?/)
(eq (selectrum--get-meta 'category) 'file))
(let ((new-path (minibuffer-contents)))
(delete-region (minibuffer-prompt-end) (point-max))
(insert (abbreviate-file-name
(file-name-directory
(directory-file-name
(expand-file-name new-path))))))
(call-interactively 'backward-delete-char)))
(map! :map selectrum-minibuffer-map
[backspace] #'+selectrum/backward-updir))