2016-06-15 10:36:26 +00:00
|
|
|
;;; ob-lob.el --- Functions Supporting the Library of Babel -*- lexical-binding: t; -*-
|
2009-06-13 00:26:28 +00:00
|
|
|
|
2021-01-01 19:55:31 +00:00
|
|
|
;; Copyright (C) 2009-2021 Free Software Foundation, Inc.
|
2009-06-13 00:26:28 +00:00
|
|
|
|
2012-04-01 22:53:28 +00:00
|
|
|
;; Authors: Eric Schulte
|
|
|
|
;; Dan Davison
|
2009-06-13 00:26:28 +00:00
|
|
|
;; Keywords: literate programming, reproducible research
|
2018-01-16 16:22:00 +00:00
|
|
|
;; Homepage: https://orgmode.org
|
2009-06-13 00:26:28 +00:00
|
|
|
|
2010-06-25 16:20:39 +00:00
|
|
|
;; This file is part of GNU Emacs.
|
2009-06-13 00:26:28 +00:00
|
|
|
|
2010-06-25 16:20:39 +00:00
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
2009-06-13 00:26:28 +00:00
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2010-06-25 16:20:39 +00:00
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
;; (at your option) any later version.
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
2009-06-13 00:26:28 +00:00
|
|
|
;; 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.
|
2010-06-25 16:20:39 +00:00
|
|
|
|
2009-06-13 00:26:28 +00:00
|
|
|
;; You should have received a copy of the GNU General Public License
|
2017-09-13 22:52:52 +00:00
|
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
2009-06-13 00:26:28 +00:00
|
|
|
|
|
|
|
;;; Code:
|
2016-06-15 10:35:19 +00:00
|
|
|
(require 'cl-lib)
|
2012-12-11 23:58:16 +00:00
|
|
|
(require 'ob-core)
|
2010-06-11 23:02:42 +00:00
|
|
|
(require 'ob-table)
|
2009-06-14 14:54:55 +00:00
|
|
|
|
2016-06-16 22:24:12 +00:00
|
|
|
(declare-function org-babel-ref-split-args "ob-ref" (arg-string))
|
2016-06-16 20:16:41 +00:00
|
|
|
(declare-function org-element-at-point "org-element" ())
|
2015-11-26 14:13:22 +00:00
|
|
|
(declare-function org-element-context "org-element" (&optional element))
|
|
|
|
(declare-function org-element-property "org-element" (property element))
|
|
|
|
(declare-function org-element-type "org-element" (element))
|
2011-11-15 15:38:41 +00:00
|
|
|
|
2009-06-14 21:10:04 +00:00
|
|
|
(defvar org-babel-library-of-babel nil
|
2010-07-13 23:20:08 +00:00
|
|
|
"Library of source-code blocks.
|
2016-06-20 12:44:44 +00:00
|
|
|
This is an association list. Populate the library by calling
|
|
|
|
`org-babel-lob-ingest' on files containing source blocks.")
|
2009-06-14 21:10:04 +00:00
|
|
|
|
2016-07-24 20:59:41 +00:00
|
|
|
(defvar org-babel-default-lob-header-args '((:exports . "results"))
|
|
|
|
"Default header arguments to use when exporting Babel calls.
|
|
|
|
By default, a Babel call inherits its arguments from the source
|
|
|
|
block being called. Header arguments defined in this variable
|
|
|
|
take precedence over these. It is useful for properties that
|
|
|
|
should not be inherited from a source block.")
|
2011-06-24 20:53:25 +00:00
|
|
|
|
2009-06-14 21:10:04 +00:00
|
|
|
(defun org-babel-lob-ingest (&optional file)
|
2014-01-03 16:15:34 +00:00
|
|
|
"Add all named source blocks defined in FILE to `org-babel-library-of-babel'."
|
2011-01-31 19:33:09 +00:00
|
|
|
(interactive "fFile: ")
|
2010-10-12 10:52:29 +00:00
|
|
|
(let ((lob-ingest-count 0))
|
|
|
|
(org-babel-map-src-blocks file
|
2016-07-24 21:26:43 +00:00
|
|
|
(let* ((info (org-babel-get-src-block-info 'light))
|
2010-10-12 10:52:29 +00:00
|
|
|
(source-name (nth 4 info)))
|
|
|
|
(when source-name
|
2017-09-28 21:04:54 +00:00
|
|
|
(setf (nth 1 info)
|
|
|
|
(if (org-babel-noweb-p (nth 2 info) :eval)
|
|
|
|
(org-babel-expand-noweb-references info)
|
|
|
|
(nth 1 info)))
|
|
|
|
(let ((source (intern source-name)))
|
|
|
|
(setq org-babel-library-of-babel
|
|
|
|
(cons (cons source info)
|
|
|
|
(assq-delete-all source org-babel-library-of-babel))))
|
|
|
|
(cl-incf lob-ingest-count))))
|
2018-09-20 09:23:49 +00:00
|
|
|
(message "%d source block%s added to Library of Babel"
|
2010-10-16 00:42:26 +00:00
|
|
|
lob-ingest-count (if (> lob-ingest-count 1) "s" ""))
|
|
|
|
lob-ingest-count))
|
2009-06-14 21:10:04 +00:00
|
|
|
|
2016-02-10 21:47:09 +00:00
|
|
|
;; Functions for executing lob one-liners.
|
2011-11-09 21:35:04 +00:00
|
|
|
|
2010-06-23 18:24:33 +00:00
|
|
|
;;;###autoload
|
2009-06-14 14:54:55 +00:00
|
|
|
(defun org-babel-lob-execute-maybe ()
|
2010-07-13 23:20:08 +00:00
|
|
|
"Execute a Library of Babel source block, if appropriate.
|
|
|
|
Detect if this is context for a Library Of Babel source block and
|
|
|
|
if so then run the appropriate source block from the Library."
|
2009-06-14 14:54:55 +00:00
|
|
|
(interactive)
|
|
|
|
(let ((info (org-babel-lob-get-info)))
|
2016-01-28 10:18:50 +00:00
|
|
|
(when info
|
2016-06-16 21:32:58 +00:00
|
|
|
(org-babel-execute-src-block nil info)
|
2016-01-28 10:18:50 +00:00
|
|
|
t)))
|
2009-06-14 14:54:55 +00:00
|
|
|
|
2018-01-22 18:27:13 +00:00
|
|
|
(defun org-babel-lob--src-info (ref)
|
|
|
|
"Return internal representation for Babel data referenced as REF.
|
|
|
|
REF is a string. This function looks into the current document
|
2016-06-16 20:16:41 +00:00
|
|
|
for a Babel call or source block. If none is found, it looks
|
2018-01-22 18:27:13 +00:00
|
|
|
after REF in the Library of Babel."
|
|
|
|
(let ((name ref)
|
|
|
|
(file nil))
|
|
|
|
;; Extract the remote file, if specified in the reference.
|
|
|
|
(when (string-match "\\`\\(.+\\):\\(.+\\)\\'" ref)
|
|
|
|
(setq file (match-string 1 ref))
|
|
|
|
(setq name (match-string 2 ref)))
|
|
|
|
;; During export, look into the pristine copy of the document
|
|
|
|
;; being exported instead of the current one, which could miss
|
|
|
|
;; some data.
|
|
|
|
(with-current-buffer (cond (file (find-file-noselect file t))
|
|
|
|
(org-babel-exp-reference-buffer)
|
|
|
|
(t (current-buffer)))
|
|
|
|
(org-with-point-at 1
|
|
|
|
(catch :found
|
|
|
|
(let ((case-fold-search t)
|
|
|
|
(regexp (org-babel-named-data-regexp-for-name name)))
|
|
|
|
(while (re-search-forward regexp nil t)
|
|
|
|
(let ((element (org-element-at-point)))
|
|
|
|
(when (equal name (org-element-property :name element))
|
|
|
|
(throw :found
|
|
|
|
(pcase (org-element-type element)
|
|
|
|
(`src-block (org-babel-get-src-block-info t element))
|
|
|
|
(`babel-call (org-babel-lob-get-info element))
|
|
|
|
;; Non-executable data found. Since names
|
|
|
|
;; are supposed to be unique throughout
|
|
|
|
;; a document, bail out.
|
|
|
|
(_ nil))))))
|
|
|
|
(cdr (assoc-string ref org-babel-library-of-babel))))))))
|
2016-06-16 20:16:41 +00:00
|
|
|
|
2010-06-23 18:24:33 +00:00
|
|
|
;;;###autoload
|
2016-01-28 10:18:50 +00:00
|
|
|
(defun org-babel-lob-get-info (&optional datum)
|
2016-06-16 20:16:41 +00:00
|
|
|
"Return internal representation for Library of Babel function call.
|
2018-01-22 18:27:13 +00:00
|
|
|
|
|
|
|
Consider DATUM, when provided, or element at point otherwise.
|
|
|
|
|
|
|
|
Return nil when not on an appropriate location. Otherwise return
|
|
|
|
a list compatible with `org-babel-get-src-block-info', which
|
|
|
|
see."
|
2016-02-10 23:32:07 +00:00
|
|
|
(let* ((context (or datum (org-element-context)))
|
2018-01-22 18:27:13 +00:00
|
|
|
(type (org-element-type context))
|
|
|
|
(reference (org-element-property :call context)))
|
2016-02-10 23:32:07 +00:00
|
|
|
(when (memq type '(babel-call inline-babel-call))
|
2018-01-22 18:27:13 +00:00
|
|
|
(pcase (org-babel-lob--src-info reference)
|
2016-08-28 09:45:39 +00:00
|
|
|
(`(,language ,body ,header ,_ ,_ ,_ ,coderef)
|
2016-06-16 20:16:41 +00:00
|
|
|
(let ((begin (org-element-property (if (eq type 'inline-babel-call)
|
|
|
|
:begin
|
|
|
|
:post-affiliated)
|
|
|
|
context)))
|
|
|
|
(list language
|
|
|
|
body
|
|
|
|
(apply #'org-babel-merge-params
|
|
|
|
header
|
2016-07-24 20:59:41 +00:00
|
|
|
org-babel-default-lob-header-args
|
2016-06-16 20:16:41 +00:00
|
|
|
(append
|
2017-12-23 14:56:53 +00:00
|
|
|
(org-with-point-at begin
|
|
|
|
(org-babel-params-from-properties language))
|
2016-06-16 20:16:41 +00:00
|
|
|
(list
|
|
|
|
(org-babel-parse-header-arguments
|
|
|
|
(org-element-property :inside-header context))
|
|
|
|
(let ((args (org-element-property :arguments context)))
|
|
|
|
(and args
|
|
|
|
(mapcar (lambda (ref) (cons :var ref))
|
|
|
|
(org-babel-ref-split-args args))))
|
|
|
|
(org-babel-parse-header-arguments
|
|
|
|
(org-element-property :end-header context)))))
|
|
|
|
nil
|
|
|
|
(org-element-property :name context)
|
2016-08-28 09:45:39 +00:00
|
|
|
begin
|
|
|
|
coderef)))
|
2016-06-16 20:16:41 +00:00
|
|
|
(_ nil)))))
|
|
|
|
|
2010-06-11 23:02:42 +00:00
|
|
|
(provide 'ob-lob)
|
2010-06-25 16:20:39 +00:00
|
|
|
|
2012-10-02 06:50:46 +00:00
|
|
|
;; Local variables:
|
|
|
|
;; generated-autoload-file: "org-loaddefs.el"
|
|
|
|
;; End:
|
2010-06-25 16:20:39 +00:00
|
|
|
|
2010-06-11 23:02:42 +00:00
|
|
|
;;; ob-lob.el ends here
|