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)))
(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)))))
(let* ((questions (mk--qda/questions-by-category category))
(lang-questions (remove nil (mapcar #'(lambda (x) (member lang x)) questions))))
(remove lang (flatten-tree lang-questions))))
;; (mk--qda/questions-in-lang 'de (mk--qda/interview-cat 'sus))