From 0d5f576cac9c88bc4368be8b54c00aaa8ac7d8fc Mon Sep 17 00:00:00 2001
From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Tue, 24 Feb 2015 00:21:35 +0100
Subject: [PATCH] puppet-align

---
 bin/puppet-align | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 bin/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 $_;
+  }
+
+}}
-- 
2.47.3