Determine if a source block is called due to reference resolution

The older way was ambiguous.

* ob-jupyter.el (org-babel-jupyter-resolving-reference-p): New
variable, let bound when `org-babel-ref-resolve` is called.
(org-babel-jupyter--indicate-resolve): Function that sets the variable.

* jupyter-org-client.el (jupyter-org-execute-async-p): Use the variable.

Author: nnicandro

jupyter-org-client.el

@@ -128,26 +128,15 @@ See also the docstring of `org-image-actual-width' for more details."
   async-p
   overlay)
 
+(defvar org-babel-jupyter-resolving-reference-p)
+
 (defun jupyter-org-execute-async-p (params)
   "Return non-nil if an execution should be asynchronous based on PARAMS.
 
 PARAMS are the source block arguments as returned by,
 e.g. `org-babel-get-src-block-info'."
   (and (member (alist-get :async params) '("yes" nil))
-       ;; When computing results but not doing anything with them, it
-       ;; typically signifies that a reference to this source block is
-       ;; being resolved (`org-babel-ref-resolve').
-       ;;
-       ;; TODO Although if a source block had
-       ;;
-       ;;     :results none :async yes
-       ;;
-       ;; as header arguments it would still make sense to execute it
-       ;; asynchronously when executing it manually instead of through
-       ;; a reference so there needs to be a way to determine if an
-       ;; execution of a source block is occurring due to resolution
-       ;; of a reference.
-       (not (member "none" (alist-get :result-params params)))))
+       (not org-babel-jupyter-resolving-reference-p)))
 
 ;;; `jupyter-kernel-client' interface
 

ob-jupyter.el

@@ -240,6 +240,16 @@ return nil."
       (insert (org-babel-expand-body:jupyter (org-babel-chomp body) params))
       (current-buffer))))
 
+(defvar org-babel-jupyter-resolving-reference-p nil
+  "Non-nil if a reference is being resolved.")
+
+(defun org-babel-jupyter--indicate-resolve (&rest args)
+  "Set `org-babel-jupyter-resolving-referece-p', apply ARGS."
+  (let ((org-babel-jupyter-resolving-reference-p t))
+    (apply args)))
+
+(advice-add #'org-babel-ref-resolve :around #'org-babel-jupyter--indicate-resolve)
+
 ;;;; Initializing session clients
 
 (cl-defstruct (org-babel-jupyter-session