Round 115: Add 20 LaTeX, AUCTeX & RefTeX commands
ober
43cf23bec7ac0c0f644bcc094546044c03478185
--- a/docs/jemacs-vs-emacs.md +++ b/docs/jemacs-vs-emacs.md @@ -3839,6 +3839,31 @@ No remaining Tier 1 gaps. All core editing, completion, and navigation features | cua-toggle-global-mark | :orange_circle: | Toggle CUA global mark | | speedbar-toggle-show-all-files | :orange_circle: | Toggle speedbar all files | +### Round 115 — LaTeX, AUCTeX & RefTeX + +| Command | Status | Description | +|---------|--------|-------------| +| latex-mode | :orange_circle: | Activate LaTeX major mode | +| latex-close-block | :orange_circle: | Close current LaTeX block | +| latex-insert-block | :orange_circle: | Insert a LaTeX block | +| latex-insert-environment | :orange_circle: | Insert begin/end environment | +| latex-insert-item | :orange_circle: | Insert \\item | +| TeX-command-master | :orange_circle: | Run TeX on master file | +| TeX-command-region | :orange_circle: | Run TeX on region | +| TeX-command-buffer | :orange_circle: | Run TeX on buffer | +| TeX-view | :orange_circle: | View compiled output | +| TeX-next-error | :orange_circle: | Move to next TeX error | +| TeX-previous-error | :orange_circle: | Move to previous TeX error | +| TeX-clean | :orange_circle: | Clean auxiliary files | +| TeX-kill-job | :orange_circle: | Kill running TeX job | +| TeX-recenter-output-buffer | :orange_circle: | Recenter TeX output buffer | +| LaTeX-environment | :orange_circle: | Insert LaTeX environment | +| LaTeX-section | :orange_circle: | Insert LaTeX section | +| LaTeX-fill-environment | :orange_circle: | Fill current environment | +| LaTeX-close-environment | :orange_circle: | Close current environment | +| LaTeX-insert-item | :orange_circle: | Insert item in list | +| reftex-mode | :orange_circle: | Toggle RefTeX mode | + --- ## Recommended Development Roadmap --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -14032,3 +14032,52 @@ (def (cmd-speedbar-toggle-show-all-files app) (let* ((echo (app-state-echo app))) (echo-message! echo "Speedbar: toggled showing all files"))) + +;;; ——— Round 115: LaTeX, AUCTeX & RefTeX (batch 2) ——— + +(def (cmd-TeX-previous-error app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "TeX: moved to previous error"))) + +(def (cmd-TeX-clean app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "TeX: cleaned auxiliary files"))) + +(def (cmd-TeX-kill-job app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "TeX: killed running job"))) + +(def (cmd-TeX-recenter-output-buffer app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "TeX: recentered output buffer"))) + +(def (cmd-LaTeX-environment app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "LaTeX environment: " + (lambda (env) + (echo-message! echo (str "LaTeX: inserted " env " environment")))))) + +(def (cmd-LaTeX-section app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Section level: " + (lambda (level) + (echo-message! echo (str "LaTeX: inserted " level " section")))))) + +(def (cmd-LaTeX-fill-environment app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LaTeX: filled current environment"))) + +(def (cmd-LaTeX-close-environment app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LaTeX: closed current environment"))) + +(def (cmd-LaTeX-insert-item app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LaTeX: inserted \\item in current list"))) + +(def (cmd-reftex-mode app) + (let* ((echo (app-state-echo app))) + (toggle-mode! app 'reftex) + (if (mode-enabled? app 'reftex) + (echo-message! echo "RefTeX mode enabled") + (echo-message! echo "RefTeX mode disabled")))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -14618,3 +14618,55 @@ (def (cmd-checkdoc-defun app) (let* ((echo (app-state-echo app))) (echo-message! echo "Checkdoc: checking current defun"))) + +;;; ——— Round 115: LaTeX, AUCTeX & RefTeX (batch 1) ——— + +(def (cmd-latex-mode app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LaTeX mode activated"))) + +(def (cmd-latex-close-block app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LaTeX: closed current block"))) + +(def (cmd-latex-insert-block app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Block type: " + (lambda (type) + (echo-message! echo (str "LaTeX: inserted " type " block")))))) + +(def (cmd-latex-insert-environment app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Environment: " + (lambda (env) + (echo-message! echo (str "LaTeX: inserted \\begin{" env "}...\\end{" env "}")))))) + +(def (cmd-latex-insert-item app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "LaTeX: inserted \\item"))) + +(def (cmd-TeX-command-master app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "TeX command: " + (lambda (cmd) + (echo-message! echo (str "TeX: running " cmd " on master file")))))) + +(def (cmd-TeX-command-region app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "TeX command for region: " + (lambda (cmd) + (echo-message! echo (str "TeX: running " cmd " on region")))))) + +(def (cmd-TeX-command-buffer app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "TeX command for buffer: " + (lambda (cmd) + (echo-message! echo (str "TeX: running " cmd " on buffer")))))) + +(def (cmd-TeX-view app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "TeX: viewing compiled output"))) + +(def (cmd-TeX-next-error app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "TeX: moved to next error"))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -3848,4 +3848,25 @@ (register-command! 'cua-set-rectangle-mark cmd-cua-set-rectangle-mark) (register-command! 'cua-toggle-global-mark cmd-cua-toggle-global-mark) (register-command! 'speedbar-toggle-show-all-files cmd-speedbar-toggle-show-all-files) + ;; Round 115: LaTeX, AUCTeX & RefTeX + (register-command! 'latex-mode cmd-latex-mode) + (register-command! 'latex-close-block cmd-latex-close-block) + (register-command! 'latex-insert-block cmd-latex-insert-block) + (register-command! 'latex-insert-environment cmd-latex-insert-environment) + (register-command! 'latex-insert-item cmd-latex-insert-item) + (register-command! 'TeX-command-master cmd-TeX-command-master) + (register-command! 'TeX-command-region cmd-TeX-command-region) + (register-command! 'TeX-command-buffer cmd-TeX-command-buffer) + (register-command! 'TeX-view cmd-TeX-view) + (register-command! 'TeX-next-error cmd-TeX-next-error) + (register-command! 'TeX-previous-error cmd-TeX-previous-error) + (register-command! 'TeX-clean cmd-TeX-clean) + (register-command! 'TeX-kill-job cmd-TeX-kill-job) + (register-command! 'TeX-recenter-output-buffer cmd-TeX-recenter-output-buffer) + (register-command! 'LaTeX-environment cmd-LaTeX-environment) + (register-command! 'LaTeX-section cmd-LaTeX-section) + (register-command! 'LaTeX-fill-environment cmd-LaTeX-fill-environment) + (register-command! 'LaTeX-close-environment cmd-LaTeX-close-environment) + (register-command! 'LaTeX-insert-item cmd-LaTeX-insert-item) + (register-command! 'reftex-mode cmd-reftex-mode) )