diff options
| author | Thanos Apollo <[email protected]> | 2024-02-20 18:33:22 +0200 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-02-20 18:33:22 +0200 |
| commit | 2b6c3f43eadd2eae0155544c29bb51ac9ce38a47 (patch) | |
| tree | 54a795f80b8659411945f92288604932c0cff01a /gnosis-test.el | |
| parent | 6863326411ef373977bb107c1b886864ee77aff5 (diff) | |
gnosis-test: Add gnosis-test-image
Diffstat (limited to 'gnosis-test.el')
| -rw-r--r-- | gnosis-test.el | 8 |
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 () |