[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks
From: |
Ken Mankoff |
Subject: |
[PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks |
Date: |
Fri, 24 Feb 2023 09:03:18 -0800 |
User-agent: |
mu4e 1.8.13; emacs 27.1 |
* ob-screen.el: (org-babel-execute:screen): Parse header params
for `:var', then inject into screen session.
(org-babel-variable-assignments:screen): Copied from
ob-shell.el org-babel-variable-assignments:shell
* etc/ORG-NEWS: Document as New Feature
This change only supports single-value variables
(e.g., ~:var x=42~), not tables or arrays as is
currently supported by some other languages.
---
etc/ORG-NEWS | 13 +++++++++++++
lisp/ob-screen.el | 21 +++++++++++++++++++++
2 files changed, 34 insertions(+)
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index 87ecd77cd..d4b454d13 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -106,6 +106,19 @@ selection.
TODO state, priority, tags, statistics cookies, and COMMENT keywords
are allowed in the tree structure.
+*** ob-screen now supports :var header arguments
+
+The ~:var~ header arg now supports simple single-value variables
+(arrays and tables are not supported).
+
+#+BEGIN_src org
+,#+BEGIN_SRC screen :var x=42
+,echo $x
+,#+END_SRC
+#+END_src
+
+
+
* Version 9.6
** Important announcements and breaking changes
diff --git a/lisp/ob-screen.el b/lisp/ob-screen.el
index 269538e79..d8f361e50 100644
--- a/lisp/ob-screen.el
+++ b/lisp/ob-screen.el
@@ -55,11 +55,32 @@ In case you want to use a different screen than one
selected by your $PATH")
(message "Sending source code block to interactive terminal session...")
(save-window-excursion
(let* ((session (cdr (assq :session params)))
+ (var-lines (org-babel-variable-assignments:screen params))
(socket (org-babel-screen-session-socketname session)))
(unless socket (org-babel-prep-session:screen session params))
+ (mapcar (lambda (var)
+ (org-babel-screen-session-execute-string session var))
+ var-lines)
(org-babel-screen-session-execute-string
session (org-babel-expand-body:generic body params)))))
+(defun org-babel-variable-assignments:screen (params)
+ "Return list of shell statements assigning the block's variables."
+ ;; From ob-shell but change function name from ":shell" to ":screen"
+ (let ((sep (cdr (assq :separator params)))
+ (hline (when (string= "yes" (cdr (assq :hlines params)))
+ (or (cdr (assq :hline-string params))
+ "hline"))))
+ (mapcar
+ (lambda (pair)
+ (if (string-suffix-p "bash" shell-file-name)
+ (org-babel--variable-assignments:bash
+ (car pair) (cdr pair) sep hline)
+ (org-babel--variable-assignments:sh-generic
+ (car pair) (cdr pair) sep hline)))
+ (org-babel--get-vars params))))
+
+
(defun org-babel-prep-session:screen (_session params)
"Prepare SESSION according to the header arguments specified in PARAMS."
(let* ((session (cdr (assq :session params)))
- [PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks,
Ken Mankoff <=
- Re: [PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks, Ken Mankoff, 2023/02/24
- Re: [PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks, Max Nikulin, 2023/02/24
- Re: [PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks, Ken Mankoff, 2023/02/25
- Re: [PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks, Ken Mankoff, 2023/02/25
- Re: [PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks, Max Nikulin, 2023/02/25
- Re: [PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks, Ken Mankoff, 2023/02/25
- Re: [PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks, Max Nikulin, 2023/02/26
- Re: [PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks, Ken Mankoff, 2023/02/26
- Re: [PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks, Ihor Radchenko, 2023/02/28
- Re: [PATCH] lisp/ob-screen.el: Support ~:var~ header args for babel blocks, Ihor Radchenko, 2023/02/26