From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp10.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms9.migadu.com with LMTPS id eA1uDFWrEWQSSAEASxT56A (envelope-from ) for ; Wed, 15 Mar 2023 12:26:13 +0100 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp10.migadu.com with LMTPS id sP2CC1WrEWSqYAAAG6o9tA (envelope-from ) for ; Wed, 15 Mar 2023 12:26:13 +0100 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id C583D2A04C for ; Wed, 15 Mar 2023 12:26:11 +0100 (CET) Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=kraus.my header.s=MBO0001 header.b=ikmBUUnN; dmarc=none; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1678879572; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=zNoZ8v6oGO25nHY+qFMcNtqVGnjslITvcIKncKVGJLA=; b=sj0jBYhrGuoxEZChHYWxMdq7U//2Zq0P+mnHyBhV6SoQY10COI7ZELTwrk0Zw0DKOseSnu eNVcZWfSs3EdJZu91dW9QVnYOtTGUIfRx0r7cTIkttuMQG0DX0izg779w21wdMAkQrMKQJ Hg6m5U4unk2VZ7ndcooOc6jyHHj5pMIQsPEv568B6v2rGvJuv1SZX4deLLEg2iK3x0xbuH F4Ms2RX+40Syu6NbkpbRw++ZnBKNgK9pgyt7eK9Ops4CF61RkOyB0X/MzlE9/Bt2qO0hmA g+hCcSOGjWpH6b0etjkNctki56mTxcd7WxadSP7xdMQYD/532iJ2p1TxeBC7RA== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=kraus.my header.s=MBO0001 header.b=ikmBUUnN; dmarc=none; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" ARC-Seal: i=1; s=key1; d=yhetil.org; t=1678879572; a=rsa-sha256; cv=none; b=ng7szKBgnzgUe7rEJLSu4lQHFzXMTdayyKdv/8M2wwIY0G/6YXvUkzCj1aOUPBXHbuGEhU v8/bDErGo+z4qmMFdZvrTbZsOjjqsyqIKUXCjuE9F2gcnOKTjzhlF7J2xNjsVi8Ot/8ddY eA80AdcEHUoBjTH8D0rRzp+Ba4zPj1gLpeQUXpjKiYH8hpVdkDAkutQIOOQiGLJH36RKV/ fKVGpw0Ds9rJVHuu8pcwoKaxEoiF/tn2pJW9ZQrAACw0syLnGzbZ5WogH9auryBtHBWHt7 tVO1shsqWaRPb2izud3i22DrpzErxiLjG7o1PbyVMH1ARB/1a8zAKThf4GO8Xw== Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pcPFx-0003G5-57; Wed, 15 Mar 2023 07:25:21 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pcPFt-0003Fo-LW for emacs-orgmode@gnu.org; Wed, 15 Mar 2023 07:25:17 -0400 Received: from mout-p-202.mailbox.org ([2001:67c:2050:0:465::202]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_CHACHA20_POLY1305:256) (Exim 4.90_1) (envelope-from ) id 1pcPFm-000805-C3 for emacs-orgmode@gnu.org; Wed, 15 Mar 2023 07:25:15 -0400 Received: from smtp202.mailbox.org (smtp202.mailbox.org [10.196.197.202]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange ECDHE (P-384) server-signature RSA-PSS (4096 bits) server-digest SHA256) (No client certificate requested) by mout-p-202.mailbox.org (Postfix) with ESMTPS id 4Pc7NH71Fbz9sWZ; Wed, 15 Mar 2023 12:25:03 +0100 (CET) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=kraus.my; s=MBO0001; t=1678879504; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:cc:mime-version:mime-version:content-type:content-type: in-reply-to:in-reply-to:references:references; bh=zNoZ8v6oGO25nHY+qFMcNtqVGnjslITvcIKncKVGJLA=; b=ikmBUUnNeuw4eL+gzqojdrvbJTIs1Jf/dCcUx9l3Zrmd4bLgugD9RfYLBuYCt/wvbgCHcH SDbuG2U7bJPxbLclmJe8jE2NKpd2tL1KnPzx/FEO0KhiOq8xXnO0moneMvr8LETDwswfcw WGMoHW8hbD7eHOx3Qh3imhZJhHfblWGfPoNpuE1QD1fS2qXooF23Eq0fAeYvEiqGIfTLtM A5wImD6DSGwUAV1z690GWiELRjhW3yzCD1gFiEZhbH7YtB+RC7gXx5i073Bl8/w/6/8/SC ommTo7+hBiaI95Aa5Yx0k1hV6R23SAQ+EmkN4+yO49QOflepAJPEUkbscEExJw== References: <87mt4m53qj.fsf@kraus.my> <87pm9gyebl.fsf@localhost> <877cvkhh9d.fsf@kraus.my> <874jqno6hw.fsf@localhost> <873567h2kk.fsf@kraus.my> <87y1nzflur.fsf@kraus.my> <87v8j2qpsq.fsf@localhost> From: Daniel Kraus To: Ihor Radchenko Cc: emacs-orgmode@gnu.org Subject: Re: [patch] ob-clojure: Fix results output Date: Wed, 15 Mar 2023 12:22:17 +0100 In-reply-to: <87v8j2qpsq.fsf@localhost> Message-ID: <87ttymfe9i.fsf@kraus.my> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Received-SPF: none client-ip=2001:67c:2050:0:465::202; envelope-from=daniel@kraus.my; helo=mout-p-202.mailbox.org X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_LOW=-0.7, SPF_HELO_NONE=0.001, SPF_NONE=0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: X-Migadu-Queue-Id: C583D2A04C X-Spam-Score: -5.82 X-Migadu-Spam-Score: -5.82 X-Migadu-Scanner: scn0.migadu.com List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: emacs-orgmode-bounces+larch=yhetil.org@gnu.org X-Migadu-Country: US X-Migadu-Flow: FLOW_IN X-TUID: SvjZcoGXGQ5v --=-=-= Content-Type: text/plain Ihor Radchenko writes: > What will happen with users who customized `org-babel-clojure-backend' > to 'nbb in the past? They would have gotten an error. I changed it now that 'nbb backend is still allowed in a clojure source block but it will internally treated as ClojureScript. >> +(defcustom org-babel-clojurescript-backend >> + (cond >> + ((or (executable-find "nbb") (executable-find "npx")) 'nbb) >> + ((featurep 'cider) 'cider) >> + (t nil)) >> + "Backend used to evaluate Clojure code blocks." > > This docstring is exactly the same with `org-babel-clojure-backend'. > What is the difference? > I think ""Backend used to evaluate ClojureScript code blocks." will be > more clear. I feel that other docstrings may also need to be clarified > depending whether they affect Clojure or ClojureScript blocks. I changed the docstrings to always mention either Clojure or ClojureScript. I'm open for more improvements/suggestions. Attached a new patch. Thanks, Daniel --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-ob-clojure.el-Fix-results-output-support-clojure-cli.patch >From 391bdd403f643fa75cceeb0c81f117996c2374b0 Mon Sep 17 00:00:00 2001 From: Daniel Kraus Date: Thu, 9 Mar 2023 16:11:27 +0100 Subject: [PATCH] ob-clojure.el: Fix results output, support clojure-cli * lisp/ob-clojure.el (org-babel-clojure-backend): Add support for clojure-cli. * lisp/ob-clojure.el (org-babel-clojurescript-backend): Move nbb to clojurescript. * lisp/ob-clojure.el (org-babel-expand-body:clojure) * lisp/ob-clojure.el (ob-clojure-eval-with-cider): Return only the last expression when :results is not set or value, and return only stdout when :results is set to output. * lisp/ob-clojure.el (ob-clojure-eval-with-cmd): Rename function as it is not only for babashka. * lisp/ob-clojure.el (org-babel-execute:clojure): Differentiate between Clojure and ClojureScript source blocks. The problem was that the ob-clojure results where not correctly taking the results parameter into account. E.g. with the cider backend, you would get all printed or returned values for each line in your block: (def small-map {:a 2 :b 4 :c 8}) {:some :map} (prn :xx) (:b small-map) | #'user/small-map | | {:some :map} | | 4 | or for babashka you would only get the printed values but not the last return value: (def small-map {:a 2 :b 4 :c 8}) {:some :map} (prn :xx) (:b small-map) : :xx Now when you specify :results value, the result is only the last returned value, and with :results output you get all values printed to stdout. So the examples above would all result in the same: (def small-map {:a 2 :b 4 :c 8}) {:some :map} (prn :xx) (:b small-map) : 4 --- etc/ORG-NEWS | 23 +++++++ lisp/ob-clojure.el | 156 ++++++++++++++++++++++++++++----------------- lisp/org-compat.el | 4 ++ 3 files changed, 126 insertions(+), 57 deletions(-) diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index b9d7b3459..4ca13af17 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -96,6 +96,21 @@ The face ~org-agenda-calendar-daterange~ is used to show entries with a date range in the agenda. It inherits from the default face in order to remain backward-compatible. +*** New ~org-babel-clojurescript-backend~ option to choose ClojureScript backend + +Before, a ClojureScript source block used the same backend as Clojure, +configured in ~org-babel-clojure-backend~ and relied on an undocumented +~:target~ paramter. + +Now, there's ~org-babel-clojurescript-backend~ to determine the +backend used for evaluation of ClojureScript. + +*** Support for Clojure CLI in ~ob-clojure~ + +~ob-clojure~ now supports executing babel source blocks with the +official [[https://clojure.org/guides/deps_and_cli][Clojure CLI tools]]. +The command can be customized with ~ob-clojure-cli-command~. + ** New features *** ~org-metaup~ and ~org-metadown~ now act on headings in region @@ -116,6 +131,14 @@ selection. TODO state, priority, tags, statistics cookies, and COMMENT keywords are allowed in the tree structure. +** Miscellaneous +*** Remove undocumented ~:target~ header parameter in ~ob-clojure~ + +The ~:target~ header was only used internally to distinguish +from Clojure and ClojureScript. +This is now handled with an optional function parameter in +the respective functions that need this information. + * Version 9.6 ** Important announcements and breaking changes diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el index 5f589db00..70e032154 100644 --- a/lisp/ob-clojure.el +++ b/lisp/ob-clojure.el @@ -25,20 +25,21 @@ ;;; Commentary: -;; Support for evaluating Clojure code +;; Support for evaluating Clojure / ClojureScript code. ;; Requirements: ;; - Clojure (at least 1.2.0) ;; - clojure-mode -;; - inf-clojure, Cider, SLIME, babashka or nbb +;; - babashka, nbb, Clojure CLI tools, Cider, inf-clojure or SLIME ;; For clojure-mode, see https://github.com/clojure-emacs/clojure-mode -;; For inf-clojure, see https://github.com/clojure-emacs/inf-clojure -;; For Cider, see https://github.com/clojure-emacs/cider -;; For SLIME, see https://slime.common-lisp.dev ;; For babashka, see https://github.com/babashka/babashka ;; For nbb, see https://github.com/babashka/nbb +;; For Clojure CLI tools, see https://clojure.org/guides/deps_and_cli +;; For Cider, see https://github.com/clojure-emacs/cider +;; For inf-clojure, see https://github.com/clojure-emacs/inf-clojure +;; For SLIME, see https://slime.common-lisp.dev ;; For SLIME, the best way to install its components is by following ;; the directions as set out by Phil Hagelberg (Technomancy) on the @@ -78,20 +79,33 @@ defvar org-babel-header-args:clojurescript (defcustom org-babel-clojure-backend (cond ((executable-find "bb") 'babashka) - ((executable-find "nbb") 'nbb) + ((executable-find "clojure") 'clojure-cli) ((featurep 'cider) 'cider) ((featurep 'inf-clojure) 'inf-clojure) ((featurep 'slime) 'slime) (t nil)) "Backend used to evaluate Clojure code blocks." :group 'org-babel - :package-version '(Org . "9.6") + :package-version '(Org . "9.7") :type '(choice - (const :tag "inf-clojure" inf-clojure) + (const :tag "babashka" babashka) + (const :tag "clojure-cli" clojure-cli) (const :tag "cider" cider) + (const :tag "inf-clojure" inf-clojure) (const :tag "slime" slime) - (const :tag "babashka" babashka) + (const :tag "Not configured yet" nil))) + +(defcustom org-babel-clojurescript-backend + (cond + ((or (executable-find "nbb") (executable-find "npx")) 'nbb) + ((featurep 'cider) 'cider) + (t nil)) + "Backend used to evaluate ClojureScript code blocks." + :group 'org-babel + :package-version '(Org . "9.7") + :type '(choice (const :tag "nbb" nbb) + (const :tag "cider" cider) (const :tag "Not configured yet" nil))) (defcustom org-babel-clojure-default-ns "user" @@ -100,19 +114,29 @@ defcustom org-babel-clojure-default-ns :group 'org-babel) (defcustom ob-clojure-babashka-command (executable-find "bb") - "Path to the babashka executable." + "Babashka command used by the Clojure `babashka' backend." :type '(choice file (const nil)) :group 'org-babel :package-version '(Org . "9.6")) -(defcustom ob-clojure-nbb-command (executable-find "nbb") - "Path to the nbb executable." - :type '(choice file (const nil)) +(defcustom ob-clojure-nbb-command (or (executable-find "nbb") + (when-let (npx (executable-find "npx")) + (concat npx " nbb"))) + "Nbb command used by the ClojureScript `nbb' backend." + :type '(choice string (const nil)) :group 'org-babel - :package-version '(Org . "9.6")) + :package-version '(Org . "9.7")) -(defun org-babel-expand-body:clojure (body params) - "Expand BODY according to PARAMS, return the expanded body." +(defcustom ob-clojure-cli-command (when-let (cmd (executable-find "clojure")) + (concat cmd " -M")) + "Clojure CLI command used by the Clojure `clojure-cli' backend." + :type 'string + :group 'org-babel + :package-version '(Org . "9.7")) + +(defun org-babel-expand-body:clojure (body params &optional cljs-p) + "Expand BODY according to PARAMS, return the expanded body. +When CLJS-P is non-nil, expand in a cljs context instead of clj." (let* ((vars (org-babel--get-vars params)) (backend-override (cdr (assq :backend params))) (org-babel-clojure-backend @@ -146,10 +170,26 @@ defun org-babel-expand-body:clojure vars "\n ") body)))))) - (if (or (member "code" result-params) - (member "pp" result-params)) - (format "(clojure.pprint/pprint (do %s))" body) - body))) + ;; If the result param is set to "output" we don't have to do + ;; anything special and just let the backend handle everything + (if (member "output" result-params) + body + + ;; If the result is not "output" (i.e. it's "value"), disable + ;; stdout output and print the last returned value. Use pprint + ;; instead of prn when results param is "pp" or "code". + (concat + (if (or (member "code" result-params) + (member "pp" result-params)) + (concat (if cljs-p + "(require '[cljs.pprint :refer [pprint]])" + "(require '[clojure.pprint :refer [pprint]])") + " (pprint ") + "(prn ") + (if cljs-p + "(binding [cljs.core/*print-fn* (constantly nil)]" + "(binding [*out* (java.io.StringWriter.)]") + body "))")))) (defvar ob-clojure-inf-clojure-filter-out) (defvar ob-clojure-inf-clojure-tmp-output) @@ -225,32 +265,19 @@ defun ob-clojure-eval-with-inf-clojure s)) (reverse ob-clojure-inf-clojure-tmp-output))))) -(defun ob-clojure-eval-with-cider (expanded params) - "Evaluate EXPANDED code block with PARAMS using cider." +(defun ob-clojure-eval-with-cider (expanded params &optional cljs-p) + "Evaluate EXPANDED code block with PARAMS using cider. +When CLJS-P is non-nil, use a cljs connection instead of clj." (org-require-package 'cider "Cider") - (let ((connection (cider-current-connection (cdr (assq :target params)))) - (result-params (cdr (assq :result-params params))) - result0) + (let ((connection (cider-current-connection (if cljs-p "cljs" "clj")))) (unless connection (sesman-start-session 'CIDER)) (if (not connection) ;; Display in the result instead of using `user-error' - (setq result0 "Please reevaluate when nREPL is connected") - (ob-clojure-with-temp-expanded expanded params - (let ((response (nrepl-sync-request:eval exp connection))) - (push (or (nrepl-dict-get response "root-ex") - (nrepl-dict-get response "ex") - (nrepl-dict-get - response (if (or (member "output" result-params) - (member "pp" result-params)) - "out" - "value"))) - result0))) - (ob-clojure-string-or-list - ;; Filter out s-expressions that return nil (string "nil" - ;; from nrepl eval) or comment forms (actual nil from nrepl) - (reverse (delete "" (mapcar (lambda (r) - (replace-regexp-in-string "nil" "" (or r ""))) - result0))))))) + "Please reevaluate when nREPL is connected" + (let ((response (nrepl-sync-request:eval expanded connection))) + (or (nrepl-dict-get response "root-ex") + (nrepl-dict-get response "ex") + (nrepl-dict-get response "out")))))) (defun ob-clojure-eval-with-slime (expanded params) "Evaluate EXPANDED code block with PARAMS using slime." @@ -262,39 +289,54 @@ defun ob-clojure-eval-with-slime ,(buffer-substring-no-properties (point-min) (point-max))) (cdr (assq :package params))))) -(defun ob-clojure-eval-with-babashka (bb expanded) - "Evaluate EXPANDED code block using BB (babashka or nbb)." - (let ((script-file (org-babel-temp-file "clojure-bb-script-" ".clj"))) +(defun ob-clojure-eval-with-cmd (cmd expanded) + "Evaluate EXPANDED code block using CMD (babashka, clojure or nbb)." + (let ((script-file (org-babel-temp-file "clojure-cmd-script-" ".clj"))) (with-temp-file script-file (insert expanded)) (org-babel-eval - (format "%s %s" bb (org-babel-process-file-name script-file)) + (format "%s %s" cmd (org-babel-process-file-name script-file)) ""))) -(defun org-babel-execute:clojure (body params) - "Execute the BODY block of Clojure code with PARAMS using Babel." +(defun org-babel-execute:clojure (body params &optional cljs-p) + "Execute the BODY block of Clojure code with PARAMS using Babel. +When CLJS-P is non-nil, execute with a ClojureScript backend +instead of Clojure." (let* ((backend-override (cdr (assq :backend params))) (org-babel-clojure-backend (cond (backend-override (intern backend-override)) - (org-babel-clojure-backend org-babel-clojure-backend) - (t (user-error "You need to customize `org-babel-clojure-backend' -or set the `:backend' header argument"))))) - (let* ((expanded (org-babel-expand-body:clojure body params)) + (org-babel-clojure-backend (if cljs-p + org-babel-clojurescript-backend + org-babel-clojure-backend)) + (t (user-error "You need to customize `%S' +or set the `:backend' header argument" + (if cljs-p + org-babel-clojurescript-backend + org-babel-clojure-backend))))) + ;; We allow a Clojure source block to be evaluated with the + ;; nbb backend and therefore have to expand the body with + ;; ClojureScript syntax when we either evaluate a + ;; ClojureScript source block or use the nbb backend. + (cljs-p (or cljs-p (eq org-babel-clojure-backend 'nbb)))) + (let* ((expanded (org-babel-expand-body:clojure body params cljs-p)) (result-params (cdr (assq :result-params params))) result) (setq result (cond ((eq org-babel-clojure-backend 'inf-clojure) (ob-clojure-eval-with-inf-clojure expanded params)) + ((eq org-babel-clojure-backend 'clojure-cli) + (ob-clojure-eval-with-cmd ob-clojure-cli-command expanded)) ((eq org-babel-clojure-backend 'babashka) - (ob-clojure-eval-with-babashka ob-clojure-babashka-command expanded)) + (ob-clojure-eval-with-cmd ob-clojure-babashka-command expanded)) ((eq org-babel-clojure-backend 'nbb) - (ob-clojure-eval-with-babashka ob-clojure-nbb-command expanded)) + (ob-clojure-eval-with-cmd ob-clojure-nbb-command expanded)) ((eq org-babel-clojure-backend 'cider) - (ob-clojure-eval-with-cider expanded params)) + (ob-clojure-eval-with-cider expanded params cljs-p)) ((eq org-babel-clojure-backend 'slime) - (ob-clojure-eval-with-slime expanded params)))) + (ob-clojure-eval-with-slime expanded params)) + (t (user-error "Invalid backend")))) (org-babel-result-cond result-params result (condition-case nil (org-babel-script-escape result) @@ -302,7 +344,7 @@ defun org-babel-execute:clojure (defun org-babel-execute:clojurescript (body params) "Evaluate BODY with PARAMS as ClojureScript code." - (org-babel-execute:clojure body (cons '(:target . "cljs") params))) + (org-babel-execute:clojure body params t)) (provide 'ob-clojure) diff --git a/lisp/org-compat.el b/lisp/org-compat.el index fadb51df6..c47a4e8c2 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -71,6 +71,7 @@ (declare-function outline-next-heading "outline" ()) (declare-function speedbar-line-directory "speedbar" (&optional depth)) (declare-function table--at-cell-p "table" (position &optional object at-column)) +(declare-function ob-clojure-eval-with-cmd "ob-clojure" (cmd expanded)) (declare-function org-fold-folded-p "org-fold" (&optional pos spec-or-alias)) (declare-function org-fold-hide-sublevels "org-fold" (levels)) (declare-function org-fold-hide-subtree "org-fold" ()) @@ -1127,6 +1128,9 @@ defconst org-babel-python-mode "Only the built-in Python mode is supported in ob-python now." "9.7") +(define-obsolete-function-alias 'ob-clojure-eval-with-babashka + #'ob-clojure-eval-with-cmd "9.7") + ;;;; Obsolete link types (eval-after-load 'ol -- 2.39.2 --=-=-=--