Round 193: Org-babel-ext, Markdown-ext, AUCTeX, TeX-ext commands
ober
5487ea220a666c83ca3bd8aaa69dc3956d80e38a
--- 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 193 — Org-babel-ext, Markdown-ext, AUCTeX, TeX-ext + +| Feature | Status | Notes | +|---|---|---| +| org-babel-load-in-session | :orange_circle: | Load org-babel block in session | +| org-babel-open-src-block-result | :orange_circle: | Open source block result | +| org-table-toggle-coordinate-overlays | :orange_circle: | Toggle table coordinate overlays | +| markdown-toggle-url-hidden | :orange_circle: | Toggle URL hidden display | +| markdown-insert-gfm-checkbox | :orange_circle: | Insert GFM checkbox | +| markdown-toggle-gfm-checkbox | :orange_circle: | Toggle GFM checkbox | +| markdown-table-align | :orange_circle: | Align markdown table | +| markdown-table-sort-lines | :orange_circle: | Sort markdown table lines | +| markdown-footnote-goto-text | :orange_circle: | Jump to footnote text | +| auctex-insert-macro | :orange_circle: | Insert TeX macro | +| auctex-insert-environment | :orange_circle: | Insert TeX environment | +| auctex-font-bold | :orange_circle: | Apply bold formatting | +| auctex-font-italic | :orange_circle: | Apply italic formatting | +| auctex-compile | :orange_circle: | Compile TeX document | +| auctex-view | :orange_circle: | View compiled document | +| auctex-master-file | :orange_circle: | Set master file | +| tex-compile | :orange_circle: | Compile TeX file | +| tex-bibtex-file | :orange_circle: | Run BibTeX | +| tex-view | :orange_circle: | View TeX output | +| tex-print | :orange_circle: | Print TeX output | + ### Round 192 — Ediff-ext, Smerge-ext, VC-ext, Diff-ext, Compilation-ext, Highlight-ext, Windmove-ext | Feature | Status | Notes | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -17855,3 +17855,48 @@ (def (cmd-prettify-symbols-unprettify-at-point app) (let* ((echo (app-state-echo app))) (echo-message! echo "Prettify: showing unprettified symbol at point"))) + +;; Round 193 — AUCTeX-ext, TeX-ext +(def (cmd-auctex-insert-environment app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "TeX environment: " + (lambda (env) + (echo-message! echo (str "AUCTeX: inserted \\begin{" env "}...\\end{" env "}")))))) + +(def (cmd-auctex-font-bold app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "AUCTeX: applied \\textbf{}"))) + +(def (cmd-auctex-font-italic app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "AUCTeX: applied \\textit{}"))) + +(def (cmd-auctex-compile app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "AUCTeX: compiling document..."))) + +(def (cmd-auctex-view app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "AUCTeX: viewing compiled document"))) + +(def (cmd-auctex-master-file app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Master file: " + (lambda (f) + (echo-message! echo (str "AUCTeX: master file set to " f)))))) + +(def (cmd-tex-compile app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "TeX: compiling..."))) + +(def (cmd-tex-bibtex-file app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "TeX: running BibTeX"))) + +(def (cmd-tex-view app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "TeX: viewing output"))) + +(def (cmd-tex-print app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "TeX: sending to printer"))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -18476,3 +18476,46 @@ (echo-read-string echo "Skip threshold (0-2): " (lambda (val) (echo-message! echo (str "Compilation: skip threshold set to " val)))))) + +;; Round 193 — Org-babel-ext, Org-table-ext, Markdown-ext, AUCTeX +(def (cmd-org-babel-load-in-session app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Org-babel: loaded block in session"))) + +(def (cmd-org-babel-open-src-block-result app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Org-babel: opened source block result"))) + +(def (cmd-org-table-toggle-coordinate-overlays app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Org-table: toggled coordinate overlays"))) + +(def (cmd-markdown-toggle-url-hidden app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Markdown: toggled URL hidden display"))) + +(def (cmd-markdown-insert-gfm-checkbox app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Markdown: inserted GFM checkbox"))) + +(def (cmd-markdown-toggle-gfm-checkbox app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Markdown: toggled GFM checkbox"))) + +(def (cmd-markdown-table-align app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Markdown: aligned table"))) + +(def (cmd-markdown-table-sort-lines app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Markdown: sorted table lines"))) + +(def (cmd-markdown-footnote-goto-text app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Markdown: jumped to footnote text"))) + +(def (cmd-auctex-insert-macro app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "TeX macro: " + (lambda (macro) + (echo-message! echo (str "AUCTeX: inserted \\" macro)))))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -5486,4 +5486,25 @@ (register-command! 'windmove-swap-states-default-keybindings cmd-windmove-swap-states-default-keybindings) (register-command! 'quail-define-rules cmd-quail-define-rules) (register-command! 'prettify-symbols-unprettify-at-point cmd-prettify-symbols-unprettify-at-point) + ;; Round 193 + (register-command! 'org-babel-load-in-session cmd-org-babel-load-in-session) + (register-command! 'org-babel-open-src-block-result cmd-org-babel-open-src-block-result) + (register-command! 'org-table-toggle-coordinate-overlays cmd-org-table-toggle-coordinate-overlays) + (register-command! 'markdown-toggle-url-hidden cmd-markdown-toggle-url-hidden) + (register-command! 'markdown-insert-gfm-checkbox cmd-markdown-insert-gfm-checkbox) + (register-command! 'markdown-toggle-gfm-checkbox cmd-markdown-toggle-gfm-checkbox) + (register-command! 'markdown-table-align cmd-markdown-table-align) + (register-command! 'markdown-table-sort-lines cmd-markdown-table-sort-lines) + (register-command! 'markdown-footnote-goto-text cmd-markdown-footnote-goto-text) + (register-command! 'auctex-insert-macro cmd-auctex-insert-macro) + (register-command! 'auctex-insert-environment cmd-auctex-insert-environment) + (register-command! 'auctex-font-bold cmd-auctex-font-bold) + (register-command! 'auctex-font-italic cmd-auctex-font-italic) + (register-command! 'auctex-compile cmd-auctex-compile) + (register-command! 'auctex-view cmd-auctex-view) + (register-command! 'auctex-master-file cmd-auctex-master-file) + (register-command! 'tex-compile cmd-tex-compile) + (register-command! 'tex-bibtex-file cmd-tex-bibtex-file) + (register-command! 'tex-view cmd-tex-view) + (register-command! 'tex-print cmd-tex-print) )