diff options
author | Leonard Randall <leonard.a.randall@gmail.com> | 2014-04-18 16:45:44 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-04-18 16:45:44 +0200 |
commit | 7656f689acbd0c73e04270588b7a25a98e6ed620 (patch) | |
tree | 73a9c7aa0a50bc64c59ae92ab4d6f682c014ded9 | |
parent | d52572d1bc3fd864d47c89899bc8317e6cc6badd (diff) | |
download | org-mode-7656f689acbd0c73e04270588b7a25a98e6ed620.tar.gz |
org-bibtex.el: New option `org-bibtex-inherit-tags'
* org-bibtex.el (org-bibtex-tags-are-keywords): Enhance
docstring.
(org-bibtex-inherit-tags): New option.
(org-bibtex-headline): Use the new option.
TINYCHANGE
-rw-r--r-- | lisp/org-bibtex.el | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index e7f0be5..2949f7c 100644 --- a/lisp/org-bibtex.el +++ b/lisp/org-bibtex.el @@ -269,9 +269,10 @@ with underscores, and characters that are not permitted in org tags will be removed. If t, local tags in an org entry will be exported as a -comma-separated string of keywords when exported to bibtex. Tags -defined in `org-bibtex-tags' or `org-bibtex-no-export-tags' will -not be exported." +comma-separated string of keywords when exported to bibtex. +If `org-bibtex-inherit-tags' is t, inherited tags will also +be exported as keywords. Tags defined in `org-bibtex-tags' +or `org-bibtex-no-export-tags' will not be exported." :group 'org-bibtex :version "24.1" :type 'boolean) @@ -283,6 +284,16 @@ This variable is relevant only if `org-bibtex-tags-are-keywords' is t." :version "24.1" :type '(repeat :tag "Tag" (string))) +(defcustom org-bibtex-inherit-tags nil + "Controls whether inherited tags are converted to bibtex keywords. +It is relevant only if `org-bibtex-tags-are-keywords' is t. Tag +inheritence itself is controlled by `org-use-tag-inheritence' and +`org-exclude-tags-from-inheritence'." + :group 'org-bibtex + :version "25.1" + :package-version '(Org . "8.3") + :type 'boolean) + (defcustom org-bibtex-type-property-name "btype" "Property in which to store bibtex entry type (e.g., article)." :group 'org-bibtex @@ -331,7 +342,9 @@ This variable is relevant only if `org-bibtex-tags-are-keywords' is t." (append org-bibtex-tags org-bibtex-no-export-tags)) tag)) - (org-get-local-tags-at)))))) + (if org-bibtex-inherit-tags + (org-get-tags-at) + (org-get-local-tags-at))))))) (when type (let ((entry (format "@%s{%s,\n%s\n}\n" type id |