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-13 23:02:30 +02:00
parent fa6b2ed075
commit 2c7d57aff2
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 28 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
bundle/bundle--qda.el
View file

@ -72,10 +72,9 @@
(en "How do you keep track of what you need to get done at work?") (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?") (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") (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
(defvar mk--qda/sus-questions (en "I think that I would like to use this system frequently.")
'((en "I think that I would like to use this system frequently.")
(de "Ich denke, dass ich dieses System häufig nutzen möchte.") (de "Ich denke, dass ich dieses System häufig nutzen möchte.")
(en "I found the system unnecessarily complex.") (en "I found the system unnecessarily complex.")
(de "Ich fand das System unnötig komplex.") (de "Ich fand das System unnötig komplex.")
@ -94,10 +93,15 @@
(en "I felt very confident using the system.") (en "I felt very confident using the system.")
(de "Ich fühlte mich sehr sicher im Umgang mit dem 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.") (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."))) (de "Ich musste eine Menge Dinge lernen, bevor ich mit diesem System loslegen konnte."))))
(defun mk--qda/sus-q-lang (lang) (defun mk--qda/interview-cat (cat)
(cl-remove-if-not (lambda (lst) (member lang lst)) mk--qda/sus-questions)) (cdr (assoc cat mk--qda/interview-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 (use-package subed
:config :config