From 2284812125f1d2146920117ae4f28afefe5bfad9 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Wed, 6 Jan 2021 16:18:44 +0100 Subject: [PATCH] update ob-restclient --- elpa/ob-restclient-20200109.730/ob-restclient-pkg.el | 2 -- .../ob-restclient-autoloads.el | 0 elpa/ob-restclient-20200316.759/ob-restclient-pkg.el | 2 ++ .../ob-restclient.el | 12 ++++++++++-- 4 files changed, 12 insertions(+), 4 deletions(-) delete mode 100644 elpa/ob-restclient-20200109.730/ob-restclient-pkg.el rename elpa/{ob-restclient-20200109.730 => ob-restclient-20200316.759}/ob-restclient-autoloads.el (100%) create mode 100644 elpa/ob-restclient-20200316.759/ob-restclient-pkg.el rename elpa/{ob-restclient-20200109.730 => ob-restclient-20200316.759}/ob-restclient.el (89%) diff --git a/elpa/ob-restclient-20200109.730/ob-restclient-pkg.el b/elpa/ob-restclient-20200109.730/ob-restclient-pkg.el deleted file mode 100644 index 9e190622..00000000 --- a/elpa/ob-restclient-20200109.730/ob-restclient-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "ob-restclient" "20200109.730" "org-babel functions for restclient-mode" '((restclient "0")) :commit "c5c22e603531dca48575d0a425fddff16dc0f391" :keywords '("literate programming" "reproducible research") :authors '(("Alf Lervåg")) :maintainer '("Alf Lervåg") :url "https://github.com/alf/ob-restclient.el") diff --git a/elpa/ob-restclient-20200109.730/ob-restclient-autoloads.el b/elpa/ob-restclient-20200316.759/ob-restclient-autoloads.el similarity index 100% rename from elpa/ob-restclient-20200109.730/ob-restclient-autoloads.el rename to elpa/ob-restclient-20200316.759/ob-restclient-autoloads.el diff --git a/elpa/ob-restclient-20200316.759/ob-restclient-pkg.el b/elpa/ob-restclient-20200316.759/ob-restclient-pkg.el new file mode 100644 index 00000000..2270e2f8 --- /dev/null +++ b/elpa/ob-restclient-20200316.759/ob-restclient-pkg.el @@ -0,0 +1,2 @@ +;;; Generated package description from /Users/andreas/.emacs.d/elpa/ob-restclient-20200316.759/ob-restclient.el -*- no-byte-compile: t -*- +(define-package "ob-restclient" "20200316.759" "org-babel functions for restclient-mode" '((restclient "0")) :commit "0ebfc7c5ebf96d2fe1a476439831363a5a43b9b6" :authors '(("Alf Lervåg")) :maintainer '("Alf Lervåg") :keywords '("literate programming" "reproducible research") :url "https://github.com/alf/ob-restclient.el") diff --git a/elpa/ob-restclient-20200109.730/ob-restclient.el b/elpa/ob-restclient-20200316.759/ob-restclient.el similarity index 89% rename from elpa/ob-restclient-20200109.730/ob-restclient.el rename to elpa/ob-restclient-20200316.759/ob-restclient.el index de89a0cd..9e3af3cf 100644 --- a/elpa/ob-restclient-20200109.730/ob-restclient.el +++ b/elpa/ob-restclient-20200316.759/ob-restclient.el @@ -4,7 +4,8 @@ ;; Author: Alf Lervåg ;; Keywords: literate programming, reproducible research -;; Package-Version: 20200109.730 +;; Package-Version: 20200316.759 +;; Package-Commit: 0ebfc7c5ebf96d2fe1a476439831363a5a43b9b6 ;; Homepage: https://github.com/alf/ob-restclient.el ;; Version: 0.02 ;; Package-Requires: ((restclient "0")) @@ -69,7 +70,8 @@ This function is called by `org-babel-execute-src-block'" (goto-char (point-min)) (delete-trailing-whitespace) (goto-char (point-min)) - (restclient-http-parse-current-and-do 'restclient-http-do nil t)) + (restclient-http-parse-current-and-do + 'restclient-http-do (org-babel-restclient-raw-payload-p params) t)) (while restclient-within-call (sleep-for 0.05)) @@ -109,5 +111,11 @@ This function is called by `org-babel-execute-src-block'" (when result-type (string-match "value\\|table" result-type)))) +(defun org-babel-restclient-raw-payload-p (params) + "Return t if the `:results' key in PARAMS contain `file'." + (let ((result-type (cdr (assoc :results params)))) + (when result-type + (string-match "file" result-type)))) + (provide 'ob-restclient) ;;; ob-restclient.el ends here -- 2.47.3