From d689755ca5d046a1d2aa3e7e5436d8767f036b41 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Thu, 28 Apr 2011 10:02:33 -0600 Subject: [PATCH] org-bibtex: prompts for file name when writing to .bib file Thanks to Tom Dye for this suggestion * lisp/org-bibtex.el (org-bibtex): Now prompts for a file name. --- lisp/org-bibtex.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index 04baadb39..9d114b0b4 100644 --- a/lisp/org-bibtex.el +++ b/lisp/org-bibtex.el @@ -441,12 +441,16 @@ With optional argument OPTIONAL, also prompt for optional fields." ;;; Bibtex <-> Org-mode headline translation functions -(defun org-bibtex () +(defun org-bibtex (&optional filename) "Export each headline in the current file to a bibtex entry. Headlines are exported using `org-bibtex-export-headline'." - (interactive) + (interactive + (list (read-file-name + "Bibtex file: " nil nil nil + (file-name-nondirectory + (concat (file-name-sans-extension (buffer-file-name)) ".bib"))))) (let ((bibtex-entries (remove nil (org-map-entries #'org-bibtex-headline)))) - (with-temp-file (concat (file-name-sans-extension (buffer-file-name)) ".bib") + (with-temp-file filename (insert (mapconcat #'identity bibtex-entries "\n"))))) (defun org-bibtex-check (&optional optional)