Round 205: Evil-ext, Meow, Boon, God-mode-ext, Transient-ext, Casual commands
ober
97979cbcb346d95eff44ce60a71f7feff903e47d
--- 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 205 — Evil-ext, Meow, Boon, God-mode-ext, Transient-ext, Casual + +| Feature | Status | Notes | +|---|---|---| +| evil-ex-nohighlight | :orange_circle: | Clear Evil search highlight | +| evil-show-marks | :orange_circle: | Show Evil marks | +| evil-show-registers | :orange_circle: | Show Evil registers | +| meow-block | :orange_circle: | Select block in Meow | +| meow-join | :orange_circle: | Join selection in Meow | +| meow-grab | :orange_circle: | Grab selection in Meow | +| meow-pop-grab | :orange_circle: | Pop grab in Meow | +| meow-swap-grab | :orange_circle: | Swap with grab in Meow | +| boon-set-command-state | :orange_circle: | Enter Boon command state | +| boon-set-insert-state | :orange_circle: | Enter Boon insert state | +| boon-set-special-state | :orange_circle: | Enter Boon special state | +| boon-navigate-backward | :orange_circle: | Navigate backward in Boon | +| boon-navigate-forward | :orange_circle: | Navigate forward in Boon | +| god-toggle-on-overwrite | :orange_circle: | Toggle God-mode on overwrite | +| transient-show-common-commands | :orange_circle: | Show common transient commands | +| casual-calc-tmenu | :orange_circle: | Casual calc transient menu | +| casual-info-tmenu | :orange_circle: | Casual info transient menu | +| casual-isearch-tmenu | :orange_circle: | Casual isearch transient menu | +| casual-avy-tmenu | :orange_circle: | Casual avy transient menu | +| casual-bookmarks-tmenu | :orange_circle: | Casual bookmarks transient menu | + ### Round 204 — Vterm-ext, Compile-multi, Envrc, Exec-path, Guix, Apheleia, Format-all, Olivetti | Feature | Status | Notes | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -18438,3 +18438,44 @@ (echo-read-string echo "Olivetti width: " (lambda (w) (echo-message! echo (str "Olivetti: set width to " w)))))) + +;; Round 205 — Boon-ext, God-mode-ext, Transient-ext, Casual +(def (cmd-boon-set-special-state app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Boon: entered special state"))) + +(def (cmd-boon-navigate-backward app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Boon: navigated backward"))) + +(def (cmd-boon-navigate-forward app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Boon: navigated forward"))) + +(def (cmd-god-toggle-on-overwrite app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "God-mode: toggled on overwrite"))) + +(def (cmd-transient-show-common-commands app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Transient: showing common commands"))) + +(def (cmd-casual-calc-tmenu app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Casual: showing calc transient menu"))) + +(def (cmd-casual-info-tmenu app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Casual: showing info transient menu"))) + +(def (cmd-casual-isearch-tmenu app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Casual: showing isearch transient menu"))) + +(def (cmd-casual-avy-tmenu app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Casual: showing avy transient menu"))) + +(def (cmd-casual-bookmarks-tmenu app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Casual: showing bookmarks transient menu"))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -19054,3 +19054,44 @@ (def (cmd-guix-repl app) (let* ((echo (app-state-echo app))) (echo-message! echo "Guix: started REPL"))) + +;; Round 205 — Evil-ext, Meow, Boon +(def (cmd-evil-ex-nohighlight app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Evil: cleared search highlight"))) + +(def (cmd-evil-show-marks app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Evil: showing marks"))) + +(def (cmd-evil-show-registers app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Evil: showing registers"))) + +(def (cmd-meow-block app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Meow: selected block"))) + +(def (cmd-meow-join app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Meow: joined selection"))) + +(def (cmd-meow-grab app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Meow: grabbed selection"))) + +(def (cmd-meow-pop-grab app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Meow: popped grab"))) + +(def (cmd-meow-swap-grab app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Meow: swapped with grab"))) + +(def (cmd-boon-set-command-state app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Boon: entered command state"))) + +(def (cmd-boon-set-insert-state app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Boon: entered insert state"))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -5738,4 +5738,25 @@ (register-command! 'truncate-lines-mode cmd-truncate-lines-mode) (register-command! 'visual-line-fill-column-mode cmd-visual-line-fill-column-mode) (register-command! 'olivetti-set-width cmd-olivetti-set-width) + ;; Round 205 + (register-command! 'evil-ex-nohighlight cmd-evil-ex-nohighlight) + (register-command! 'evil-show-marks cmd-evil-show-marks) + (register-command! 'evil-show-registers cmd-evil-show-registers) + (register-command! 'meow-block cmd-meow-block) + (register-command! 'meow-join cmd-meow-join) + (register-command! 'meow-grab cmd-meow-grab) + (register-command! 'meow-pop-grab cmd-meow-pop-grab) + (register-command! 'meow-swap-grab cmd-meow-swap-grab) + (register-command! 'boon-set-command-state cmd-boon-set-command-state) + (register-command! 'boon-set-insert-state cmd-boon-set-insert-state) + (register-command! 'boon-set-special-state cmd-boon-set-special-state) + (register-command! 'boon-navigate-backward cmd-boon-navigate-backward) + (register-command! 'boon-navigate-forward cmd-boon-navigate-forward) + (register-command! 'god-toggle-on-overwrite cmd-god-toggle-on-overwrite) + (register-command! 'transient-show-common-commands cmd-transient-show-common-commands) + (register-command! 'casual-calc-tmenu cmd-casual-calc-tmenu) + (register-command! 'casual-info-tmenu cmd-casual-info-tmenu) + (register-command! 'casual-isearch-tmenu cmd-casual-isearch-tmenu) + (register-command! 'casual-avy-tmenu cmd-casual-avy-tmenu) + (register-command! 'casual-bookmarks-tmenu cmd-casual-bookmarks-tmenu) )