branch: elpa/gnosis
commit ad70e376ed1f9e6ec15dc8474fda3dfd37bb953a
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>

    Remove deprecated mc-cloze functions.
---
 gnosis.el | 17 -----------------
 1 file changed, 17 deletions(-)

diff --git a/gnosis.el b/gnosis.el
index 9202916826..2a04d1ec9a 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -742,17 +742,6 @@ LENGTH: length of id, default to a random number between 
10-15."
         (gnosis-generate-id length)
       id)))
 
-(cl-defun gnosis-mc-cloze-extract-options (str &optional (char 
gnosis-mc-cloze-separator))
-  "Extract options for MC-CLOZE note type from STR.
-
-CHAR: separator for mc-cloze, default to `gnosis-mc-cloze-separator'"
-  (cl-remove-if
-   #'null
-   (mapcar (lambda (s)
-             (when (string-match-p (regexp-quote char) s)
-               (split-string s (regexp-quote char))))
-           (split-string str " "))))
-
 (defun gnosis-mcq-answer (id)
   "Choose the correct answer, from mcq choices for question ID."
   (let ((choices (gnosis-get 'hypothesis 'notes `(= id ,id)))
@@ -822,12 +811,6 @@ This function should be used in combination with
                     lst))
           nested-lst))
 
-(defun gnosis-mc-cloze-remove-separator (string &optional separator)
-  "Remove SEPARATOR and all followed words from STRING."
-  (let* ((separator (or separator gnosis-mc-cloze-separator))
-        (result (replace-regexp-in-string (format "%s[^ ]*" separator) "" 
string)))
-    result))
-
 (defun gnosis-compare-strings (str1 str2)
   "Compare STR1 and STR2, ignoring case and whitespace."
   (let* ((normalized-str1 (downcase

Reply via email to