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 20:01:16 +02:00
parent 2b202cf3b3
commit e699c8e700
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
bundle/bundle--qda.el
View file

@ -96,11 +96,14 @@
(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/questions-from-category (category) (defun mk--qda/questions-by-category (category)
(cdr (assoc category mk--qda/interview-questions))) (cdr (assoc category mk--qda/interview-questions)))
(defun mk--qda/questions-in-lang (country lst) (defun mk--qda/questions-by-lang (lang category)
(mapcan #'cdr (remove nil (mapcar #'(lambda (x) (member country x)) lst)))) (mapcan #'cdr
(remove nil
(mapcar #'(lambda (x) (member lang x))
(funcall 'mk--qda/questions-by-category category)))))
;; (mk--qda/questions-in-lang 'de (mk--qda/interview-cat 'sus)) ;; (mk--qda/questions-in-lang 'de (mk--qda/interview-cat 'sus))