add me-focus-on-consistent-keys

moldable-emacs.el

@@ -1278,4 +1278,9 @@ For example, (me-get-in '(:a (:b (:c 1))) '(:a :b :c)) yields 1."
 
 ;; (me-plist-focus '(:a a :b b :c c) '(:a :c))
 
+(defun me-focus-on-consistent-keys (list-of-plist)
+  "Focus on common keys of LIST-OF-PLIST. For example ((:a 1 :b 1 :c 1) (:a 2 :c 2)) becomes ((:a 1 :c 1) (:a 2 :c 2)). This is useful for plotting."
+  (let ((keys (-reduce '-intersection (--map (-filter 'symbolp it) list-of-plist)))) ;; TODO
+    (--map (me-plist-focus it keys) list-of-plist)))
+
 (provide 'moldable-emacs)

molds/contrib.el

@@ -63,6 +63,7 @@ following in your lein project.clj
         (let ((table nil) ;; TODO maybe I can use org-table-convert-region to produce a org table, also maybe another mold
               (contents (buffer-substring-no-properties (point-min) (point-max))))
           (with-current-buffer buffername
+            (erase-buffer)
             (with-temp-file "/tmp/somefile.csv"
               (insert contents))
             (setq-local self table)
@@ -83,6 +84,7 @@ following in your lein project.clj
         (let ((table nil) ;; TODO maybe I can use org-table-convert-region to produce a org table, also maybe another mold
               (contents (buffer-substring-no-properties (point-min) (point-max))))
           (with-current-buffer buffername
+            (erase-buffer)
             (with-temp-file "/tmp/somefile.csv"
               (insert contents))
             (setq-local self table)

tests/moldable-emacs-test.el

@@ -58,3 +58,7 @@ some new contents
      (string=
       (plist-get (car me-available-molds) :key)
       "bla"))))
+
+(ert-deftest me-focus-on-consistent-keys_return-only-shared-key-values ()
+  (should
+   (equal (me-focus-on-consistent-keys '((:a 1 :b 1 :c 1) (:a 2 :c 2))) '((:a 1 :c 1) (:a 2 :c 2)))))