summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el53
1 files changed, 0 insertions, 53 deletions
diff --git a/gnosis.el b/gnosis.el
index 768a05f..fb70cb6 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -452,59 +452,6 @@ Refer to =gnosis-db-schema-extras' for informations on images stored."
do (insert (format "\n%s. %s" option-num option))
(setf option-num (1+ option-num)))))
-;; FIXME: Adjust for multiple identical clozes
-(defun gnosis-display-cloze-sentence (sentence clozes hints success &optional failure)
- "Display SENTENCE with CLOZES and HINTS.
-
-SUCCESS represents the number of correctly answered clozes.
-
-If FAILURE is t, it reveals all clozes that have not been answered yet
-with `gnosis-face-cloze-unanswered', only the current cloze will be
-revealed with `gnosis-face-false' and the ones before with
-`gnosis-face-correct'."
- (cl-assert (listp clozes) "Clozes must be a list.")
- (cl-assert (numberp success) "Success must be an integer.")
- (cl-assert (or (not failure) (booleanp failure)) "Failure must be a boolean if provided.")
-
- ;; Ensure hints is a list of the correct length. This also fixes
- ;; older versions of cloze notes.
- (setq hints (if (stringp hints)
- (cons hints (make-list (1- (length clozes)) nil))
- hints))
- (cl-assert (listp hints) "Hints must be a list or a string.")
-
- ;; Ensure hints list is the same length as clozes
- (setq hints (append hints (make-list (- (length clozes) (length hints)) nil)))
-
- (let ((result sentence)
- (idx 0))
- ;; Process each cloze
- (cl-loop for cloze in clozes
- do (let* ((hint (nth idx hints))
- (display-cloze (cond
- ((< idx success) cloze)
- (failure cloze)
- ((and hint (not (string-empty-p hint))) (format "[%s]" hint))
- (t gnosis-cloze-string)))
- (face (cond
- ((< idx success) 'gnosis-face-correct)
- ((and failure (= idx success)) 'gnosis-face-false)
- ((and failure (> idx success)) 'gnosis-face-cloze-unanswered)
- (t 'gnosis-face-cloze))))
- ;; Replace only the first occurrence of each cloze in the sentence
- (setq result (replace-regexp-in-string (concat "\\(" (regexp-quote cloze) "\\)")
- (propertize display-cloze 'face face)
- result
- nil nil 1))
- (setq idx (1+ idx))))
- (let ((inhibit-read-only t))
- (erase-buffer)
- (insert "\n" (gnosis-center-string (string-trim result)))
- (gnosis-apply-syntax-overlay)
- (gnosis-insert-separator))))
-
-;; TODO: Reconsider using smaller functions for display cloze notes.
-
;; (defun gnosis-add-clozes (sentence clozes &optional cloze-string)
;; "Replace CLOZES in SENTENCE with CLOZE-STRING."
;; (let ((cloze-string (or cloze-string gnosis-cloze-string)))