mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-21 09:48:39 +00:00
Code Releases Activity

Library of Babel should only try to ingest named source blocks

Browse source
This commit is contained in:
Eric Schulte 2009-06-15 12:54:29 -07:00
parent c678059deb
commit dd7ba333a7
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/org-babel-lob.el
View file

@ -48,12 +48,13 @@ add files to this list use the `org-babel-lob-ingest' command."
(org-babel-map-source-blocks file
(let ((source-name (intern (org-babel-get-src-block-name)))
(info (org-babel-get-src-block-info)))
;; remove :var elements from params
;; (once we have a better way of combining parameter lists then we won't have to do this)
(setf (third info) (assq-delete-all :var (third info)))
(setq org-babel-library-of-babel
(cons (cons source-name info)
(assq-delete-all source-name org-babel-library-of-babel))))))
(when source-name
;; remove :var elements from params
;; (once we have a better way of combining parameter lists then we won't have to do this)
(setf (third info) (assq-delete-all :var (third info)))
(setq org-babel-library-of-babel
(cons (cons source-name info)
(assq-delete-all source-name org-babel-library-of-babel)))))))
(org-babel-lob-ingest ;; actually add the source-blocks defined in library-of-babel.org
(expand-file-name "library-of-babel.org"