From 06260a4fbeacaf3e3bb1b4b8f225706b81effbf9 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Fri, 17 Jul 2015 11:19:02 +0100 Subject: [PATCH] bin/ansible-inventory: Smash `-' to `_' in dictionary key keywords. --- bin/ansible-inventory | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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)) -- 2.11.0