From bb9764dab0f019133177d0b654bbe506dbaa2683 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Tue, 16 Jul 2024 14:02:20 +0300
Subject: cloze: Remove gnosis-display-cloze-sentence

- Too big of a function.
- Changes of clozes and hints should be done sequentially instead.
---
 gnosis.el | 53 -----------------------------------------------------
 1 file changed, 53 deletions(-)

(limited to 'gnosis.el')

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)))
-- 
cgit v1.2.3