summaryrefslogtreecommitdiff
path: root/gnosis-test.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-02-20 18:33:22 +0200
committerThanos Apollo <[email protected]>2024-02-20 18:33:22 +0200
commit2b6c3f43eadd2eae0155544c29bb51ac9ce38a47 (patch)
tree54a795f80b8659411945f92288604932c0cff01a /gnosis-test.el
parent6863326411ef373977bb107c1b886864ee77aff5 (diff)
gnosis-test: Add gnosis-test-image
Diffstat (limited to 'gnosis-test.el')
-rw-r--r--gnosis-test.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/gnosis-test.el b/gnosis-test.el
index 92ee5c1..e5dcb9e 100644
--- a/gnosis-test.el
+++ b/gnosis-test.el
@@ -36,6 +36,9 @@
"microbiology" "gram-positive" "gram-negative"
"fungi" "parasites"))
+(defvar gnosis-test-image "anatomy/typic-vertebra-superior-01.png"
+ "Random image for testing")
+
(defun gnosis-test-random-items (list x)
"Select X random items from LIST."
(let ((shuffled-list (copy-sequence list))
@@ -72,6 +75,7 @@ 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."
+ :image gnosis-test-image
:tags (gnosis-test-random-items gnosis-test-tags 2))))
(when (y-or-n-p "Add Basic type questions?")
(dotimes (_ num)
@@ -80,6 +84,7 @@ by the thoracodorsal nerve."
:hint "hint"
:answer "answer"
:extra "extra"
+ :image gnosis-test-image
:tags (gnosis-test-random-items gnosis-test-tags 2))))
(when (y-or-n-p "Add single cloze type?")
(dotimes (_ num)
@@ -87,6 +92,7 @@ by the thoracodorsal nerve."
:note "this is a {c1:note}"
:hint "note"
:tags (gnosis-test-random-items gnosis-test-tags 2)
+ :image gnosis-test-image
:extra "extra")))
(when (y-or-n-p "Add note with multiple clozes?")
(dotimes (_ num)
@@ -94,6 +100,7 @@ by the thoracodorsal nerve."
:note "this is a {c1:note}, a note with multiple {c1:clozes}"
:hint "note"
:tags (gnosis-test-random-items gnosis-test-tags 2)
+ :image gnosis-test-image
:extra "extra")))
(when (y-or-n-p "Add note type y-or-n?")
(dotimes (_ num)
@@ -102,6 +109,7 @@ by the thoracodorsal nerve."
:hint "hint"
:answer 110
:extra "extra"
+ :image gnosis-test-image
:tags (gnosis-test-random-items gnosis-test-tags 2))))))
(defun gnosis-test-start ()