summaryrefslogtreecommitdiff
path: root/gnosis-test.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-06-28 21:59:57 +0300
committerThanos Apollo <[email protected]>2024-06-28 21:59:57 +0300
commit688dc187a1684fabb209d4d08a2d2baa5ae0e99d (patch)
tree3b67cdf12439f95819e28c79f869a1458038b5f9 /gnosis-test.el
parent758e915fd92b4052229b2b89fa920d1f93b61b65 (diff)
parent30e8863e0ba226f67508b75b5eb72075a7b82c0e (diff)
Release version 0.3.0: Merge branch '0.3.0-dev'0.3.0
- Major aesthetic & display improvments - Add gnosis-demo - Add MC-cloze note type
Diffstat (limited to 'gnosis-test.el')
-rw-r--r--gnosis-test.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/gnosis-test.el b/gnosis-test.el
index 045506a..24dc4bc 100644
--- a/gnosis-test.el
+++ b/gnosis-test.el
@@ -62,11 +62,11 @@ DECK: Deck to add the inputs to."
(when (y-or-n-p "Add MCQ type?")
(dotimes (_ num)
(gnosis-add-note--mcq :deck testing-deck
- :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?"
+ :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
@@ -112,7 +112,7 @@ by the thoracodorsal nerve."
:images (cons gnosis-test-image gnosis-test-image)
:tags (gnosis-test-random-items gnosis-test-tags 2))))))
-(defun gnosis-test-start ()
+(defun gnosis-test-start (&optional note-num)
"Begin/End testing env.
If ask nil, leave testing env"
@@ -130,7 +130,7 @@ If ask nil, leave testing env"
(gnosis--drop-table table)
(error (message "No %s table to drop." table))))
(gnosis-db-init)
- (gnosis-test-add-fields)
+ (gnosis-test-add-fields note-num)
(message "Adding testing values...")
(message "Development env is ready for testing."))
(setf gnosis-db (emacsql-sqlite-open (expand-file-name "gnosis.db" gnosis-dir)))