From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Mon, 23 Feb 2015 23:21:35 +0000 (+0100)
Subject: puppet-align
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=0d5f576cac9c88bc4368be8b54c00aaa8ac7d8fc;p=nb.git

puppet-align
---

diff --git a/bin/puppet-align b/bin/puppet-align
new file mode 100755
index 00000000..fd648a75
--- /dev/null
+++ b/bin/puppet-align
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+$q = chr(39);
+
+while (<>) {
+  # No quoted vars
+  s/"(\$)\{([\w_:]+)\}"/$1$2/;
+  s/"(\$[\w_:]+)"/$1/;
+
+  # No double quote
+  s/"([_\w]+)?"/$q$1$q/;
+
+  # No quoted boolean
+  s/[$q"](true|false)[$q"]/$1/;
+
+  $len = $new if /(\S+)\s*=>/ and ($new = length($1))>$len;
+  push @l,$_;
+
+}
+
+END { for (@l) {
+
+  if (@_ = /^(\s*)(.*?)\s*=>\s*(.*)\s*$/) {
+    printf "%s%-${len}s => %s\n", @_;
+  } else  {
+    print $_;
+  }
+
+}}