From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 17 Jul 2015 10:19:02 +0000 (+0100)
Subject: bin/ansible-inventory: Smash `-' to `_' in dictionary key keywords.
X-Git-Url: https://git.distorted.org.uk/~mdw/distorted-ansible/commitdiff_plain/06260a4fbeacaf3e3bb1b4b8f225706b81effbf9

bin/ansible-inventory: Smash `-' to `_' in dictionary key keywords.
---

diff --git a/bin/ansible-inventory b/bin/ansible-inventory
index 25ad961..6964d2e 100755
--- a/bin/ansible-inventory
+++ b/bin/ansible-inventory
@@ -61,7 +61,15 @@
   (print-json-itemstart)
   (pprint-logical-block (*standard-output* nil)
     (let ((*print-json-comma* nil))
-      (print-json-simple label))
+      (print-json-simple (if (not (keywordp label))
+			     label
+			     (with-output-to-string (out)
+			       (let ((labname (symbol-name label)))
+				 (dotimes (i (length labname))
+				   (let ((ch (char labname i)))
+				     (write-char (if (char= ch #\-) #\_
+						     (char-downcase ch))
+						 out))))))))
     (princ ": ")
     (pprint-newline :miser)
     (let ((*print-json-comma* nil))