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
