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

Update qda

Browse source
This commit is contained in:
Marcus Kammer 2022-09-14 17:44:52 +02:00
parent e7493de47d
commit 2b202cf3b3
1 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
bundle/bundle--qda.el
View file

@ -25,13 +25,7 @@
(de "Können Sie mir einen Überblick über Ihre Arbeit geben?")
(fr "Pouvez-vous me donner un aperçu de votre travail (exemple: activités quotidiennes) ?")
(it "Può darmi un visione generale del suo lavoro? (per exempio: attività giornaliere)"))
(job
(en "What’s the hardest part about [problem / task]?")
(de "Was ist das Schwierigste an [Problem/Aufgabe]?")
(en "How do you currently go about [problem / task]?")
(de "Wie gehen Sie derzeit [Problem/Aufgabe] an?")
(en "What is the biggest pain point related to [problem / task]?")
(de "Was ist der größte Schmerzpunkt im Zusammenhang mit [Problem/Aufgabe]?")
(activities
(en "What are your most important activities?")
(de "Was sind Ihre wichtigsten Aktivitäten?")
(fr "Quelles sont vos principales (importantes) activités ?")
@ -40,6 +34,13 @@
(de "Welche Aktivitäten verschwenden Ihre Zeit?")
(fr "Quelles sont les activités qui vous font perdre votre temps ou ?")
(it "Quali sono le attività che ti fanno sprecare tempo?"))
(job/pain
(en "What’s the hardest part about [problem / task]?")
(de "Was ist das Schwierigste an [Problem / Aufgabe]?")
(en "How do you currently go about [problem / task]?")
(de "Wie gehen Sie derzeit [Problem / Aufgabe] an?")
(en "What is the biggest pain point related to [problem / task]?")
(de "Was ist der größte Schmerzpunkt im Zusammenhang mit [Problem / Aufgabe]?"))
(demographic
(en "What is the highest degree or level of education you have completed?")
(de "Welches ist der höchste Abschluss, den Sie erworben haben?")
@ -95,13 +96,13 @@
(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/interview-cat (cat)
(cdr (assoc cat mk--qda/interview-questions)))
(defun mk--qda/questions-from-category (category)
(cdr (assoc category mk--qda/interview-questions)))
(defun mk--qda/get-lang (country lst)
(mapcar #'cdr (remove nil (mapcar #'(lambda (x) (member country x)) lst))))
(defun mk--qda/questions-in-lang (country lst)
(mapcan #'cdr (remove nil (mapcar #'(lambda (x) (member country x)) lst))))
;; (mk--qda/get-lang 'de (mk--qda/interview-cat 'sus))
;; (mk--qda/questions-in-lang 'de (mk--qda/interview-cat 'sus))
(use-package subed
:config