diff options
| author | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-25 12:24:05 +0100 |
|---|---|---|
| committer | Phillip Lord <phillip.lord@russet.org.uk> | 2019-06-25 12:24:05 +0100 |
| commit | 2f056255e66103b89201e81ad208cb47aaef2823 (patch) | |
| tree | 1cf6d4a5768a945cd9851df8d30ec6d357dc2cc5 | |
| parent | 1429c675e82a8e470f9d5e24e006c200e966f89f (diff) | |
| download | org-drill-2f056255e66103b89201e81ad208cb47aaef2823.tar.gz org-drill-2f056255e66103b89201e81ad208cb47aaef2823.zip | |
Re-namespace with-hidden-cloze-text
| -rw-r--r-- | org-drill.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/org-drill.el b/org-drill.el index 19f8fa2..4813f53 100644 --- a/org-drill.el +++ b/org-drill.el @@ -782,7 +782,7 @@ CMD is bound, or nil if it is not bound to a key." t "^[^.].*\\.org$")) (t scope))) -(defmacro with-hidden-cloze-text (&rest body) +(defmacro org-drill-with-hidden-cloze-text (&rest body) `(progn (org-drill-hide-clozed-text) (unwind-protect @@ -2093,7 +2093,7 @@ Note: does not actually alter the item." (defun org-drill-present-simple-card (session) (with-hidden-comments (with-hidden-cloze-hints - (with-hidden-cloze-text + (org-drill-with-hidden-cloze-text (org-drill-hide-all-subheadings-except nil) (org-drill--show-latex-fragments) ; overlay all LaTeX fragments with images (ignore-errors @@ -2124,7 +2124,7 @@ Note: does not actually alter the item." (defun org-drill-present-simple-card-with-typed-answer (session) (with-hidden-comments (with-hidden-cloze-hints - (with-hidden-cloze-text + (org-drill-with-hidden-cloze-text (org-drill-hide-all-subheadings-except nil) (org-drill--show-latex-fragments) ; overlay all LaTeX fragments with images (ignore-errors @@ -2142,7 +2142,7 @@ Note: does not actually alter the item." (defun org-drill-present-two-sided-card (session) (with-hidden-comments (with-hidden-cloze-hints - (with-hidden-cloze-text + (org-drill-with-hidden-cloze-text (let ((drill-sections (org-drill-hide-all-subheadings-except nil))) (when drill-sections (save-excursion @@ -2161,7 +2161,7 @@ Note: does not actually alter the item." (defun org-drill-present-multi-sided-card (session) (with-hidden-comments (with-hidden-cloze-hints - (with-hidden-cloze-text + (org-drill-with-hidden-cloze-text (let ((drill-sections (org-drill-hide-all-subheadings-except nil))) (when drill-sections (save-excursion @@ -3571,7 +3571,7 @@ returns its return value." (let ((prompt nil)) (with-hidden-comments (with-hidden-cloze-hints - (with-hidden-cloze-text + (org-drill-with-hidden-cloze-text (cl-case (cl-random 6) ;; PWL 2018-06-22 ;; As far as I can tell, neither prompt nor reveal-headings |