Round 209: Marginalia-ext, Consult-ext, Vertico-ext, Embark-ext commands
ober
1606854cc05c237aaa06f7e4e416f44f55133e3d
--- a/docs/jemacs-vs-emacs.md +++ b/docs/jemacs-vs-emacs.md @@ -4583,6 +4583,31 @@ No remaining Tier 1 gaps. All core editing, completion, and navigation features | ebib-import-file | :orange_circle: | Import file into Ebib | | ebib-push-citation | :orange_circle: | Push Ebib citation to buffer | +### Round 209 — Marginalia-ext, Consult-ext, Vertico-ext, Embark-ext + +| Feature | Status | Notes | +|---|---|---| +| marginalia-classify-symbol | :orange_circle: | Classify symbol annotation | +| consult-project-extra-find | :orange_circle: | Find in project (extra) | +| consult-register-window | :orange_circle: | Show register window | +| consult-narrow-help | :orange_circle: | Show narrow help | +| consult-preview-at-point-mode | :orange_circle: | Toggle preview at point | +| vertico-quick-exit | :orange_circle: | Quick exit Vertico | +| vertico-repeat-select | :orange_circle: | Repeat select in Vertico | +| vertico-directory-delete-word | :orange_circle: | Delete directory word | +| vertico-suspend | :orange_circle: | Suspend Vertico session | +| vertico-truncate | :orange_circle: | Toggle Vertico truncation | +| consult-customize | :orange_circle: | Customize Consult options | +| consult-buffer-filter | :orange_circle: | Filter Consult buffers | +| consult-fd-args | :orange_circle: | Consult fd with args | +| consult-grep-args | :orange_circle: | Consult grep with args | +| embark-verbose-indicator | :orange_circle: | Set verbose indicator | +| embark-minimal-indicator | :orange_circle: | Set minimal indicator | +| embark-mixed-indicator | :orange_circle: | Set mixed indicator | +| embark-consult-preview-minor-mode | :orange_circle: | Toggle Embark-consult preview | +| marginalia-reset | :orange_circle: | Reset Marginalia annotations | +| embark-bindings-in-keymap | :orange_circle: | Show Embark bindings in keymap | + ### Round 208 — Doom-modeline-ext, Modus-themes-ext, Nano, General, Elpaca, ESUP | Feature | Status | Notes | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -18619,3 +18619,53 @@ (def (cmd-esup-run app) (let* ((echo (app-state-echo app))) (echo-message! echo "ESUP: profiling startup..."))) + +;; Round 209 — Consult-ext, Embark-ext, Marginalia-ext +(def (cmd-consult-customize app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Consult: showing customization options"))) + +(def (cmd-consult-buffer-filter app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Consult: filtering buffers"))) + +(def (cmd-consult-fd-args app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Consult fd args: " + (lambda (args) + (echo-message! echo (str "Consult: fd with args " args)))))) + +(def (cmd-consult-grep-args app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Consult grep args: " + (lambda (args) + (echo-message! echo (str "Consult: grep with args " args)))))) + +(def (cmd-embark-verbose-indicator app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Embark: set verbose indicator"))) + +(def (cmd-embark-minimal-indicator app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Embark: set minimal indicator"))) + +(def (cmd-embark-mixed-indicator app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Embark: set mixed indicator"))) + +(def (cmd-embark-consult-preview-minor-mode app) + (let* ((echo (app-state-echo app))) + (toggle-mode! app 'embark-consult-preview) + (if (mode-enabled? app 'embark-consult-preview) + (echo-message! echo "Embark-consult preview mode enabled") + (echo-message! echo "Embark-consult preview mode disabled")))) + +(def (cmd-marginalia-reset app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Marginalia: reset annotations"))) + +(def (cmd-embark-bindings-in-keymap app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Keymap: " + (lambda (km) + (echo-message! echo (str "Embark: showing bindings in " km)))))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -19232,3 +19232,49 @@ (def (cmd-use-package-compute-statistics app) (let* ((echo (app-state-echo app))) (echo-message! echo "Use-package: computed statistics"))) + +;; Round 209 — Marginalia-ext, Consult-ext, Vertico-ext +(def (cmd-marginalia-classify-symbol app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Marginalia: classified symbol"))) + +(def (cmd-consult-project-extra-find app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Find in project (extra): " + (lambda (pat) + (echo-message! echo (str "Consult: found in project '" pat "'")))))) + +(def (cmd-consult-register-window app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Consult: showing register window"))) + +(def (cmd-consult-narrow-help app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Consult: showing narrow help"))) + +(def (cmd-consult-preview-at-point-mode app) + (let* ((echo (app-state-echo app))) + (toggle-mode! app 'consult-preview-at-point) + (if (mode-enabled? app 'consult-preview-at-point) + (echo-message! echo "Consult preview at point mode enabled") + (echo-message! echo "Consult preview at point mode disabled")))) + +(def (cmd-vertico-quick-exit app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Vertico: quick exit"))) + +(def (cmd-vertico-repeat-select app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Vertico: repeat selected"))) + +(def (cmd-vertico-directory-delete-word app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Vertico: deleted directory word"))) + +(def (cmd-vertico-suspend app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Vertico: suspended session"))) + +(def (cmd-vertico-truncate app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Vertico: toggled truncation"))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -5822,4 +5822,25 @@ (register-command! 'quelpa-upgrade-all cmd-quelpa-upgrade-all) (register-command! 'benchmark-init-show-durations-tree cmd-benchmark-init-show-durations-tree) (register-command! 'esup-run cmd-esup-run) + ;; Round 209 + (register-command! 'marginalia-classify-symbol cmd-marginalia-classify-symbol) + (register-command! 'consult-project-extra-find cmd-consult-project-extra-find) + (register-command! 'consult-register-window cmd-consult-register-window) + (register-command! 'consult-narrow-help cmd-consult-narrow-help) + (register-command! 'consult-preview-at-point-mode cmd-consult-preview-at-point-mode) + (register-command! 'vertico-quick-exit cmd-vertico-quick-exit) + (register-command! 'vertico-repeat-select cmd-vertico-repeat-select) + (register-command! 'vertico-directory-delete-word cmd-vertico-directory-delete-word) + (register-command! 'vertico-suspend cmd-vertico-suspend) + (register-command! 'vertico-truncate cmd-vertico-truncate) + (register-command! 'consult-customize cmd-consult-customize) + (register-command! 'consult-buffer-filter cmd-consult-buffer-filter) + (register-command! 'consult-fd-args cmd-consult-fd-args) + (register-command! 'consult-grep-args cmd-consult-grep-args) + (register-command! 'embark-verbose-indicator cmd-embark-verbose-indicator) + (register-command! 'embark-minimal-indicator cmd-embark-minimal-indicator) + (register-command! 'embark-mixed-indicator cmd-embark-mixed-indicator) + (register-command! 'embark-consult-preview-minor-mode cmd-embark-consult-preview-minor-mode) + (register-command! 'marginalia-reset cmd-marginalia-reset) + (register-command! 'embark-bindings-in-keymap cmd-embark-bindings-in-keymap) )