dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: use the vertico function to sort directories instead of my own

Browse source
This commit is contained in:
Protesilaos Stavrou 2025-12-14 06:24:50 +02:00
parent 219d54cbf5
commit ba847a636f
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
3 changed files with 2 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
emacs/.emacs.d/prot-emacs-modules/prot-emacs-vertico.el
View file

@ -30,7 +30,7 @@
(unicode-name ,@prot-vertico-multiform-maximal)
;; Minimal
(file ,@prot-vertico-multiform-minimal
(vertico-sort-function . prot-vertico-sort-directories-first))
(vertico-sort-function . vertico-sort-directories-first))
(t ,@prot-vertico-multiform-minimal)))
(vertico-multiform-mode 1)

13
emacs/.emacs.d/prot-emacs.org
View file

@ -5285,7 +5285,7 @@ The extras I provide for ~vertico~ are in [[#h:3796a4c9-8659-4782-8aaa-3cf4e9509
(unicode-name ,@prot-vertico-multiform-maximal)
;; Minimal
(file ,@prot-vertico-multiform-minimal
(vertico-sort-function . prot-vertico-sort-directories-first))
(vertico-sort-function . vertico-sort-directories-first))
(t ,@prot-vertico-multiform-minimal)))
(vertico-multiform-mode 1)
@ -17732,17 +17732,6 @@ automatically.")
(vertico-resize . t))
"List of configurations for maximal Vertico multiform.")
(defun prot-vertico--match-directory (str)
"Match directory delimiter in STR."
(string-suffix-p "/" str))
;; From the Vertico documentation.
(defun prot-vertico-sort-directories-first (files)
"Sort directories before FILES."
(setq files (vertico-sort-alpha files))
(nconc (seq-filter #'prot-vertico--match-directory files)
(seq-remove #'prot-vertico--match-directory files)))
(defun prot-vertico-private-next ()
"Like `vertico-next' but toggle vertical view if needed.
This is done to accommodate `prot-vertico-multiform-minimal'."

11
emacs/.emacs.d/prot-lisp/prot-vertico.el
View file

@ -59,17 +59,6 @@ automatically.")
(vertico-resize . t))
"List of configurations for maximal Vertico multiform.")
(defun prot-vertico--match-directory (str)
"Match directory delimiter in STR."
(string-suffix-p "/" str))
;; From the Vertico documentation.
(defun prot-vertico-sort-directories-first (files)
"Sort directories before FILES."
(setq files (vertico-sort-alpha files))
(nconc (seq-filter #'prot-vertico--match-directory files)
(seq-remove #'prot-vertico--match-directory files)))
(defun prot-vertico-private-next ()
"Like `vertico-next' but toggle vertical view if needed.
This is done to accommodate `prot-vertico-multiform-minimal'."