From c5e36a38eee5d2986e6196f90179c08092f830d7 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 29 Dec 2023 05:39:29 +0200 Subject: gnosis-dev: Change default testing values --- gnosis-dev.el | 44 ++++++++++++++++++++++++++++++-------------- gnosis.el | 2 ++ 2 files changed, 32 insertions(+), 14 deletions(-) diff --git a/gnosis-dev.el b/gnosis-dev.el index 0a742d7..793c4ee 100644 --- a/gnosis-dev.el +++ b/gnosis-dev.el @@ -23,29 +23,45 @@ (defun gnosis-dev-add-fields () "Add random inputs to test." - (dotimes (_ 500) - (gnosis-add-note-mcq :deck "Anatomy" - :question "A 37-year-old man is admitted to the + (when (y-or-n-p "Add MCQ type?") + (dotimes (_ 3) + (gnosis-add-note--mcq :deck "Anatomy" + :question "A 37-year-old man is admitted to the emergency department after a severe car crash. After examining the patient the emergency medicine physician concludes that the serratus anterior muscle is damaged. Which of the following nerves innervates the serratus anterior muscle?" - :choices '("Long thoracic" "Axillary" "Spinal accessory" "Dorsal scapular" "Thoracodorsal") - :correct-answer 1 - :extra "The long thoracic is the only nerve that + :choices '("Long thoracic" "Axillary" "Spinal accessory" "Dorsal scapular" "Thoracodorsal") + :correct-answer 1 + :extra "The long thoracic is the only nerve that innervates the serratus anterior. The axillary nerve innervates the deltoid, the spinal accessory nerve innervates the sternocleidomastoid and trapezius, the dorsal scapular nerve supplies the rhomboid muscles and levator scapulae, and the latissimus dorsi is the muscle supplied by the thoracodorsal nerve." - :tags (gnosis-dev-random-items gnosis-dev-tags 2))) - (dotimes (_ 500) - (gnosis-add-note-basic :deck "Anatomy" - :question "A question" - :hint "hint" - :answer "answer" - :extra "extra" - :tags (gnosis-dev-random-items gnosis-dev-tags 2)))) + :tags (gnosis-dev-random-items gnosis-dev-tags 2)))) + (when (y-or-n-p "Add Basic type questions?") + (dotimes (_ 3) + (gnosis-add-note--basic :deck "Anatomy" + :question "A question" + :hint "hint" + :answer "answer" + :extra "extra" + :tags (gnosis-dev-random-items gnosis-dev-tags 2)))) + (when (y-or-n-p "Add single cloze type?") + (dotimes (_ 3) + (gnosis-add-note--cloze :deck "Anatomy" + :note "this is a {c1:note}" + :hint "note" + :tags (gnosis-dev-random-items gnosis-dev-tags 2) + :extra "extra"))) + (when (y-or-n-p "Add mulit cloze type?") + (dotimes (_ 3) + (gnosis-add-note--cloze :deck "Anatomy" + :note "this is a {c1:note} with multiple {c1:clozes}" + :hint "note" + :tags (gnosis-dev-random-items gnosis-dev-tags 2) + :extra "extra")))) (defun gnosis-dev-test () "Start testing env." diff --git a/gnosis.el b/gnosis.el index 47cbf05..c3e0698 100644 --- a/gnosis.el +++ b/gnosis.el @@ -105,6 +105,8 @@ Example: "A version of `completing-read' with text properties, padding & choosable face. Returns selected option from OPTIONS. +WARNING: Do NOT use htis functions as is now! + PROMPT is a string to prompt with; normally it ends in a colon and a space. OPTIONS is a list of strings. INFO is a list of strings, which will be displayed as additional info for option -- cgit v1.2.3