From mboxrd@z Thu Jan 1 00:00:00 1970 From: Daimrod Subject: [PATH] Customize org-annotate-file Date: Fri, 09 May 2014 15:02:30 +0900 Message-ID: <871tw3v6a1.fsf@tanger.home> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:36517) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WidtH-000230-LX for emacs-orgmode@gnu.org; Fri, 09 May 2014 02:02:40 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WidtG-0004WA-0m for emacs-orgmode@gnu.org; Fri, 09 May 2014 02:02:38 -0400 Received: from mail-pa0-x22f.google.com ([2607:f8b0:400e:c03::22f]:51830) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WidtF-0004S0-Pv for emacs-orgmode@gnu.org; Fri, 09 May 2014 02:02:37 -0400 Received: by mail-pa0-f47.google.com with SMTP id lf10so1432919pab.20 for ; Thu, 08 May 2014 23:02:36 -0700 (PDT) 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: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Hi, Here is a small patch for contrib/lisp/org-annotate-file.el. This patch creates a customization group for org-annotate-file (child of the org group) and convert defvars to defcustoms. Okay to push? --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-contrib-lisp-org-annotate-file.el-Create-a-customiza.patch >From ea5be445776f7d139f52b38306552e0012b47d0a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Jadi?= Date: Fri, 9 May 2014 14:58:59 +0900 Subject: [PATCH] contrib/lisp/org-annotate-file.el: Create a customization group and convert `defvar' customization variables to `defcustom' * contrib/lisp/org-annotate-file.el (org-annotate-file): New customization group. (org-annotate-file-storage-file org-annotate-file-add-search org-annotate-file-always-open): Convert `defvar' symbols to `defcustom' using the new group. --- contrib/lisp/org-annotate-file.el | 26 ++++++++++++++++++-------- 1 file changed, 18 insertions(+), 8 deletions(-) diff --git a/contrib/lisp/org-annotate-file.el b/contrib/lisp/org-annotate-file.el index 8fbb590..b8e8bd9 100644 --- a/contrib/lisp/org-annotate-file.el +++ b/contrib/lisp/org-annotate-file.el @@ -59,14 +59,24 @@ (require 'org) -(defvar org-annotate-file-storage-file "~/.org-annotate-file.org" - "File in which to keep annotations.") - -(defvar org-annotate-file-add-search nil - "If non-nil, add a link as a second level to the actual file location.") - -(defvar org-annotate-file-always-open t - "If non-nil, always expand the full tree when visiting the annotation file.") +(defgroup org-annotate-file nil + "Org Annotate" + :group 'org) + +(defcustom org-annotate-file-storage-file "~/.org-annotate-file.org" + "File in which to keep annotations." + :group 'org-annotate-file + :type 'file) + +(defcustom org-annotate-file-add-search nil + "If non-nil, add a link as a second level to the actual file location." + :group 'org-annotate-file + :type 'boolean) + +(defcustom org-annotate-file-always-open t + "If non-nil, always expand the full tree when visiting the annotation file." + :group 'org-annotate-file + :type 'boolean) (defun org-annotate-file-ellipsify-desc (string &optional after) "Return shortened STRING with appended ellipsis. -- 1.8.0.2722.gc0242e5 --=-=-= Content-Type: text/plain -- Daimrod/Greg --=-=-=--