From 669f1716aa7b8f38b900c3dedf40082e8af3358d Mon Sep 17 00:00:00 2001 From: Nathaniel Nicandro Date: Sat, 24 Nov 2018 23:55:17 -0600 Subject: [PATCH] Remove unused functions --- jupyter-org-client.el | 7 ------- ob-jupyter.el | 20 -------------------- 2 files changed, 27 deletions(-) diff --git a/jupyter-org-client.el b/jupyter-org-client.el index 388b3a4..409fe54 100644 --- a/jupyter-org-client.el +++ b/jupyter-org-client.el @@ -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 diff --git a/ob-jupyter.el b/ob-jupyter.el index 3468238..82f5760 100644 --- a/ob-jupyter.el +++ b/ob-jupyter.el @@ -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