branch: elpa/org-drill
commit 8e6bf15ac8f0e83e623386cf5806769396afd039
Author: "matus goljer <"[email protected]">
Commit: "matus goljer <"[email protected]">
Fix the defcustom definitions and provide :tag property for choices
---
org-drill.el | 16 ++++++++++------
1 file changed, 10 insertions(+), 6 deletions(-)
diff --git a/org-drill.el b/org-drill.el
index 2fedd476bc..f559a0d4c7 100644
--- a/org-drill.el
+++ b/org-drill.el
@@ -109,7 +109,7 @@ Possible values:
but a warning message is printed when each leech item is
presented."
:group 'org-drill
- :type '(choice (const 'warn) (const 'skip) (const nil)))
+ :type '(choice (const warn) (const skip) (const nil)))
(defface org-drill-visible-cloze-face
@@ -304,10 +304,14 @@ directory All files with the extension '.org'
in the same
;; 'file-no-restriction' means current file/buffer, ignoring restrictions
;; 'directory' means all *.org files in current directory
:group 'org-drill
- :type '(choice (const 'file) (const 'tree) (const 'file-no-restriction)
- (const 'file-with-archives) (const 'agenda)
- (const 'agenda-with-archives) (const 'directory)
- list))
+ :type '(choice (const :tag "The current buffer, respecting the restriction
if any." file)
+ (const :tag "The subtree started with the entry at point"
tree)
+ (const :tag "The current buffer, without restriction"
file-no-restriction)
+ (const :tag "The current buffer, and any archives associated
with it." file-with-archives)
+ (const :tag "All agenda files" agenda)
+ (const :tag "All agenda files with any archive files
associated with them." agenda-with-archives)
+ (const :tag "All files with the extension '.org' in the same
directory as the current file (includes the current file if it is an .org
file.)" directory)
+ (repeat :tag "List of files to scan for drill items." file)))
(defcustom org-drill-match
@@ -340,7 +344,7 @@ Available choices are:
adjusting intervals when items are reviewed early or late has been taken
from SM11, a later version of the algorithm, and included in Simple8."
:group 'org-drill
- :type '(choice (const 'sm2) (const 'sm5) (const 'simple8)))
+ :type '(choice (const sm2) (const sm5) (const simple8)))
(defcustom org-drill-optimal-factor-matrix
