Round 247: Final gerbil-emacs parity - Quickrun, String-edit (3 commands)
ober
db801185d46ae56b02ddac3c28614e2053ea6087
--- a/docs/jemacs-vs-emacs.md +++ b/docs/jemacs-vs-emacs.md @@ -4583,6 +4583,14 @@ 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 247 — Final gerbil-emacs parity (Quickrun, String-edit) + +| Command | Status | Description | +|---------|--------|-------------| +| quickrun | :orange_circle: | Execute current buffer | +| quickrun-with | :orange_circle: | Execute with specific command | +| string-edit-commit | :orange_circle: | Commit string edit changes | + ### Round 246 — Surround, Writeroom, Rainbow, Mode toggles (gerbil-emacs parity) | Command | Status | Description | --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -21040,3 +21040,18 @@ (echo-message! echo "Ligature mode enabled") (echo-message! echo "Ligature mode disabled")))) +;; Round 247 — Final gerbil-emacs parity (Quickrun, String-edit) +(def (cmd-quickrun app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Quickrun: executing current buffer"))) + +(def (cmd-quickrun-with app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Run with command: " + (lambda (cmd) + (echo-message! echo (str "Quickrun: executing with " cmd)))))) + +(def (cmd-string-edit-commit app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "String edit: committed changes"))) + --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -6620,4 +6620,8 @@ (register-command! 'page-break-lines-real cmd-page-break-lines-real) (register-command! 'pixel-scroll-precision-mode-real cmd-pixel-scroll-precision-mode-real) (register-command! 'save-place-mode-real cmd-save-place-mode-real) + ;; Round 247 — Final gerbil-emacs parity + (register-command! 'quickrun cmd-quickrun) + (register-command! 'quickrun-with cmd-quickrun-with) + (register-command! 'string-edit-commit cmd-string-edit-commit) )