Round 741-750: Undo ext, TRAMP ext, Kill Ring, Comint ext, Puni, Search ext, Shell ext, Terminal ext, Crux ext, Sideline (100 commands)
ober
f7b16d74e2bae197000384332913d28074f4dbc9
--- a/docs/jemacs-vs-emacs.md +++ b/docs/jemacs-vs-emacs.md @@ -6308,6 +6308,156 @@ No remaining Tier 1 gaps. All core editing, completion, and navigation features | `neon-connect` | :orange_circle: Scaffold | Connect | | `neon-branch` | :orange_circle: Scaffold | Branch | | `turso-connect` | :orange_circle: Scaffold | Connect | + +### Round 741: Undo Tree, Undo Fu, Goto Chg (undo/redo ext) + +| Emacs Feature | Status | jemacs Command | +|---|---|---| +| `undo-tree-visualize` | :orange_circle: | `undo-tree-visualize` | +| `undo-tree-switch-branch` | :orange_circle: | `undo-tree-switch-branch` | +| `undo-tree-save-history` | :orange_circle: | `undo-tree-save-history` | +| `undo-tree-load-history` | :orange_circle: | `undo-tree-load-history` | +| `undo-fu-only-undo` | :orange_circle: | `undo-fu-only-undo` | +| `undo-fu-only-redo` | :orange_circle: | `undo-fu-only-redo` | +| `undo-fu-session-save` | :orange_circle: | `undo-fu-session-save` | +| `undo-fu-session-recover` | :orange_circle: | `undo-fu-session-recover` | +| `goto-last-change` | :orange_circle: | `goto-chg-undo` | +| `goto-last-change-reverse` | :orange_circle: | `goto-chg-redo` | + +### Round 742: TRAMP ext, SSH Deploy, Detached, Pcmpl + +| Emacs Feature | Status | jemacs Command | +|---|---|---| +| `tramp-cleanup-connection` | :orange_circle: | `tramp-cleanup-connection` | +| `tramp-docker` | :orange_circle: | `tramp-docker` | +| `ssh-deploy-diff-handler` | :orange_circle: | `ssh-deploy-diff-handler` | +| `ssh-deploy-remote-changes-handler` | :orange_circle: | `ssh-deploy-remote-changes` | +| `detached-compile` | :orange_circle: | `detached-compile-command` | +| `inheritenv-add-advice` | :orange_circle: | `inheritenv-apply` | +| `exec-path-from-shell-initialize` | :orange_circle: | `exec-path-from-shell` | +| `pcmpl-git` | :orange_circle: | `pcmpl-git` | +| `pcmpl-homebrew` | :orange_circle: | `pcmpl-homebrew` | +| `pcmpl-args` | :orange_circle: | `pcmpl-args` | + +### Round 743: Kill Ring, Easy Kill, Change Inner + +| Emacs Feature | Status | jemacs Command | +|---|---|---| +| `popup-kill-ring` | :orange_circle: | `popup-kill-ring` | +| `browse-kill-ring-previous` | :orange_circle: | `browse-kill-ring-previous` | +| `browse-kill-ring-next` | :orange_circle: | `browse-kill-ring-next` | +| `easy-kill-on-buffer-file-name` | :orange_circle: | `easy-kill-on-buffer-file-name` | +| `easy-mark` | :orange_circle: | `easy-mark` | +| `change-inner` | :orange_circle: | `change-inner` | +| `ci-change-inner` | :orange_circle: | `ci-change-inner` | +| `co-change-outer` | :orange_circle: | `co-change-outer` | +| `whole-line-or-region-kill-region` | :orange_circle: | `whole-line-or-region-kill-region` | +| `whole-line-or-region-copy-region-as-kill` | :orange_circle: | `whole-line-or-region-copy-region` | + +### Round 744: Comint ext, Expreg, Color-rg, Deadgrep + +| Emacs Feature | Status | jemacs Command | +|---|---|---| +| `comint-postoutput-scroll-to-bottom` | :orange_circle: | `comint-scroll-to-bottom` | +| `comint-watch-for-password-prompt` | :orange_circle: | `comint-watch-for-password` | +| `xterm-mouse-mode` | :orange_circle: | `xterm-mouse-mode` | +| `back-button-local` | :orange_circle: | `back-button-local` | +| `thing-at-point-url-at-point` | :orange_circle: | `thing-at-point-uri` | +| `expreg-expand` | :orange_circle: | `expreg-expand` | +| `expreg-contract` | :orange_circle: | `expreg-contract` | +| `color-rg-search-project` | :orange_circle: | `color-rg-search-project` | +| `color-rg-search-input` | :orange_circle: | `color-rg-search-input` | +| `deadgrep-restart` | :orange_circle: | `deadgrep-restart` | + +### Round 745: Puni, Point History, MWIM, Back Button + +| Emacs Feature | Status | jemacs Command | +|---|---|---| +| `puni-kill-line` | :orange_circle: | `puni-kill-line` | +| `puni-forward-kill-word` | :orange_circle: | `puni-forward-kill-word` | +| `puni-backward-kill-word` | :orange_circle: | `puni-backward-kill-word` | +| `puni-splice` | :orange_circle: | `puni-splice` | +| `point-history-show` | :orange_circle: | `point-history-show` | +| `point-history-goto` | :orange_circle: | `point-history-goto` | +| `mwim-beginning-of-code-or-line` | :orange_circle: | `mwim-beginning-of-code-or-line` | +| `mwim-end-of-code-or-line` | :orange_circle: | `mwim-end-of-code-or-line` | +| `back-button-push` | :orange_circle: | `back-button-push` | +| `back-button-pop` | :orange_circle: | `back-button-pop` | + +### Round 746: Visual Regexp, Wgrep, Ctrlf, Phi Search, Anzu + +| Emacs Feature | Status | jemacs Command | +|---|---|---| +| `vr/replace` | :orange_circle: | `visual-regexp-replace` | +| `vr/mc-mark` | :orange_circle: | `visual-regexp-mc` | +| `wgrep-save-all-buffers` | :orange_circle: | `wgrep-save-all-buffers` | +| `wgrep-exit` | :orange_circle: | `wgrep-exit` | +| `ctrlf-forward-default` | :orange_circle: | `ctrlf-forward` | +| `ctrlf-backward-default` | :orange_circle: | `ctrlf-backward` | +| `phi-search` | :orange_circle: | `phi-search-forward` | +| `phi-search-backward` | :orange_circle: | `phi-search-backward` | +| `anzu-mode` | :orange_circle: | `anzu-mode` | +| `anzu-query-replace-at-cursor` | :orange_circle: | `anzu-query-replace-at-cursor` | + +### Round 747: Aweshell, Fish, Powershell, Zsh + +| Emacs Feature | Status | jemacs Command | +|---|---|---| +| `aweshell-toggle` | :orange_circle: | `aweshell-toggle` | +| `aweshell-new` | :orange_circle: | `aweshell-new` | +| `aweshell-next` | :orange_circle: | `aweshell-next` | +| `aweshell-prev` | :orange_circle: | `aweshell-prev` | +| `fish-mode` | :orange_circle: | `fish-mode` | +| `fish-completion` | :orange_circle: | `fish-completion` | +| `powershell` | :orange_circle: | `powershell-mode` | +| `powershell-send-command` | :orange_circle: | `powershell-send-command` | +| `zsh-mode` | :orange_circle: | `zsh-mode` | +| `eshell-toggle-fullscreen` | :orange_circle: | `eshell-toggle-fullscreen` | + +### Round 748: Multi-Term ext, Eshell-z, Vterm ext, Detached + +| Emacs Feature | Status | jemacs Command | +|---|---|---| +| `multi-term-next` | :orange_circle: | `multi-term-next` | +| `multi-term-prev` | :orange_circle: | `multi-term-prev` | +| `multi-term-dedicated-toggle` | :orange_circle: | `multi-term-dedicated-toggle` | +| `eshell-z` | :orange_circle: | `eshell-z` | +| `vterm-copy-mode` | :orange_circle: | `vterm-copy-mode` | +| `vterm-clear-scrollback` | :orange_circle: | `vterm-clear-scrollback` | +| `vterm-send-C-c` | :orange_circle: | `vterm-send-ctrl-c` | +| `vterm-send-C-d` | :orange_circle: | `vterm-send-ctrl-d` | +| `detached-open-session` | :orange_circle: | `detached-open-session` | +| `detached-view-session` | :orange_circle: | `detached-view-session` | + +### Round 749: Crux ext, Selected, Affe, Deadgrep Edit + +| Emacs Feature | Status | jemacs Command | +|---|---|---| +| `crux-kill-other-buffers` | :orange_circle: | `crux-kill-other-buffers` | +| `crux-eval-and-replace` | :orange_circle: | `crux-eval-and-replace` | +| `crux-recompile-init` | :orange_circle: | `crux-recompile-init` | +| `crux-insert-date` | :orange_circle: | `crux-insert-date` | +| `selected-off` | :orange_circle: | `selected-off` | +| `selected-on` | :orange_circle: | `selected-on` | +| `affe-find` | :orange_circle: | `affe-find` | +| `affe-grep` | :orange_circle: | `affe-grep` | +| `deadgrep-edit-mode` | :orange_circle: | `deadgrep-edit` | +| `thing-edit-symbol` | :orange_circle: | `thing-edit-symbol` | + +### Round 750: Git Gutter+, Sideline + +| Emacs Feature | Status | jemacs Command | +|---|---|---| +| `git-gutter+-mode` | :orange_circle: | `git-gutter-plus-mode` | +| `git-gutter+-next-hunk` | :orange_circle: | `git-gutter-plus-next-hunk` | +| `git-gutter+-previous-hunk` | :orange_circle: | `git-gutter-plus-previous-hunk` | +| `git-gutter+-revert-hunk` | :orange_circle: | `git-gutter-plus-revert-hunk` | +| `git-gutter+-stage-hunk` | :orange_circle: | `git-gutter-plus-stage-hunk` | +| `sideline-mode` | :orange_circle: | `sideline-mode` | +| `sideline-blame` | :orange_circle: | `sideline-blame` | +| `sideline-flymake` | :orange_circle: | `sideline-flymake` | +| `sideline-flycheck` | :orange_circle: | `sideline-flycheck` | +| `sideline-lsp` | :orange_circle: | `sideline-lsp` | ### Round 631 — Process Calculi (Pi-calculus, CSP) | Feature | Status | Notes | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -35158,3 +35158,58 @@ (def (cmd-neon-connect app) (let* ((echo (app-state-echo app))) (echo-message! echo "Neon: connect"))) (def (cmd-neon-branch app) (let* ((echo (app-state-echo app))) (echo-message! echo "Neon: branch"))) (def (cmd-turso-connect app) (let* ((echo (app-state-echo app))) (echo-message! echo "Turso: connect"))) +;; Round 742: TRAMP ext, SSH Deploy +(def (cmd-tramp-cleanup-connection app) (let* ((echo (app-state-echo app))) (echo-message! echo "TRAMP: cleanup connection"))) +(def (cmd-tramp-docker app) (let* ((echo (app-state-echo app))) (echo-message! echo "TRAMP: docker"))) +(def (cmd-ssh-deploy-diff-handler app) (let* ((echo (app-state-echo app))) (echo-message! echo "SSH Deploy: diff handler"))) +(def (cmd-ssh-deploy-remote-changes app) (let* ((echo (app-state-echo app))) (echo-message! echo "SSH Deploy: remote changes"))) +(def (cmd-detached-compile-command app) (let* ((echo (app-state-echo app))) (echo-message! echo "Detached: compile command"))) +(def (cmd-inheritenv-apply app) (let* ((echo (app-state-echo app))) (echo-message! echo "Inheritenv: apply"))) +(def (cmd-exec-path-from-shell app) (let* ((echo (app-state-echo app))) (echo-message! echo "Exec Path: from shell"))) +(def (cmd-pcmpl-git app) (let* ((echo (app-state-echo app))) (echo-message! echo "Pcmpl: git completion"))) +(def (cmd-pcmpl-homebrew app) (let* ((echo (app-state-echo app))) (echo-message! echo "Pcmpl: homebrew completion"))) +(def (cmd-pcmpl-args app) (let* ((echo (app-state-echo app))) (echo-message! echo "Pcmpl: args completion"))) +;; Round 744: Comint ext, Mouse ext +(def (cmd-comint-scroll-to-bottom app) (let* ((echo (app-state-echo app))) (echo-message! echo "Comint: scroll to bottom"))) +(def (cmd-comint-watch-for-password app) (let* ((echo (app-state-echo app))) (echo-message! echo "Comint: watch for password"))) +(def (cmd-xterm-mouse-mode app) (let* ((echo (app-state-echo app))) (echo-message! echo "XTerm: mouse mode"))) +(def (cmd-back-button-local app) (let* ((echo (app-state-echo app))) (echo-message! echo "Back Button: local"))) +(def (cmd-thing-at-point-uri app) (let* ((echo (app-state-echo app))) (echo-message! echo "Thing: URI at point"))) +(def (cmd-expreg-expand app) (let* ((echo (app-state-echo app))) (echo-message! echo "Expreg: expand"))) +(def (cmd-expreg-contract app) (let* ((echo (app-state-echo app))) (echo-message! echo "Expreg: contract"))) +(def (cmd-color-rg-search-project app) (let* ((echo (app-state-echo app))) (echo-message! echo "Color RG: search project"))) +(def (cmd-color-rg-search-input app) (let* ((echo (app-state-echo app))) (echo-message! echo "Color RG: search input"))) +(def (cmd-deadgrep-restart app) (let* ((echo (app-state-echo app))) (echo-message! echo "Deadgrep: restart"))) +;; Round 746: Regex, Wgrep ext +(def (cmd-visual-regexp-replace app) (let* ((echo (app-state-echo app))) (echo-message! echo "Visual Regexp: replace"))) +(def (cmd-visual-regexp-mc app) (let* ((echo (app-state-echo app))) (echo-message! echo "Visual Regexp: multiple cursors"))) +(def (cmd-wgrep-save-all-buffers app) (let* ((echo (app-state-echo app))) (echo-message! echo "Wgrep: save all buffers"))) +(def (cmd-wgrep-exit app) (let* ((echo (app-state-echo app))) (echo-message! echo "Wgrep: exit"))) +(def (cmd-ctrlf-forward app) (let* ((echo (app-state-echo app))) (echo-message! echo "CTRLF: forward"))) +(def (cmd-ctrlf-backward app) (let* ((echo (app-state-echo app))) (echo-message! echo "CTRLF: backward"))) +(def (cmd-phi-search-forward app) (let* ((echo (app-state-echo app))) (echo-message! echo "Phi: search forward"))) +(def (cmd-phi-search-backward app) (let* ((echo (app-state-echo app))) (echo-message! echo "Phi: search backward"))) +(def (cmd-anzu-mode app) (let* ((echo (app-state-echo app))) (echo-message! echo "Anzu: toggle mode"))) +(def (cmd-anzu-query-replace-at-cursor app) (let* ((echo (app-state-echo app))) (echo-message! echo "Anzu: query replace at cursor"))) +;; Round 748: Detached, Multi-term ext +(def (cmd-multi-term-next app) (let* ((echo (app-state-echo app))) (echo-message! echo "Multi-term: next"))) +(def (cmd-multi-term-prev app) (let* ((echo (app-state-echo app))) (echo-message! echo "Multi-term: previous"))) +(def (cmd-multi-term-dedicated-toggle app) (let* ((echo (app-state-echo app))) (echo-message! echo "Multi-term: dedicated toggle"))) +(def (cmd-eshell-z app) (let* ((echo (app-state-echo app))) (echo-message! echo "Eshell: z directory jump"))) +(def (cmd-vterm-copy-mode app) (let* ((echo (app-state-echo app))) (echo-message! echo "VTerm: copy mode"))) +(def (cmd-vterm-clear-scrollback app) (let* ((echo (app-state-echo app))) (echo-message! echo "VTerm: clear scrollback"))) +(def (cmd-vterm-send-ctrl-c app) (let* ((echo (app-state-echo app))) (echo-message! echo "VTerm: send Ctrl-C"))) +(def (cmd-vterm-send-ctrl-d app) (let* ((echo (app-state-echo app))) (echo-message! echo "VTerm: send Ctrl-D"))) +(def (cmd-detached-open-session app) (let* ((echo (app-state-echo app))) (echo-message! echo "Detached: open session"))) +(def (cmd-detached-view-session app) (let* ((echo (app-state-echo app))) (echo-message! echo "Detached: view session"))) +;; Round 750: Git-gutter ext, Sideline ext +(def (cmd-git-gutter-plus-mode app) (let* ((echo (app-state-echo app))) (echo-message! echo "Git Gutter+: toggle mode"))) +(def (cmd-git-gutter-plus-next-hunk app) (let* ((echo (app-state-echo app))) (echo-message! echo "Git Gutter+: next hunk"))) +(def (cmd-git-gutter-plus-previous-hunk app) (let* ((echo (app-state-echo app))) (echo-message! echo "Git Gutter+: previous hunk"))) +(def (cmd-git-gutter-plus-revert-hunk app) (let* ((echo (app-state-echo app))) (echo-message! echo "Git Gutter+: revert hunk"))) +(def (cmd-git-gutter-plus-stage-hunk app) (let* ((echo (app-state-echo app))) (echo-message! echo "Git Gutter+: stage hunk"))) +(def (cmd-sideline-mode app) (let* ((echo (app-state-echo app))) (echo-message! echo "Sideline: toggle mode"))) +(def (cmd-sideline-blame app) (let* ((echo (app-state-echo app))) (echo-message! echo "Sideline: blame"))) +(def (cmd-sideline-flymake app) (let* ((echo (app-state-echo app))) (echo-message! echo "Sideline: flymake"))) +(def (cmd-sideline-flycheck app) (let* ((echo (app-state-echo app))) (echo-message! echo "Sideline: flycheck"))) +(def (cmd-sideline-lsp app) (let* ((echo (app-state-echo app))) (echo-message! echo "Sideline: lsp"))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -34382,3 +34382,58 @@ (def (cmd-statuspage-create app) (let* ((echo (app-state-echo app))) (echo-message! echo "StatusPage: create incident"))) (def (cmd-prometheus-query app) (let* ((echo (app-state-echo app))) (echo-message! echo "Prometheus: query"))) (def (cmd-prometheus-graph app) (let* ((echo (app-state-echo app))) (echo-message! echo "Prometheus: graph"))) +;; Round 741: Undo-tree, Undo-fu ext +(def (cmd-undo-tree-visualize app) (let* ((echo (app-state-echo app))) (echo-message! echo "Undo Tree: visualize"))) +(def (cmd-undo-tree-switch-branch app) (let* ((echo (app-state-echo app))) (echo-message! echo "Undo Tree: switch branch"))) +(def (cmd-undo-tree-save-history app) (let* ((echo (app-state-echo app))) (echo-message! echo "Undo Tree: save history"))) +(def (cmd-undo-tree-load-history app) (let* ((echo (app-state-echo app))) (echo-message! echo "Undo Tree: load history"))) +(def (cmd-undo-fu-only-undo app) (let* ((echo (app-state-echo app))) (echo-message! echo "Undo-fu: only undo"))) +(def (cmd-undo-fu-only-redo app) (let* ((echo (app-state-echo app))) (echo-message! echo "Undo-fu: only redo"))) +(def (cmd-undo-fu-session-save app) (let* ((echo (app-state-echo app))) (echo-message! echo "Undo-fu: session save"))) +(def (cmd-undo-fu-session-recover app) (let* ((echo (app-state-echo app))) (echo-message! echo "Undo-fu: session recover"))) +(def (cmd-goto-chg-undo app) (let* ((echo (app-state-echo app))) (echo-message! echo "Goto Change: undo"))) +(def (cmd-goto-chg-redo app) (let* ((echo (app-state-echo app))) (echo-message! echo "Goto Change: redo"))) +;; Round 743: Kill Ring, Easy-kill, Change-inner +(def (cmd-popup-kill-ring app) (let* ((echo (app-state-echo app))) (echo-message! echo "Popup Kill Ring: show"))) +(def (cmd-browse-kill-ring-previous app) (let* ((echo (app-state-echo app))) (echo-message! echo "Browse Kill Ring: previous"))) +(def (cmd-browse-kill-ring-next app) (let* ((echo (app-state-echo app))) (echo-message! echo "Browse Kill Ring: next"))) +(def (cmd-easy-kill-on-buffer-file-name app) (let* ((echo (app-state-echo app))) (echo-message! echo "Easy Kill: buffer file name"))) +(def (cmd-easy-mark app) (let* ((echo (app-state-echo app))) (echo-message! echo "Easy Kill: mark"))) +(def (cmd-change-inner app) (let* ((echo (app-state-echo app))) (echo-message! echo "Change Inner: change"))) +(def (cmd-ci-change-inner app) (let* ((echo (app-state-echo app))) (echo-message! echo "CI: change inner"))) +(def (cmd-co-change-outer app) (let* ((echo (app-state-echo app))) (echo-message! echo "CO: change outer"))) +(def (cmd-whole-line-or-region-kill-region app) (let* ((echo (app-state-echo app))) (echo-message! echo "Whole Line: kill region"))) +(def (cmd-whole-line-or-region-copy-region app) (let* ((echo (app-state-echo app))) (echo-message! echo "Whole Line: copy region"))) +;; Round 745: Puni, Navigation ext +(def (cmd-puni-kill-line app) (let* ((echo (app-state-echo app))) (echo-message! echo "Puni: kill line"))) +(def (cmd-puni-forward-kill-word app) (let* ((echo (app-state-echo app))) (echo-message! echo "Puni: forward kill word"))) +(def (cmd-puni-backward-kill-word app) (let* ((echo (app-state-echo app))) (echo-message! echo "Puni: backward kill word"))) +(def (cmd-puni-splice app) (let* ((echo (app-state-echo app))) (echo-message! echo "Puni: splice"))) +(def (cmd-point-history-show app) (let* ((echo (app-state-echo app))) (echo-message! echo "Point History: show"))) +(def (cmd-point-history-goto app) (let* ((echo (app-state-echo app))) (echo-message! echo "Point History: goto"))) +(def (cmd-mwim-beginning-of-code-or-line app) (let* ((echo (app-state-echo app))) (echo-message! echo "MWIM: beginning of code/line"))) +(def (cmd-mwim-end-of-code-or-line app) (let* ((echo (app-state-echo app))) (echo-message! echo "MWIM: end of code/line"))) +(def (cmd-back-button-push app) (let* ((echo (app-state-echo app))) (echo-message! echo "Back Button: push"))) +(def (cmd-back-button-pop app) (let* ((echo (app-state-echo app))) (echo-message! echo "Back Button: pop"))) +;; Round 747: Shell ext (Aweshell, Fish, PowerShell, Zsh) +(def (cmd-aweshell-toggle app) (let* ((echo (app-state-echo app))) (echo-message! echo "Aweshell: toggle"))) +(def (cmd-aweshell-new app) (let* ((echo (app-state-echo app))) (echo-message! echo "Aweshell: new"))) +(def (cmd-aweshell-next app) (let* ((echo (app-state-echo app))) (echo-message! echo "Aweshell: next"))) +(def (cmd-aweshell-prev app) (let* ((echo (app-state-echo app))) (echo-message! echo "Aweshell: previous"))) +(def (cmd-fish-mode app) (let* ((echo (app-state-echo app))) (echo-message! echo "Fish: toggle mode"))) +(def (cmd-fish-completion app) (let* ((echo (app-state-echo app))) (echo-message! echo "Fish: completion"))) +(def (cmd-powershell-mode app) (let* ((echo (app-state-echo app))) (echo-message! echo "PowerShell: toggle mode"))) +(def (cmd-powershell-send-command app) (let* ((echo (app-state-echo app))) (echo-message! echo "PowerShell: send command"))) +(def (cmd-zsh-mode app) (let* ((echo (app-state-echo app))) (echo-message! echo "Zsh: toggle mode"))) +(def (cmd-eshell-toggle-fullscreen app) (let* ((echo (app-state-echo app))) (echo-message! echo "Eshell: toggle fullscreen"))) +;; Round 749: Crux ext, Misc editing +(def (cmd-crux-kill-other-buffers app) (let* ((echo (app-state-echo app))) (echo-message! echo "Crux: kill other buffers"))) +(def (cmd-crux-eval-and-replace app) (let* ((echo (app-state-echo app))) (echo-message! echo "Crux: eval and replace"))) +(def (cmd-crux-recompile-init app) (let* ((echo (app-state-echo app))) (echo-message! echo "Crux: recompile init"))) +(def (cmd-crux-insert-date app) (let* ((echo (app-state-echo app))) (echo-message! echo "Crux: insert date"))) +(def (cmd-selected-off app) (let* ((echo (app-state-echo app))) (echo-message! echo "Selected: off"))) +(def (cmd-selected-on app) (let* ((echo (app-state-echo app))) (echo-message! echo "Selected: on"))) +(def (cmd-affe-find app) (let* ((echo (app-state-echo app))) (echo-message! echo "Affe: find"))) +(def (cmd-affe-grep app) (let* ((echo (app-state-echo app))) (echo-message! echo "Affe: grep"))) +(def (cmd-deadgrep-edit app) (let* ((echo (app-state-echo app))) (echo-message! echo "Deadgrep: edit mode"))) +(def (cmd-thing-edit-symbol app) (let* ((echo (app-state-echo app))) (echo-message! echo "Thing Edit: symbol"))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -13421,4 +13421,35 @@ ;; Round 740: Cloud DB (Supabase, PlanetScale, Neon, Turso) (register-command! 'render-services cmd-render-services) (register-command! 'supabase-start cmd-supabase-start) (register-command! 'supabase-db-push cmd-supabase-db-push) (register-command! 'supabase-functions cmd-supabase-functions) (register-command! 'planetscale-connect cmd-planetscale-connect) (register-command! 'planetscale-branch cmd-planetscale-branch) (register-command! 'planetscale-deploy cmd-planetscale-deploy) (register-command! 'neon-connect cmd-neon-connect) (register-command! 'neon-branch cmd-neon-branch) (register-command! 'turso-connect cmd-turso-connect) + + ;; Round 741: Undo Tree, Undo Fu, Goto Chg (undo/redo ext) + (register-command! 'undo-tree-visualize cmd-undo-tree-visualize) (register-command! 'undo-tree-switch-branch cmd-undo-tree-switch-branch) (register-command! 'undo-tree-save-history cmd-undo-tree-save-history) (register-command! 'undo-tree-load-history cmd-undo-tree-load-history) (register-command! 'undo-fu-only-undo cmd-undo-fu-only-undo) + (register-command! 'undo-fu-only-redo cmd-undo-fu-only-redo) (register-command! 'undo-fu-session-save cmd-undo-fu-session-save) (register-command! 'undo-fu-session-recover cmd-undo-fu-session-recover) (register-command! 'goto-chg-undo cmd-goto-chg-undo) (register-command! 'goto-chg-redo cmd-goto-chg-redo) + ;; Round 742: TRAMP ext, SSH Deploy, Detached, Pcmpl + (register-command! 'tramp-cleanup-connection cmd-tramp-cleanup-connection) (register-command! 'tramp-docker cmd-tramp-docker) (register-command! 'ssh-deploy-diff-handler cmd-ssh-deploy-diff-handler) (register-command! 'ssh-deploy-remote-changes cmd-ssh-deploy-remote-changes) (register-command! 'detached-compile-command cmd-detached-compile-command) + (register-command! 'inheritenv-apply cmd-inheritenv-apply) (register-command! 'exec-path-from-shell cmd-exec-path-from-shell) (register-command! 'pcmpl-git cmd-pcmpl-git) (register-command! 'pcmpl-homebrew cmd-pcmpl-homebrew) (register-command! 'pcmpl-args cmd-pcmpl-args) + ;; Round 743: Kill Ring, Easy Kill, Change Inner + (register-command! 'popup-kill-ring cmd-popup-kill-ring) (register-command! 'browse-kill-ring-previous cmd-browse-kill-ring-previous) (register-command! 'browse-kill-ring-next cmd-browse-kill-ring-next) (register-command! 'easy-kill-on-buffer-file-name cmd-easy-kill-on-buffer-file-name) (register-command! 'easy-mark cmd-easy-mark) + (register-command! 'change-inner cmd-change-inner) (register-command! 'ci-change-inner cmd-ci-change-inner) (register-command! 'co-change-outer cmd-co-change-outer) (register-command! 'whole-line-or-region-kill-region cmd-whole-line-or-region-kill-region) (register-command! 'whole-line-or-region-copy-region cmd-whole-line-or-region-copy-region) + ;; Round 744: Comint ext, Expreg, Color-rg, Deadgrep + (register-command! 'comint-scroll-to-bottom cmd-comint-scroll-to-bottom) (register-command! 'comint-watch-for-password cmd-comint-watch-for-password) (register-command! 'xterm-mouse-mode cmd-xterm-mouse-mode) (register-command! 'back-button-local cmd-back-button-local) (register-command! 'thing-at-point-uri cmd-thing-at-point-uri) + (register-command! 'expreg-expand cmd-expreg-expand) (register-command! 'expreg-contract cmd-expreg-contract) (register-command! 'color-rg-search-project cmd-color-rg-search-project) (register-command! 'color-rg-search-input cmd-color-rg-search-input) (register-command! 'deadgrep-restart cmd-deadgrep-restart) + ;; Round 745: Puni, Point History, MWIM, Back Button + (register-command! 'puni-kill-line cmd-puni-kill-line) (register-command! 'puni-forward-kill-word cmd-puni-forward-kill-word) (register-command! 'puni-backward-kill-word cmd-puni-backward-kill-word) (register-command! 'puni-splice cmd-puni-splice) (register-command! 'point-history-show cmd-point-history-show) + (register-command! 'point-history-goto cmd-point-history-goto) (register-command! 'mwim-beginning-of-code-or-line cmd-mwim-beginning-of-code-or-line) (register-command! 'mwim-end-of-code-or-line cmd-mwim-end-of-code-or-line) (register-command! 'back-button-push cmd-back-button-push) (register-command! 'back-button-pop cmd-back-button-pop) + ;; Round 746: Visual Regexp, Wgrep, Ctrlf, Phi Search, Anzu + (register-command! 'visual-regexp-replace cmd-visual-regexp-replace) (register-command! 'visual-regexp-mc cmd-visual-regexp-mc) (register-command! 'wgrep-save-all-buffers cmd-wgrep-save-all-buffers) (register-command! 'wgrep-exit cmd-wgrep-exit) (register-command! 'ctrlf-forward cmd-ctrlf-forward) + (register-command! 'ctrlf-backward cmd-ctrlf-backward) (register-command! 'phi-search-forward cmd-phi-search-forward) (register-command! 'phi-search-backward cmd-phi-search-backward) (register-command! 'anzu-mode cmd-anzu-mode) (register-command! 'anzu-query-replace-at-cursor cmd-anzu-query-replace-at-cursor) + ;; Round 747: Aweshell, Fish, Powershell, Zsh + (register-command! 'aweshell-toggle cmd-aweshell-toggle) (register-command! 'aweshell-new cmd-aweshell-new) (register-command! 'aweshell-next cmd-aweshell-next) (register-command! 'aweshell-prev cmd-aweshell-prev) (register-command! 'fish-mode cmd-fish-mode) + (register-command! 'fish-completion cmd-fish-completion) (register-command! 'powershell-mode cmd-powershell-mode) (register-command! 'powershell-send-command cmd-powershell-send-command) (register-command! 'zsh-mode cmd-zsh-mode) (register-command! 'eshell-toggle-fullscreen cmd-eshell-toggle-fullscreen) + ;; Round 748: Multi-Term ext, Eshell-z, Vterm ext, Detached + (register-command! 'multi-term-next cmd-multi-term-next) (register-command! 'multi-term-prev cmd-multi-term-prev) (register-command! 'multi-term-dedicated-toggle cmd-multi-term-dedicated-toggle) (register-command! 'eshell-z cmd-eshell-z) (register-command! 'vterm-copy-mode cmd-vterm-copy-mode) + (register-command! 'vterm-clear-scrollback cmd-vterm-clear-scrollback) (register-command! 'vterm-send-ctrl-c cmd-vterm-send-ctrl-c) (register-command! 'vterm-send-ctrl-d cmd-vterm-send-ctrl-d) (register-command! 'detached-open-session cmd-detached-open-session) (register-command! 'detached-view-session cmd-detached-view-session) + ;; Round 749: Crux ext, Selected, Affe, Deadgrep Edit + (register-command! 'crux-kill-other-buffers cmd-crux-kill-other-buffers) (register-command! 'crux-eval-and-replace cmd-crux-eval-and-replace) (register-command! 'crux-recompile-init cmd-crux-recompile-init) (register-command! 'crux-insert-date cmd-crux-insert-date) (register-command! 'selected-off cmd-selected-off) + (register-command! 'selected-on cmd-selected-on) (register-command! 'affe-find cmd-affe-find) (register-command! 'affe-grep cmd-affe-grep) (register-command! 'deadgrep-edit cmd-deadgrep-edit) (register-command! 'thing-edit-symbol cmd-thing-edit-symbol) + ;; Round 750: Git Gutter+, Sideline + (register-command! 'git-gutter-plus-mode cmd-git-gutter-plus-mode) (register-command! 'git-gutter-plus-next-hunk cmd-git-gutter-plus-next-hunk) (register-command! 'git-gutter-plus-previous-hunk cmd-git-gutter-plus-previous-hunk) (register-command! 'git-gutter-plus-revert-hunk cmd-git-gutter-plus-revert-hunk) (register-command! 'git-gutter-plus-stage-hunk cmd-git-gutter-plus-stage-hunk) + (register-command! 'sideline-mode cmd-sideline-mode) (register-command! 'sideline-blame cmd-sideline-blame) (register-command! 'sideline-flymake cmd-sideline-flymake) (register-command! 'sideline-flycheck cmd-sideline-flycheck) (register-command! 'sideline-lsp cmd-sideline-lsp) )