[elpa] externals/tomelr a25d952a17 77/84: feat: Auto-coerce string to integers

[ELPA Syncer]

branch: externals/tomelr
commit a25d952a17d344ac3d7396ae78a34e21b9ada14e
Author: Kaushal Modi <kaushal.modi@gmail.com>
Commit: Kaushal Modi <kaushal.modi@gmail.com>

    feat: Auto-coerce string to integers
---
 test/tcoerce.el | 38 ++++++++++++++++++++++++++++++++++++++
 tomelr.el       | 22 +++++++++++++++++++---
 2 files changed, 57 insertions(+), 3 deletions(-)

diff --git a/test/tcoerce.el b/test/tcoerce.el
index 4e10dd7714..975f8625b8 100644
--- a/test/tcoerce.el
+++ b/test/tcoerce.el
@@ -55,5 +55,43 @@
       (push (tomelr-encode el) out))
     (should (equal ref (nreverse out)))))
 
+;;;; Integer Coercing
+(ert-deftest test-coerce-integer-yes ()
+  (let ((tomelr-coerce-to-types '(integer))
+        (inp '(
+               ((key . "-123"))
+               ((key . "0"))
+               ((key . "123"))
+               ;; Number too large~
+               ;; (fixnump (string-to-number "10040216507682529280")) ;=> nil
+               ;; So this number won't be coerced.
+               ((key . "10040216507682529280"))
+               ))
+        (ref '(
+               "key = -123"
+               "key = 0"
+               "key = 123"
+               "key = \"10040216507682529280\""
+               ))
+        out)
+    (dolist (el inp)
+      (push (tomelr-encode el) out))
+    (should (equal ref (nreverse out)))))
+
+(ert-deftest test-coerce-integer-no ()
+  (let ((tomelr-coerce-to-types '())
+        (inp '(
+               ((key . "123"))
+               ((key . "10040216507682529280"))
+               ))
+        (ref '(
+               "key = \"123\""
+               "key = \"10040216507682529280\""
+               ))
+        out)
+    (dolist (el inp)
+      (push (tomelr-encode el) out))
+    (should (equal ref (nreverse out)))))
+
 
 (provide 'tcoerce)
diff --git a/tomelr.el b/tomelr.el
index 858da82d89..3a93c750c8 100644
--- a/tomelr.el
+++ b/tomelr.el
@@ -42,7 +42,7 @@
   "String used for a single indentation level during encoding.
 This value is repeated for each further nested element.")
 
-(defvar tomelr-coerce-to-types '(boolean)
+(defvar tomelr-coerce-to-types '(boolean integer)
   "List of TOML types to which the TOML strings will be attempted to be 
coerced.
 
 Valid symbols that can be present in this list: boolean, integer, float
@@ -240,8 +240,24 @@ Return nil if OBJECT cannot be encoded as a TOML string."
      ((equal type 'table-array-key)
       (princ (format "[[%s]]" (string-join tomelr--print-table-hierarchy 
"."))))
      ((stringp object)
-      ;; (message "[tomelr--print-stringlike DBG] %S is string" object)
-      (tomelr--print-string sym-name type))
+      (cond
+       ;; If it an integer that can be stored in the system as a
+       ;; fixnum.  For example, if `object' is "10040216507682529280"
+       ;; that needs more than 64 bits to be stored as a signed
+       ;; integer, it will be automatically stored as a float.  So
+       ;; (integerp (string-to-number object)) will return nil [or
+       ;; `fixnump' instead of `integerp' in Emacs 27 or newer]
+       ;; https://github.com/toml-lang/toml#integer
+       ;; Integer examples: 7, +7, -7, 7_000
+       ((and (member 'integer tomelr-coerce-to-types)
+             (string-match-p "\\`[+-]?[[:digit:]_]+\\'" object)
+             (if (functionp #'fixnump) ;`fixnump' and `bignump' get introduced 
in Emacs 27.x
+                 (fixnump (string-to-number object))
+               (integerp (string-to-number object)))) ;On older Emacsen, 
`integerp' behaved the same as the new `fixnump'
+        (princ object))
+       (t
+        ;; (message "[tomelr--print-stringlike DBG] %S is string" object)
+        (tomelr--print-string sym-name type))))
      ((keywordp object)
       ;; (message "[tomelr--print-stringlike DBG] %S is keyword" object)
       (tomelr--print-string sym-name 'keyword))