From: Andreas Gerler Date: Tue, 13 Nov 2018 14:10:17 +0000 (+0100) Subject: update ob-restclient. X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=1a0688cccbcda77a42fce55a1d8fd04f103a96f9;p=emacsconfig.git update ob-restclient. Signed-off-by: Andreas Gerler --- diff --git a/elpa/ob-restclient-20160323.2305/ob-restclient-autoloads.el b/elpa/ob-restclient-20160323.2305/ob-restclient-autoloads.el deleted file mode 100644 index 7d7fafe9..00000000 --- a/elpa/ob-restclient-20160323.2305/ob-restclient-autoloads.el +++ /dev/null @@ -1,23 +0,0 @@ -;;; ob-restclient-autoloads.el --- automatically extracted autoloads -;; -;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) - -;;;### (autoloads nil "ob-restclient" "ob-restclient.el" (22903 17327 -;;;;;; 0 0)) -;;; Generated autoloads from ob-restclient.el - -(autoload 'org-babel-execute:restclient "ob-restclient" "\ -Execute a block of Restclient code with org-babel. -This function is called by `org-babel-execute-src-block' - -\(fn BODY PARAMS)" nil nil) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; End: -;;; ob-restclient-autoloads.el ends here diff --git a/elpa/ob-restclient-20160323.2305/ob-restclient-pkg.el b/elpa/ob-restclient-20160323.2305/ob-restclient-pkg.el deleted file mode 100644 index 4f732635..00000000 --- a/elpa/ob-restclient-20160323.2305/ob-restclient-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "ob-restclient" "20160323.2305" "org-babel functions for restclient-mode" '((restclient "0")) :commit "08b82b9ea668631968ae4fb531fd74494630f840" :url "http://orgmode.org" :keywords '("literate programming" "reproducible research")) diff --git a/elpa/ob-restclient-20160323.2305/ob-restclient.el b/elpa/ob-restclient-20160323.2305/ob-restclient.el deleted file mode 100644 index 0d5c58cf..00000000 --- a/elpa/ob-restclient-20160323.2305/ob-restclient.el +++ /dev/null @@ -1,89 +0,0 @@ -;;; ob-restclient.el --- org-babel functions for restclient-mode - -;; Copyright (C) Alf Lervåg - -;; Author: Alf Lervåg -;; Keywords: literate programming, reproducible research -;; Package-Version: 20160323.2305 -;; Homepage: http://orgmode.org -;; Version: 0.02 -;; Package-Requires: ((restclient "0")) - -;;; License: - -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 3, or (at your option) -;; any later version. -;; -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. -;; -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -;; Boston, MA 02110-1301, USA. - -;;; Commentary: -;; This is a very simple first iteration at integrating restclient.el -;; and org-mode. - -;;; Requirements: -;; restclient.el - -;;; Code: -(require 'ob) -(require 'ob-ref) -(require 'ob-comint) -(require 'ob-eval) -(require 'restclient) - -(defvar org-babel-default-header-args:restclient - `((:results . "raw")) - "Default arguments for evaluating a restclient block.") - -;;;###autoload -(defun org-babel-execute:restclient (body params) - "Execute a block of Restclient code with org-babel. -This function is called by `org-babel-execute-src-block'" - (message "executing Restclient source code block") - (with-temp-buffer - (let ((results-buffer (current-buffer)) - (restclient-same-buffer-response t) - (restclient-same-buffer-response-name (buffer-name)) - (display-buffer-alist - (cons - '("\\*temp\\*" display-buffer-no-window (allow-no-window . t)) - display-buffer-alist))) - - (insert (buffer-name)) - (with-temp-buffer - (dolist (p params) - (let ((key (car p)) - (value (cdr p))) - (when (eql key :var) - (insert (format ":%s = %s\n" (car value) (cdr value)))))) - (insert body) - (restclient-http-parse-current-and-do 'restclient-http-do nil t)) - - (while restclient-within-call - (sit-for 0.05)) - - (goto-char (point-min)) - (when (search-forward (buffer-name) nil t) - (error "Restclient encountered an error")) - - (org-babel-restclient-wrap-result)))) - -(defun org-babel-restclient-wrap-result () - "Wrap the contents of the buffer in an `org-mode' src block." - (let ((mode-name (substring (symbol-name major-mode) 0 -5))) - (insert (format "#+BEGIN_SRC %s\n" mode-name)) - (goto-char (point-max)) - (insert "#+END_SRC\n") - (buffer-string))) - -(provide 'ob-restclient) -;;; ob-restclient.el ends here diff --git a/elpa/ob-restclient-20180904.709/ob-restclient-autoloads.el b/elpa/ob-restclient-20180904.709/ob-restclient-autoloads.el new file mode 100644 index 00000000..747e57d9 --- /dev/null +++ b/elpa/ob-restclient-20180904.709/ob-restclient-autoloads.el @@ -0,0 +1,28 @@ +;;; ob-restclient-autoloads.el --- automatically extracted autoloads +;; +;;; Code: + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + + +;;;### (autoloads nil "ob-restclient" "ob-restclient.el" (0 0 0 0)) +;;; Generated autoloads from ob-restclient.el + +(autoload 'org-babel-execute:restclient "ob-restclient" "\ +Execute a block of Restclient code with org-babel. +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-20180904.709/ob-restclient-pkg.el b/elpa/ob-restclient-20180904.709/ob-restclient-pkg.el new file mode 100644 index 00000000..f05a9437 --- /dev/null +++ b/elpa/ob-restclient-20180904.709/ob-restclient-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "ob-restclient" "20180904.709" "org-babel functions for restclient-mode" '((restclient "0")) :commit "00b2c5a6637ab6e504708612357ffb29b5416e4b" :keywords '("literate programming" "reproducible research") :authors '(("Alf Lervåg")) :maintainer '("Alf Lervåg") :url "http://orgmode.org") diff --git a/elpa/ob-restclient-20180904.709/ob-restclient.el b/elpa/ob-restclient-20180904.709/ob-restclient.el new file mode 100644 index 00000000..7894cdef --- /dev/null +++ b/elpa/ob-restclient-20180904.709/ob-restclient.el @@ -0,0 +1,92 @@ +;;; ob-restclient.el --- org-babel functions for restclient-mode + +;; Copyright (C) Alf Lervåg + +;; Author: Alf Lervåg +;; Keywords: literate programming, reproducible research +;; Package-Version: 20180904.709 +;; Homepage: http://orgmode.org +;; Version: 0.02 +;; Package-Requires: ((restclient "0")) + +;;; License: + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: +;; This is a very simple first iteration at integrating restclient.el +;; and org-mode. + +;;; Requirements: +;; restclient.el + +;;; Code: +(require 'ob) +(require 'ob-ref) +(require 'ob-comint) +(require 'ob-eval) +(require 'restclient) + +(defvar org-babel-default-header-args:restclient + `((:results . "raw")) + "Default arguments for evaluating a restclient block.") + +;;;###autoload +(defun org-babel-execute:restclient (body params) + "Execute a block of Restclient code with org-babel. +This function is called by `org-babel-execute-src-block'" + (message "executing Restclient source code block") + (with-temp-buffer + (let ((results-buffer (current-buffer)) + (restclient-same-buffer-response t) + (restclient-same-buffer-response-name (buffer-name)) + (display-buffer-alist + (cons + '("\\*temp\\*" display-buffer-no-window (allow-no-window . t)) + display-buffer-alist))) + + (insert (buffer-name)) + (with-temp-buffer + (dolist (p params) + (let ((key (car p)) + (value (cdr p))) + (when (eql key :var) + (insert (format ":%s = %s\n" (car value) (cdr value)))))) + (insert body) + (goto-char (point-min)) + (delete-trailing-whitespace) + (goto-char (point-min)) + (restclient-http-parse-current-and-do 'restclient-http-do nil t)) + + (while restclient-within-call + (sleep-for 0.05)) + + (goto-char (point-min)) + (when (search-forward (buffer-name) nil t) + (error "Restclient encountered an error")) + + (org-babel-restclient-wrap-result)))) + +(defun org-babel-restclient-wrap-result () + "Wrap the contents of the buffer in an `org-mode' src block." + (let ((mode-name (substring (symbol-name major-mode) 0 -5))) + (insert (format "#+BEGIN_SRC %s\n" mode-name)) + (goto-char (point-max)) + (insert "#+END_SRC\n") + (buffer-string))) + +(provide 'ob-restclient) +;;; ob-restclient.el ends here