[O] [PATCH] org-bibtex.el: Make headline format costomizable

[Eric Danan]

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