From ffe13b78f58b81ca906826989720df3ef81be22f Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Fri, 31 Jan 2020 17:54:27 +0100 Subject: [PATCH] update ob-restclient --- .../ob-restclient-20190626.1824/ob-restclient-pkg.el | 2 -- .../ob-restclient-autoloads.el | 11 ++++++++--- elpa/ob-restclient-20200109.730/ob-restclient-pkg.el | 2 ++ .../ob-restclient.el | 12 ++++++++---- 4 files changed, 18 insertions(+), 9 deletions(-) delete mode 100644 elpa/ob-restclient-20190626.1824/ob-restclient-pkg.el rename elpa/{ob-restclient-20190626.1824 => ob-restclient-20200109.730}/ob-restclient-autoloads.el (60%) create mode 100644 elpa/ob-restclient-20200109.730/ob-restclient-pkg.el rename elpa/{ob-restclient-20190626.1824 => ob-restclient-20200109.730}/ob-restclient.el (91%) diff --git a/elpa/ob-restclient-20190626.1824/ob-restclient-pkg.el b/elpa/ob-restclient-20190626.1824/ob-restclient-pkg.el deleted file mode 100644 index cf563df9..00000000 --- a/elpa/ob-restclient-20190626.1824/ob-restclient-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "ob-restclient" "20190626.1824" "org-babel functions for restclient-mode" '((restclient "0")) :commit "53376667eeddb1388fd6c6976f3222e7c8adcd46" :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-20190626.1824/ob-restclient-autoloads.el b/elpa/ob-restclient-20200109.730/ob-restclient-autoloads.el similarity index 60% rename from elpa/ob-restclient-20190626.1824/ob-restclient-autoloads.el rename to elpa/ob-restclient-20200109.730/ob-restclient-autoloads.el index a7233078..747e57d9 100644 --- a/elpa/ob-restclient-20190626.1824/ob-restclient-autoloads.el +++ b/elpa/ob-restclient-20200109.730/ob-restclient-autoloads.el @@ -1,10 +1,12 @@ ;;; ob-restclient-autoloads.el --- automatically extracted autoloads ;; ;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + -;;;### (autoloads nil "ob-restclient" "ob-restclient.el" (23994 46442 -;;;;;; 331202 311000)) +;;;### (autoloads nil "ob-restclient" "ob-restclient.el" (0 0 0 0)) ;;; Generated autoloads from ob-restclient.el (autoload 'org-babel-execute:restclient "ob-restclient" "\ @@ -13,11 +15,14 @@ This function is called by `org-babel-execute-src-block' \(fn BODY PARAMS)" nil nil) +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "ob-restclient" '("org-babel-"))) + ;;;*** ;; Local Variables: ;; version-control: never ;; no-byte-compile: t ;; no-update-autoloads: t +;; coding: utf-8 ;; End: ;;; ob-restclient-autoloads.el ends here diff --git a/elpa/ob-restclient-20200109.730/ob-restclient-pkg.el b/elpa/ob-restclient-20200109.730/ob-restclient-pkg.el new file mode 100644 index 00000000..9e190622 --- /dev/null +++ b/elpa/ob-restclient-20200109.730/ob-restclient-pkg.el @@ -0,0 +1,2 @@ +;;; -*- 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-20190626.1824/ob-restclient.el b/elpa/ob-restclient-20200109.730/ob-restclient.el similarity index 91% rename from elpa/ob-restclient-20190626.1824/ob-restclient.el rename to elpa/ob-restclient-20200109.730/ob-restclient.el index 6da01eb9..de89a0cd 100644 --- a/elpa/ob-restclient-20190626.1824/ob-restclient.el +++ b/elpa/ob-restclient-20200109.730/ob-restclient.el @@ -4,7 +4,7 @@ ;; Author: Alf Lervåg ;; Keywords: literate programming, reproducible research -;; Package-Version: 20190626.1824 +;; Package-Version: 20200109.730 ;; Homepage: https://github.com/alf/ob-restclient.el ;; Version: 0.02 ;; Package-Requires: ((restclient "0")) @@ -64,7 +64,7 @@ This function is called by `org-babel-execute-src-block'" (let ((key (car p)) (value (cdr p))) (when (eql key :var) - (insert (format ":%s = %s\n" (car value) (cdr value)))))) + (insert (format ":%s = <<\n%s\n#\n" (car value) (cdr value)))))) (insert body) (goto-char (point-min)) (delete-trailing-whitespace) @@ -94,11 +94,15 @@ This function is called by `org-babel-execute-src-block'" "Just return the payload." (let ((comments-start (save-excursion - (while (not (looking-at "//")) - (forward-line)) + (goto-char (point-max)) + (while (comment-only-p (line-beginning-position) (line-end-position)) + (forward-line -1)) + ;; Include the last line as well + (forward-line) (point)))) (buffer-substring (point-min) comments-start))) + (defun org-babel-restclient-return-pure-payload-result-p (params) "Return `t' if the `:results' key in PARAMS contains `value' or `table'." (let ((result-type (cdr (assoc :results params)))) -- 2.47.3