From 2c7d57aff2df0ca9291726d7211bc2a6981034be Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Tue, 13 Sep 2022 23:02:30 +0200
Subject: [PATCH] Update qda

---
 bundle/bundle--qda.el | 52 +++++++++++++++++++++++--------------------
 1 file changed, 28 insertions(+), 24 deletions(-)

diff --git a/bundle/bundle--qda.el b/bundle/bundle--qda.el
index c479f32a..badd658f 100644
--- a/bundle/bundle--qda.el
+++ b/bundle/bundle--qda.el
@@ -72,32 +72,36 @@
      (en "How do you keep track of what you need to get done at work?")
      (de "Wie behalten Sie den Überblick darüber, was Sie bei der Arbeit zu erledigen haben?")
      (fr "Comment gardez-vous une trace de ce que vous avez à faire au travail")
-     (it "Come fa a tenere traccia di quello, che deve fare al lavoro?"))))
+     (it "Come fa a tenere traccia di quello, che deve fare al lavoro?"))
+    (sus
+     (en "I think that I would like to use this system frequently.")
+     (de "Ich denke, dass ich dieses System häufig nutzen möchte.")
+     (en "I found the system unnecessarily complex.")
+     (de "Ich fand das System unnötig komplex.")
+     (en "I thought the system was easy to use.")
+     (de "Ich fand das System einfach zu bedienen.")
+     (en "I think that I would need the support of a technical person to be able to use this system.")
+     (de "Ich glaube, ich bräuchte die Unterstützung einer technischen Person, um dieses System nutzen zu können.")
+     (en "I found the various functions in this system were well integrated.")
+     (de "Ich fand, dass die verschiedenen Funktionen in diesem System gut integriert waren.")
+     (en "I thought there was too much inconsistency in this system.")
+     (de "Ich fand, dass dieses System zu widersprüchlich war.")
+     (en "I would imagine that most people would learn to use this system very quickly.")
+     (de "Ich könnte mir vorstellen, dass die meisten Menschen sehr schnell lernen würden, mit diesem System umzugehen.")
+     (en "I found the system very cumbersome to use.")
+     (de "Ich fand das System sehr umständlich zu bedienen.")
+     (en "I felt very confident using the system.")
+     (de "Ich fühlte mich sehr sicher im Umgang mit dem System.")
+     (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."))))
 
-(defvar mk--qda/sus-questions
-  '((en "I think that I would like to use this system frequently.")
-    (de "Ich denke, dass ich dieses System häufig nutzen möchte.")
-    (en "I found the system unnecessarily complex.")
-    (de "Ich fand das System unnötig komplex.")
-    (en "I thought the system was easy to use.")
-    (de "Ich fand das System einfach zu bedienen.")
-    (en "I think that I would need the support of a technical person to be able to use this system.")
-    (de "Ich glaube, ich bräuchte die Unterstützung einer technischen Person, um dieses System nutzen zu können.")
-    (en "I found the various functions in this system were well integrated.")
-    (de "Ich fand, dass die verschiedenen Funktionen in diesem System gut integriert waren.")
-    (en "I thought there was too much inconsistency in this system.")
-    (de "Ich fand, dass dieses System zu widersprüchlich war.")
-    (en "I would imagine that most people would learn to use this system very quickly.")
-    (de "Ich könnte mir vorstellen, dass die meisten Menschen sehr schnell lernen würden, mit diesem System umzugehen.")
-    (en "I found the system very cumbersome to use.")
-    (de "Ich fand das System sehr umständlich zu bedienen.")
-    (en "I felt very confident using the system.")
-    (de "Ich fühlte mich sehr sicher im Umgang mit dem System.")
-    (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/sus-q-lang (lang)
-  (cl-remove-if-not (lambda (lst) (member lang lst)) mk--qda/sus-questions))
+(defun mk--qda/get-lang (country lst)
+  (mapcar #'cdr (remove nil (mapcar #'(lambda (x) (member country x)) lst))))
+
+;; (mk--qda/get-lang 'de (mk--qda/interview-cat 'sus))
 
 (use-package subed
   :config