ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Grégoire Jadi 2014-05-09 14:58:59 +09:00
parent a6bc294c6e
commit 7c8559e339
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
contrib/lisp/org-annotate-file.el
View File

@ -59,14 +59,24 @@
(require 'org)
(defvar org-annotate-file-storage-file "~/.org-annotate-file.org"
"File in which to keep annotations.")
(defgroup org-annotate-file nil
"Org Annotate"
:group 'org)
(defvar org-annotate-file-add-search nil
"If non-nil, add a link as a second level to the actual file location.")
(defcustom org-annotate-file-storage-file "~/.org-annotate-file.org"
"File in which to keep annotations."
:group 'org-annotate-file
:type 'file)
(defvar org-annotate-file-always-open t
"If non-nil, always expand the full tree when visiting the annotation 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.