Add function to filter data structure

Only works on flat structures right now.  This should be used and
let-bound to a variable when that variable is going to be used a lot.
Theoretically, it should be faster than traversing through the entire
data structure.  Think of this as a Emacs-local version of the API's own
filter.

1 files changed, 14 insertions, 0 deletions

diff --git a/tests.el b/tests.el
index c79cfc4..0c520d8 100644
--- a/tests.el
+++ b/tests.el
@@ -25,3 +25,17 @@
   "Test a method given a bad set of keywords"
   (should-error
    (stack-core-make-request "questions" '(()))))
+
+(ert-deftest test-data-filter-1 ()
+  "Test the meta-convenience function"
+  (should
+   (equal
+    '((1 . t) (2 . [1 2]) (3))
+    (stack-core-filter-data '((0 . 3)
+			      (1 . t)
+			      (a . five)
+			      (2 . [1 2])
+			      ("5" . bop)
+			      (3)
+			      (p . 4))
+			    '(1 2 3)))))