Round 232: Detached ext, Envrc ext (20 commands)
ober
0d3a0688d6d4af3bf690f30cd6900d0da6122899
--- 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 232 — Detached ext, Envrc ext + +| Command | Status | Description | +|---------|--------|-------------| +| detached-attach-session | :orange_circle: | Attach to detached session | +| detached-rerun-session | :orange_circle: | Re-run session | +| detached-diff-session | :orange_circle: | Diff session output | +| detached-shell-command | :orange_circle: | Run shell command detached | +| detached-open-output | :orange_circle: | Open session output | +| detached-kill-session | :orange_circle: | Kill session | +| detached-initialize-session | :orange_circle: | Initialize session | +| detached-copy-session-command | :orange_circle: | Copy session command | +| detached-insert-session-command | :orange_circle: | Insert session command | +| detached-describe-session | :orange_circle: | Describe session | +| detached-session-exit-code-mode | :orange_circle: | Toggle exit code mode | +| envrc-show-log | :orange_circle: | Show envrc log | +| envrc-allow-file | :orange_circle: | Allow .envrc file | +| envrc-deny-file | :orange_circle: | Deny .envrc file | +| envrc-copy | :orange_circle: | Copy environment | +| envrc-block-list-add | :orange_circle: | Add to block list | +| envrc-block-list-remove | :orange_circle: | Remove from block list | +| envrc-global-mode | :orange_circle: | Toggle envrc global mode | +| envrc-override-mode | :orange_circle: | Override mode | +| envrc-show-env | :orange_circle: | Show environment | + ### Round 231 — Dirvish ext | Command | Status | Description | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -19659,3 +19659,51 @@ (if (mode-enabled? app 'dirvish-side-follow) (echo-message! echo "Dirvish: side follow mode enabled") (echo-message! echo "Dirvish: side follow mode disabled")))) + +;;; Round 232 — Detached ext, Envrc ext (batch 2) + +(def (cmd-detached-session-exit-code-mode app) + (let* ((echo (app-state-echo app))) + (toggle-mode! app 'detached-session-exit-code) + (if (mode-enabled? app 'detached-session-exit-code) + (echo-message! echo "Detached: exit code mode enabled") + (echo-message! echo "Detached: exit code mode disabled")))) + +(def (cmd-envrc-show-log app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Envrc: showing log"))) + +(def (cmd-envrc-allow-file app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Envrc: allowed .envrc file"))) + +(def (cmd-envrc-deny-file app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Envrc: denied .envrc file"))) + +(def (cmd-envrc-copy app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Envrc: copied environment"))) + +(def (cmd-envrc-block-list-add app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Envrc: added to block list"))) + +(def (cmd-envrc-block-list-remove app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Envrc: removed from block list"))) + +(def (cmd-envrc-global-mode app) + (let* ((echo (app-state-echo app))) + (toggle-mode! app 'envrc-global) + (if (mode-enabled? app 'envrc-global) + (echo-message! echo "Envrc: global mode enabled") + (echo-message! echo "Envrc: global mode disabled")))) + +(def (cmd-envrc-override-mode app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Envrc: override mode"))) + +(def (cmd-envrc-show-env app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Envrc: showing environment"))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -20327,3 +20327,47 @@ (def (cmd-dirvish-mark-menu app) (let* ((echo (app-state-echo app))) (echo-message! echo "Dirvish: mark menu"))) + +;;; Round 232 — Detached ext, Envrc ext (batch 1) + +(def (cmd-detached-attach-session app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Detached: attaching to session"))) + +(def (cmd-detached-rerun-session app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Detached: re-running session"))) + +(def (cmd-detached-diff-session app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Detached: diffing session output"))) + +(def (cmd-detached-shell-command app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Command: " + (lambda (cmd) + (echo-message! echo (str "Detached: running " cmd)))))) + +(def (cmd-detached-open-output app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Detached: opened session output"))) + +(def (cmd-detached-kill-session app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Detached: killed session"))) + +(def (cmd-detached-initialize-session app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Detached: initialized session"))) + +(def (cmd-detached-copy-session-command app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Detached: copied session command"))) + +(def (cmd-detached-insert-session-command app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Detached: inserted session command"))) + +(def (cmd-detached-describe-session app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Detached: describing session"))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -6305,4 +6305,25 @@ (register-command! 'dirvish-vc-info-menu cmd-dirvish-vc-info-menu) (register-command! 'dirvish-collapse-mode cmd-dirvish-collapse-mode) (register-command! 'dirvish-side-follow-mode cmd-dirvish-side-follow-mode) + ;; Round 232 + (register-command! 'detached-attach-session cmd-detached-attach-session) + (register-command! 'detached-rerun-session cmd-detached-rerun-session) + (register-command! 'detached-diff-session cmd-detached-diff-session) + (register-command! 'detached-shell-command cmd-detached-shell-command) + (register-command! 'detached-open-output cmd-detached-open-output) + (register-command! 'detached-kill-session cmd-detached-kill-session) + (register-command! 'detached-initialize-session cmd-detached-initialize-session) + (register-command! 'detached-copy-session-command cmd-detached-copy-session-command) + (register-command! 'detached-insert-session-command cmd-detached-insert-session-command) + (register-command! 'detached-describe-session cmd-detached-describe-session) + (register-command! 'detached-session-exit-code-mode cmd-detached-session-exit-code-mode) + (register-command! 'envrc-show-log cmd-envrc-show-log) + (register-command! 'envrc-allow-file cmd-envrc-allow-file) + (register-command! 'envrc-deny-file cmd-envrc-deny-file) + (register-command! 'envrc-copy cmd-envrc-copy) + (register-command! 'envrc-block-list-add cmd-envrc-block-list-add) + (register-command! 'envrc-block-list-remove cmd-envrc-block-list-remove) + (register-command! 'envrc-global-mode cmd-envrc-global-mode) + (register-command! 'envrc-override-mode cmd-envrc-override-mode) + (register-command! 'envrc-show-env cmd-envrc-show-env) )