diff options
| author | "matus goljer <"matus.goljer@gmail.com"> | 2013-11-21 17:06:31 +0100 |
|---|---|---|
| committer | "matus goljer <"matus.goljer@gmail.com"> | 2013-11-21 17:06:31 +0100 |
| commit | 8e6bf15ac8f0e83e623386cf5806769396afd039 (patch) | |
| tree | 4825783380102bb915946842103b2910f9516625 | |
| parent | 8b6e2308862d1d9b5127cb9524af9d3705aa1cdf (diff) | |
| download | org-drill-8e6bf15ac8f0e83e623386cf5806769396afd039.tar.gz org-drill-8e6bf15ac8f0e83e623386cf5806769396afd039.zip | |
Fix the defcustom definitions and provide :tag property for choices
| -rw-r--r-- | org-drill.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/org-drill.el b/org-drill.el index 2fedd47..f559a0d 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 |