From b428de56682d7f665a92735411ae07b156d2f0df Mon Sep 17 00:00:00 2001 From: Gerard Vermeulen Date: Fri, 16 Feb 2024 10:37:33 +0100 Subject: [PATCH] Use `completing-read' in `org-insert-src-block' --- README.org | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/README.org b/README.org index 060a34e..58c6751 100644 --- a/README.org +++ b/README.org @@ -2507,14 +2507,15 @@ When called twice, replace the previously inserted \\(\\) by one $." #+caption[Setup =org-mode-map= 2]: #+caption: Setup =org-mode-map= 2. #+name: lst:setup-org-mode-map-2 -#+begin_src emacs-lisp :results silent +#+begin_src emacs-lisp -n :results silent (with-eval-after-load 'emacs ;; Stolen from `org-insert-structure-template'. ;; Note: `org-tempo' does not require `tempo' at all. - (defcustom org-insert-source-block-default '("emacs-lisp -n :results silent" - "python -i -n :results silent" - "org") - "Default value for `org-insert-source-block' (`M-n' and `M-p')." + (defcustom org-insert-source-block-defaults '("emacs-lisp -n :results silent" + "latex -n" + "org -n" + "python -i -n :results silent") + "Default values for `org-insert-source-block'." :group 'org) (defun org-insert-source-block () @@ -2522,8 +2523,8 @@ When called twice, replace the previously inserted \\(\\) by one $." Prompt for the source block SPEC. With an active region, the region becomes the block BODY. Otherwise, insert an empty block." (interactive) - (let* ((spec (read-string "Block spec: " nil nil - org-insert-source-block-default)) + (let* ((spec (completing-read + "Block spec: " org-insert-source-block-defaults nil 'confirm)) (region? (use-region-p)) (region-start (and region? (region-beginning))) (region-end (and region? (copy-marker (region-end)))))