From ce73cc54fcc8086e206d4ea6dc85caa7915f4308 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Wed, 14 Sep 2022 22:07:19 +0200 Subject: [PATCH] Use a different process to flatten the table --- bundle/bundle--qda.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/bundle/bundle--qda.el b/bundle/bundle--qda.el index 67d80c8f..0d7507d1 100644 --- a/bundle/bundle--qda.el +++ b/bundle/bundle--qda.el @@ -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))