marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update namespace

Browse source
This commit is contained in:
Marcus Kammer 2022-10-12 12:46:16 +02:00
parent 8aacd25b07
commit efe2918413
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
bundle/bundle--qda.el
View file

@ -1,21 +1,20 @@
;;; bundle--qda.el --- Data and functions for qualitative data analysis
(defvar mk--qda/explain-codes
(defvar qda:explain-codes
'((activity "the quality or state of being active. behavior or actions of a particular kind physical activity")
(job "a piece of work. something that has to be done (task)")
(objective "something toward which effort is directed")
(gain "something wanted or desirable")
(pain "mental or emotional distress or suffering")))
(defvar mk--qda/map-codes-to-questions
(defvar qda:map-codes-to-questions
'((activity . how)
(job . what)
(objective . why)
(gain . why)
(pain . what)))
(defvar mk--qda/interview-questions
;; A list of user interview questions.
(defvar qda:interview-questions
'((general
(en "What does your typical weekday look like?")
(de "Wie sieht Ihr typischer Arbeitstag aus?")
@ -96,11 +95,11 @@
(en "I needed to learn a lot of things before I could get going with this system.")
(de "Ich musste eine Menge Dinge lernen, bevor ich mit diesem System loslegen konnte."))))
(defun mk--qda/questions-by-category (category)
(cdr (assoc category mk--qda/interview-questions)))
(defun qda:questions-by-category (category)
(cdr (assoc category qda:interview-questions)))
(defun mk--qda/questions-by-lang (lang category)
(let* ((questions (mk--qda/questions-by-category category))
(defun qda:questions-by-lang (lang category)
(let* ((questions (qda:questions-by-category category))
(lang-questions (remove nil (mapcar #'(lambda (x) (member lang x)) questions))))
(remove lang (flatten-tree lang-questions))))