Sivas Export Format geändert

2026-06-29 17:08:37 +02:00
parent 3a3d22d103
commit 4863df7bac
4 changed files with 211 additions and 225 deletions
@@ -9,7 +9,11 @@


 ;; --- String fuer JSON escapen (Anfuehrungszeichen/Backslash) ---
+;; Konvertiert nicht-String-Werte (z.B. T, nil, Zahlen) defensiv in String.
 (defun csv:json-escape (s)
+  (if (not (= (type s) 'STR))
+    (setq s (if s (vl-princ-to-string s) ""))
+  )
  (setq s (vl-string-subst "\\\\" "\\" s))
  (vl-string-subst "\\\"" "\"" s)
 )