Merge pull request #30 from tychobrailleur/fix/s-drop-fix

Fix void function for s-drop
ag91 · Mar 23, 2024 · 41c3ee6 · 41c3ee6
2 parents c01772a + 582b5a0
commit 41c3ee6
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/moldable-emacs.el b/moldable-emacs.el
@@ -2138,7 +2138,7 @@ Optionally provide DEPTH to define the number of additions asterisks to prepend
   (let ((keys (me-keys (car plist))))
     (concat
      ;; header
-     (s-join "," (--map (s-drop 1 (symbol-name it)) keys))
+     (s-join "," (--map (s-chop-left 1 (symbol-name it)) keys))
      ;; entries
      "\n"
      (--> plist

diff --git a/tests/moldable-emacs-test.el b/tests/moldable-emacs-test.el
@@ -254,3 +254,10 @@ some new contents
                 (list :example (plist-get it :name) :success t :issues nil)
                 (plist-get mold :examples)))
              molds-with-examples)))))
+
+(ert-deftest me-plist-to-csv-string_returns-csv ()
+  (should
+   (string= (me-plist-to-csv-string '((:a "1" :b "2") (:a "3" :b "4")))
+            "a,b
+1,2
+3,4")))