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.")
(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)))
(defun mk--qda/questions-in-lang (country lst)
(mapcan #'cdr (remove nil (mapcar #'(lambda (x) (member country x)) lst))))
(defun mk--qda/questions-by-lang (lang category)
(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))