Use completing-read' in org-insert-src-block'

README.org

@@ -1102,7 +1102,7 @@ defined in this Org file.
       "Org"
       (by-backend :no-manual t)
       (by-backend-kbd-org-macro :no-manual t)
-      (org-active-current-time-stamp :nomanual t)
+      ;; (org-active-current-time-stamp :nomanual t)
       (org-babel-execute:latex-extra-header :no-manual t)
       (org-babel-execute:latex-header :no-manual t)
       (org-electric-dollar :no-manual t)
@@ -1110,7 +1110,8 @@ defined in this Org file.
       (org-eval-python-setup-blocks :no-manual t)
       (org-eval-infixed-blocks :no-manual t)
       (org-latex-engraved-source-block-filter :no-manual t)
-      (org-inactive-current-time-stamp :nomanual t)
+      ;; (org-inactive-current-time-stamp :nomanual t)
+      ;; (org-insert-source-block :nomanual t)
       (org-syntax-convert-keyword-case-to-lower :no-manual t)
       (smart-latex-engrave-org-source-blocks :no-manual t)
       (zero-all-org-src-blocks-indentation :no-manual t))))
@@ -2506,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"
+  (defcustom org-insert-source-block-defaults '("emacs-lisp -n :results silent"
-                                               "python -i -n :results silent"
+                                                "latex -n"
-                                               "org")
+                                                "org -n"
-    "Default value for `org-insert-source-block' (`M-n' and `M-p')."
+                                                "python -i -n :results silent")
+    "Default values for `org-insert-source-block'."
     :group 'org)
 
   (defun org-insert-source-block ()
@@ -2521,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
+    (let* ((spec (completing-read
-                              org-insert-source-block-default))
+                  "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)))))
@@ -2679,8 +2681,10 @@ def __org_babel_python_format_value(result, result_file, result_params):
      :image-size-adjust (1.0 . 1.0)
      :post-clean nil
      :latex-header nil
-     :latex-compiler ("lualatex -interaction nonstopmode -output-directory %o %f")
+     :latex-compiler
-     :image-converter ("convert -density %D -trim -antialias %f -quality 100 %O")))
+     ("lualatex -interaction nonstopmode -output-directory %o %f")
+     :image-converter
+     ("convert -density %D -trim -antialias %f -quality 100 %O")))
   (setopt
    org-preview-latex-default-process 'luamagick
    org-latex-default-packages-alist '(("" "fontspec" t ("lualatex"))
@@ -2982,7 +2986,6 @@ to add =HTML+CSS+JS= for ~mhtml-mode~:
     "\\( :comments link$\\)\\|\\( *$\\)"
     "Regexp to find \"#+property:\" \":comments link\".")
 
-
   (defconst prop-ha-re-template
     (format "\\(?:^[[:blank:]]*#\\+%s:[[:blank:]]+%s:%s\\+*\\)+"
             "property" "header-args" "%s")