Hello, When adding an org-bibtex entry with `org-bibtex-write' (or any command relying on it), the headline is the title. The patch below simply makes the headline customizable through a new variable.
I tried to follow the contribution guidelines at http://orgmode.org/worg/org-contribute.html#patches but I am not familiar with the process of sending patches, please let me know if I did not do it correctly. If you find it worth to incorporate this into org-bibtex I should probably add a dosctring for the new variable `org-bibtex-headline-format' and I would also have a few questions: 1. Should I name this variable differently? 2. Should I use `defcustom' instead of `defvar'? 3. Should I move the `defvar' / `defcustom' at the beginning of the file? 4. In the default value of the variable should I make use of the `val' function that is let-bound inside `org-bibtex-write'? Thank you for your attention, Eric * lisp/org-bibtex.el (org-bibtex-write): Make this function reads the headline format from the newly created variable `org-bibtex-headline-format' instead of systematically using the entry title. (org-bibtex-headline-format): Create this variable to hold a function of one argument, the entry alist, and return the string to be inserted as headline. The default value replicates the current behavior of returning the entry title. TINYCHANGE --- lisp/org-bibtex.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index db5d97b3..b4b8b3c6 100644 --- a/lisp/org-bibtex.el +++ b/lisp/org-bibtex.el @@ -668,6 +668,10 @@ (defun org-bibtex-read-file (file) (interactive "fFile: ") (org-bibtex-read-buffer (find-file-noselect file 'nowarn 'rawfile))) +(defvar org-bibtex-headline-format + (lambda (entry) + (cdr (assoc :title entry)))) + (defun org-bibtex-write () "Insert a heading built from the first element of `org-bibtex-entries'." (interactive) @@ -678,7 +682,7 @@ (defun org-bibtex-write () (val (lambda (field) (cdr (assoc field entry)))) (togtag (lambda (tag) (org-toggle-tag tag 'on)))) (org-insert-heading) - (insert (funcall val :title)) + (insert (funcall org-bibtex-headline-format entry)) (org-bibtex-put "TITLE" (funcall val :title)) (org-bibtex-put org-bibtex-type-property-name (downcase (funcall val :type))) -- 2.8.3
