branch: externals/tomelr
commit ae983711be15d95abd22ae4d7b8c116031de60a0
Author: Kaushal Modi <kaushal.m...@gmail.com>
Commit: Kaushal Modi <kaushal.m...@gmail.com>
fix: Auto-stringify symbols like 1.10.1
---
test/tscalar.el | 4 ++++
tomelr.el | 11 ++++++++++-
2 files changed, 14 insertions(+), 1 deletion(-)
diff --git a/test/tscalar.el b/test/tscalar.el
index e6ede6d85a..cb93af2c27 100644
--- a/test/tscalar.el
+++ b/test/tscalar.el
@@ -83,6 +83,8 @@
((string2 . "Roses are red\nViolets are blue")) ;Newline in
string
((string3 . "\"Hello!\"")) ;Quote in string
((string4 . "Line 1\n\nLine 3\n\n Line 5 with 2 space
indentation\n\nLine 7")) ;Blank lines in string
+ ((audio . "audio path with space.mp3")) ;String with
non-alphameric chars like space and period
+ ((version . 1.10.1))
))
(ref '(
"string1 = \"Roses are red\""
@@ -99,6 +101,8 @@ Line 3
Line 5 with 2 space indentation
Line 7\"\"\""
+ "audio = \"audio path with space.mp3\""
+ "version = \"1.10.1\""
))
out)
(dolist (el inp)
diff --git a/tomelr.el b/tomelr.el
index 3a93c750c8..35cfd1f142 100644
--- a/tomelr.el
+++ b/tomelr.el
@@ -201,6 +201,7 @@ Possible values of TYPE are `normal-key', `table-key',
`table-array-key', `keyword', or nil.
Return nil if OBJECT cannot be encoded as a TOML string."
+ ;; (message "[tomelr--print-stringlike DBG] object = %S" object)
(let ((sym-name (cond ((and type (stringp object))
;; https://toml.io/en/v1.0.0#keys
;; Bare keys may only contain ASCII letters, ASCII
digits,
@@ -216,7 +217,15 @@ Return nil if OBJECT cannot be encoded as a TOML string."
((keywordp object)
(string-trim-left (symbol-name object) ":"))
((symbolp object)
- (symbol-name object)))))
+ (let ((str (symbol-name object)))
+ (unless (or ;; RFC 3339 formatted date-time with
offset
+ (string-match-p
tomelr--date-time-regexp str)
+ (string-match-p "\\`[A-Za-z0-9_-]+\\'"
str))
+ ;; Wrap string in double-quotes if it's
+ ;; neither a date-time symbol not
+ ;; contains only A-Za-z0-9_- chars.
+ (setq str (format "\"%s\"" str)))
+ str)))))
(when (member type '(table-key table-array-key))
;; (message "[tomelr--print-stringlike DBG] %S is symbol, type = %S,
depth = %d"
;; object type tomelr--print-indentation-depth)
