Remove unused functions

This commit is contained in:
Nathaniel Nicandro 2018-11-24 23:55:17 -06:00
parent 2d85d1a17a
commit 669f1716aa
2 changed files with 0 additions and 27 deletions

View file

@ -75,13 +75,6 @@ source code block. Set by `org-babel-execute:jupyter'.")))
marker
async)
;;; Predicates
(defun jupyter-org-file-header-arg-p (req)
"Determine if the source block of REQ specifies a file header argument."
(let ((params (jupyter-org-request-block-params req)))
(member "file" (assq :result-params params))))
;;; `jupyter-kernel-client' interface
(cl-defmethod jupyter-generate-request ((client jupyter-org-client) _msg

View file

@ -203,26 +203,6 @@ parameter will be used."
(if buffer (pop-to-buffer buffer)
(user-error "No source block at point"))))
(defun org-babel-jupyter-clear-file-param (req)
"Destructively remove the file result parameters of REQ.
Re-add the file parameters on the next call to
`org-babel-after-execute-hook'."
(when (jupyter-org-file-header-arg-p req)
(let* ((params (jupyter-org-request-block-params req))
(result-params (assq :result-params params))
(fresult (member "file" result-params))
(fparam (assq :file params)))
(unless (jupyter-org-request-silent req)
(setcar fresult "scalar")
(delq fparam params)
(cl-labels
((reset
()
(setcar fresult "file")
(when fparam (nconc params (list fparam)))
(remove-hook 'org-babel-after-execute-hook #'reset t)))
(add-hook 'org-babel-after-execute-hook #'reset nil t))))))
(defun org-babel-jupyter--after-execute (old-hook _client req)
(advice-remove 'message #'ignore)
(unwind-protect