summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGrégoire Jadi <gregoire.jadi@gmail.com>2014-05-09 14:58:59 +0900
committerGrégoire Jadi <gregoire.jadi@gmail.com>2014-05-09 22:22:10 +0900
commit7c8559e339e6870a555ce90dcfb495abce9ca57e (patch)
treefe38b22ae4e58dfa823769bb476de71fb208b931
parenta6bc294c6e0001844a01ba0f2b2272bd781cd297 (diff)
downloadorg-mode-7c8559e339e6870a555ce90dcfb495abce9ca57e.tar.gz
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.
-rw-r--r--contrib/lisp/org-annotate-file.el26
1 files 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.