From mboxrd@z Thu Jan 1 00:00:00 1970 From: Matt Lundin Subject: [PATCH 2/2] Allow user to choose whether to treat headline as title Date: Fri, 29 Apr 2011 21:15:12 -0400 Message-ID: <87mxj8ilgl.fsf@fastmail.fm> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([140.186.70.92]:58239) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFyrE-0002gB-Sn for emacs-orgmode@gnu.org; Fri, 29 Apr 2011 21:20:29 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QFyrD-0005f3-NV for emacs-orgmode@gnu.org; Fri, 29 Apr 2011 21:20:28 -0400 Received: from out2.smtp.messagingengine.com ([66.111.4.26]:33992) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QFyrD-0005es-LN for emacs-orgmode@gnu.org; Fri, 29 Apr 2011 21:20:27 -0400 Received: from compute3.internal (compute3.nyi.mail.srv.osa [10.202.2.43]) by gateway1.messagingengine.com (Postfix) with ESMTP id 7EB7B2078F for ; Fri, 29 Apr 2011 21:20:27 -0400 (EDT) Received: from archdesk (67-197-161-170.dyn.comporium.net [67.197.161.170]) by mail.messagingengine.com (Postfix) with ESMTPSA id 3F00344A7AC for ; Fri, 29 Apr 2011 21:20:27 -0400 (EDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Org Mode * lisp/org-bibtex.el (org-bibtex-treat-headline-as-title): New variable (org-bibtex-fleshout): Query for title depending on value of org-bibtex-treat-headline-as-title --- Some users might want to modify the headings of their bibtex entries, adding authors, etc. In this case, the heading should not be assumed to be the title. lisp/org-bibtex.el | 12 +++++++++++- 1 files changed, 11 insertions(+), 1 deletions(-) diff --git a/lisp/org-bibtex.el b/lisp/org-bibtex.el index fcb25ca..b3d151c 100644 --- a/lisp/org-bibtex.el +++ b/lisp/org-bibtex.el @@ -223,6 +223,14 @@ For example setting to 'BIB_' would allow interoperability with fireforg." :group 'org-bibtex :type 'string) +(defcustom org-bibtex-treat-headline-as-title t + "Treat headline text as title if title property is absent. +If an entry is missing a title property, use the headline text as +the property. If this value is t, `org-bibtex-check` will ignore +a missing title field." + :group 'org-bibtex + :type 'string) + (defcustom org-bibtex-export-arbitrary-fields nil "When converting to bibtex allow fields not defined in `org-bibtex-fields'. This only has effect if org-bibtex-prefix is defined, so as to @@ -329,7 +337,9 @@ With optional argument OPTIONAL, also prompt for optional fields." (keyword (name) (intern (concat ":" (downcase name)))) (name (keyword) (upcase (substring (symbol-name keyword) 1)))) (dolist (field (append - (remove :title (val :required (val type org-bibtex-types))) + (if org-bibtex-treat-headline-as-title + (remove :title (val :required (val type org-bibtex-types))) + (val :required (val type org-bibtex-types))) (when optional (val :optional (val type org-bibtex-types))))) (when (consp field) ; or'd pair of fields e.g., (:editor :author) (let ((present (first (remove nil -- 1.7.5