From 77c72495ab5310e806296f5f5b67a3ba2f28d102 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Mon, 21 Jan 2019 15:05:58 +0100 Subject: [PATCH] Update ob-async. Signed-off-by: Andreas Gerler --- elpa/ob-async-20180816.1553/ob-async-pkg.el | 2 - .../ob-async-autoloads.el | 0 elpa/ob-async-20190115.137/ob-async-pkg.el | 2 + .../ob-async.el | 69 ++++++++++--------- 4 files changed, 37 insertions(+), 36 deletions(-) delete mode 100644 elpa/ob-async-20180816.1553/ob-async-pkg.el rename elpa/{ob-async-20180816.1553 => ob-async-20190115.137}/ob-async-autoloads.el (100%) create mode 100644 elpa/ob-async-20190115.137/ob-async-pkg.el rename elpa/{ob-async-20180816.1553 => ob-async-20190115.137}/ob-async.el (75%) diff --git a/elpa/ob-async-20180816.1553/ob-async-pkg.el b/elpa/ob-async-20180816.1553/ob-async-pkg.el deleted file mode 100644 index bec5f4b2..00000000 --- a/elpa/ob-async-20180816.1553/ob-async-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "ob-async" "20180816.1553" "Asynchronous org-babel src block execution" '((async "1.9") (org "9.0.1") (emacs "24.4") (dash "2.14.1")) :commit "2470490e6efb3f8efde1702f7986f6e31cc1ab6c" :keywords '("tools") :authors '(("Andrew Stahlman" . "andrewstahlman@gmail.com")) :maintainer '("Andrew Stahlman" . "andrewstahlman@gmail.com") :url "https://github.com/astahlman/ob-async") diff --git a/elpa/ob-async-20180816.1553/ob-async-autoloads.el b/elpa/ob-async-20190115.137/ob-async-autoloads.el similarity index 100% rename from elpa/ob-async-20180816.1553/ob-async-autoloads.el rename to elpa/ob-async-20190115.137/ob-async-autoloads.el diff --git a/elpa/ob-async-20190115.137/ob-async-pkg.el b/elpa/ob-async-20190115.137/ob-async-pkg.el new file mode 100644 index 00000000..bc142370 --- /dev/null +++ b/elpa/ob-async-20190115.137/ob-async-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "ob-async" "20190115.137" "Asynchronous org-babel src block execution" '((async "1.9") (org "9.0.1") (emacs "24.4") (dash "2.14.1")) :commit "3116f4c15f599c6979339afac384326689372bab" :keywords '("tools") :authors '(("Andrew Stahlman" . "andrewstahlman@gmail.com")) :maintainer '("Andrew Stahlman" . "andrewstahlman@gmail.com") :url "https://github.com/astahlman/ob-async") diff --git a/elpa/ob-async-20180816.1553/ob-async.el b/elpa/ob-async-20190115.137/ob-async.el similarity index 75% rename from elpa/ob-async-20180816.1553/ob-async.el rename to elpa/ob-async-20190115.137/ob-async.el index 2a149459..b78463b3 100644 --- a/elpa/ob-async-20180816.1553/ob-async.el +++ b/elpa/ob-async-20190115.137/ob-async.el @@ -5,7 +5,7 @@ ;; Author: Andrew Stahlman ;; Created: 10 Feb 2017 ;; Version: 0.1 -;; Package-Version: 20180816.1553 +;; Package-Version: 20190115.137 ;; Keywords: tools ;; Homepage: https://github.com/astahlman/ob-async @@ -160,39 +160,40 @@ block." (progn (message "result silenced") 'ignore) `(lambda (result) - (with-current-buffer ,(current-buffer) - (save-excursion - (goto-char (point-min)) - (re-search-forward ,placeholder) - (org-backward-element) - (let ((result-block (split-string (thing-at-point 'line t)))) - ;; If block has name, search by name - (-if-let (block-name (nth 1 result-block)) - (org-babel-goto-named-src-block block-name) - (org-backward-element))) - (let ((file (cdr (assq :file ',params)))) - ;; If non-empty result and :file then write to :file. - (when file - (when result - (with-temp-file file - (insert (org-babel-format-result - result (cdr (assq :sep ',params)))))) - (setq result file)) - ;; Possibly perform post process provided its - ;; appropriate. Dynamically bind "*this*" to the - ;; actual results of the block. - (let ((post (cdr (assq :post ',params)))) - (when post - (let ((*this* (if (not file) result - (org-babel-result-to-file - file - (let ((desc (assq :file-desc ',params))) - (and desc (or (cdr desc) result))))))) - (setq result (org-babel-ref-resolve post)) - (when file - (setq result-params (remove "file" ',result-params)))))) - (org-babel-insert-result result ',result-params ',info ',new-hash ',lang) - (run-hooks 'org-babel-after-execute-hook)))))))))))))))))) + (with-current-buffer ,(current-buffer) + (let ((default-directory ,default-directory)) + (save-excursion + (goto-char (point-min)) + (re-search-forward ,placeholder) + (org-backward-element) + (let ((result-block (split-string (thing-at-point 'line t)))) + ;; If block has name, search by name + (-if-let (block-name (nth 1 result-block)) + (org-babel-goto-named-src-block block-name) + (org-backward-element))) + (let ((file (cdr (assq :file ',params)))) + ;; If non-empty result and :file then write to :file. + (when file + (when result + (with-temp-file file + (insert (org-babel-format-result + result (cdr (assq :sep ',params)))))) + (setq result file)) + ;; Possibly perform post process provided its + ;; appropriate. Dynamically bind "*this*" to the + ;; actual results of the block. + (let ((post (cdr (assq :post ',params)))) + (when post + (let ((*this* (if (not file) result + (org-babel-result-to-file + file + (let ((desc (assq :file-desc ',params))) + (and desc (or (cdr desc) result))))))) + (setq result (org-babel-ref-resolve post)) + (when file + (setq result-params (remove "file" ',result-params)))))) + (org-babel-insert-result result ',result-params ',info ',new-hash ',lang) + (run-hooks 'org-babel-after-execute-hook))))))))))))))))))) (defun ob-async--generate-uuid () "Generate a 32 character UUID." -- 2.47.3