summaryrefslogtreecommitdiff
path: root/gnosis-dev.el
blob: dadbe040276066ecb1f33c089d0fb37324ff5f54 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101

;; Random functions to make development/testing of gnosis.el easier

;;; Code:

(require 'gnosis)

(defvar gnosis-dev-tags '("anatomy" "thoracic" "serratus-anterior"
			  "biochemistry" "informatics" "amino-acids"
			  "microbiology" "gram-positive" "gram-negative"
			  "fungi" "parasites"))

(defun gnosis-dev-random-items (list x)
  "Select X random items from LIST."
  (let ((shuffled-list (copy-sequence list))
        selected-items)
    (dotimes (_ x)
      (let* ((index (random (length shuffled-list)))
             (item (nth index shuffled-list)))
        (setq selected-items (cons item selected-items))
        (setq shuffled-list (append (butlast shuffled-list index) (nthcdr (1+ index) shuffled-list)))))
    selected-items))

(defun gnosis-dev-add-fields (&optional num deck)
  "Add random inputs to test."
  (let ((num (or num (string-to-number (read-string "Number of random inputs: "))))
	(testing-deck (or deck "testing")))
    (unless (gnosis-get 'name 'decks `(= name ,testing-deck))
      (gnosis-add-deck testing-deck))
    (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?"
			      :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))))
    (when (y-or-n-p "Add Basic type questions?")
      (dotimes (_ num)
	(gnosis-add-note--basic :deck testing-deck
				: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 (_ num)
	(gnosis-add-note--cloze :deck testing-deck
				: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 (_ num)
	(gnosis-add-note--cloze :deck testing-deck
				: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 ()
  "Begin/End testing env.

If ask nil, leave development env"
  (interactive)
  (let ((ask (y-or-n-p "Start development env?"))
	(testing-dir (concat gnosis-dir "/testing")))
    (if ask
	(progn (unless (file-exists-p testing-dir)
		 (make-directory testing-dir))
	       (setf gnosis-db (emacsql-sqlite (concat testing-dir "/testing.db")))
	       (setf gnosis-testing t)
	       (gnosis-db-init)
	       (gnosis-dev-add-fields)
	       (message "Adding testing values...")
	       (message "Development env is ready for testing."))
      (setf gnosis-db (emacsql-sqlite (concat (file-name-as-directory gnosis-dir) "gnosis.db")))
      (setf gnosis-testing nil)
      (message "Exited development env."))))

(defun gnosis-dev-retest ()
  "Redo database."
  (interactive)
  (dolist (table '(notes decks review review-log extras))
    (condition-case nil
	(gnosis--drop-table table)
      (error (message "No %s table to drop." table))))
  (gnosis-db-init)
  (gnosis-dev-test))

(provide 'gnosis-dev)
;;; gnosis-dev.el ends here