emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/org-drill 2f056255e6 192/251: Re-namespace with-hidden-clo


From: ELPA Syncer
Subject: [nongnu] elpa/org-drill 2f056255e6 192/251: Re-namespace with-hidden-cloze-text
Date: Mon, 17 Jan 2022 18:59:16 -0500 (EST)

branch: elpa/org-drill
commit 2f056255e66103b89201e81ad208cb47aaef2823
Author: Phillip Lord <phillip.lord@russet.org.uk>
Commit: Phillip Lord <phillip.lord@russet.org.uk>

    Re-namespace with-hidden-cloze-text
---
 org-drill.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/org-drill.el b/org-drill.el
index 19f8fa27cc..4813f53621 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]