ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Begin messages about executing code blocks with a capital letter 

lisp/ob-awk.el (org-babel-expand-body:awk):
lisp/ob-core.el (org-babel-execute-src-block):
lisp/ob-groovy.el (org-babel-execute:groovy):
lisp/ob-maxima.el (org-babel-execute:maxima):
lisp/ob-sed.el (org-babel-execute:sed):
Begin message with capital letter.

By Emacs' convention all messages should begin with a capital letter.
This commit is contained in:
Jonas Bernoulli 2022-10-06 13:43:46 +02:00 committed by Ihor Radchenko
parent 2f4de60980
commit fc8e375b9b
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
5 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ob-awk.el
View File

@ -55,7 +55,7 @@
(defun org-babel-execute:awk (body params) (defun org-babel-execute:awk (body params)
"Execute a block of Awk code with org-babel. "Execute a block of Awk code with org-babel.
This function is called by `org-babel-execute-src-block'." This function is called by `org-babel-execute-src-block'."
(message "executing Awk source code block") (message "Executing Awk source code block")
(let* ((result-params (cdr (assq :result-params params))) (let* ((result-params (cdr (assq :result-params params)))
(cmd-line (cdr (assq :cmd-line params))) (cmd-line (cdr (assq :cmd-line params)))
(in-file (cdr (assq :in-file params))) (in-file (cdr (assq :in-file params)))

2
lisp/ob-core.el
View File

@ -791,7 +791,7 @@ guess will be made."
result exec-start-time) result exec-start-time)
(unless (fboundp cmd) (unless (fboundp cmd)
(error "No org-babel-execute function for %s!" lang)) (error "No org-babel-execute function for %s!" lang))
(message "executing %s %s %s..." (message "Executing %s %s %s..."
(capitalize lang) (capitalize lang)
(pcase executor-type (pcase executor-type
('src-block "code block") ('src-block "code block")

2
lisp/ob-groovy.el
View File

@ -52,7 +52,7 @@ parameters may be used, like groovy -v"
(defun org-babel-execute:groovy (body params) (defun org-babel-execute:groovy (body params)
"Execute a block of Groovy code with org-babel. "Execute a block of Groovy code with org-babel.
This function is called by `org-babel-execute-src-block'." This function is called by `org-babel-execute-src-block'."
(message "executing Groovy source code block") (message "Executing Groovy source code block")
(let* ((processed-params (org-babel-process-params params)) (let* ((processed-params (org-babel-process-params params))
(session (org-babel-groovy-initiate-session (nth 0 processed-params))) (session (org-babel-groovy-initiate-session (nth 0 processed-params)))
(result-params (nth 2 processed-params)) (result-params (nth 2 processed-params))

2
lisp/ob-maxima.el
View File

@ -76,7 +76,7 @@
(defun org-babel-execute:maxima (body params) (defun org-babel-execute:maxima (body params)
"Execute a block of Maxima entries with org-babel. "Execute a block of Maxima entries with org-babel.
This function is called by `org-babel-execute-src-block'." This function is called by `org-babel-execute-src-block'."
(message "executing Maxima source code block") (message "Executing Maxima source code block")
(let ((result-params (split-string (or (cdr (assq :results params)) ""))) (let ((result-params (split-string (or (cdr (assq :results params)) "")))
(result (result
(let* ((cmdline (or (cdr (assq :cmdline params)) "")) (let* ((cmdline (or (cdr (assq :cmdline params)) ""))

2
lisp/ob-sed.el
View File

@ -65,7 +65,7 @@
BODY is the source inside a sed source block and PARAMS is an BODY is the source inside a sed source block and PARAMS is an
association list over the source block configurations. This association list over the source block configurations. This
function is called by `org-babel-execute-src-block'." function is called by `org-babel-execute-src-block'."
(message "executing sed source code block") (message "Executing sed source code block")
(let* ((result-params (cdr (assq :result-params params))) (let* ((result-params (cdr (assq :result-params params)))
(cmd-line (cdr (assq :cmd-line params))) (cmd-line (cdr (assq :cmd-line params)))
(in-file (cdr (assq :in-file params))) (in-file (cdr (assq :in-file params)))