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

Use a different process to flatten the table

Browse source
This commit is contained in:
Marcus Kammer 2022-09-14 22:07:19 +02:00
parent e699c8e700
commit ce73cc54fc
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
bundle/bundle--qda.el
View file

@ -100,10 +100,9 @@
(cdr (assoc category mk--qda/interview-questions))) (cdr (assoc category mk--qda/interview-questions)))
(defun mk--qda/questions-by-lang (lang category) (defun mk--qda/questions-by-lang (lang category)
(mapcan #'cdr (let* ((questions (mk--qda/questions-by-category category))
(remove nil (lang-questions (remove nil (mapcar #'(lambda (x) (member lang x)) questions))))
(mapcar #'(lambda (x) (member lang x)) (remove lang (flatten-tree lang-questions))))
(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))