From 768ff14da986b2468b860c81508b6abba3b7fa6c Mon Sep 17 00:00:00 2001
From: Jake Rosoman <jkroso@gmail.com>
Date: Mon, 9 Mar 2020 23:06:06 +1100
Subject: [PATCH] make tabsize overwritable

---
 src/PrettyPrinting.jl | 1 +
 src/tile.jl           | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/PrettyPrinting.jl b/src/PrettyPrinting.jl
index db73557..0df566d 100644
--- a/src/PrettyPrinting.jl
+++ b/src/PrettyPrinting.jl
@@ -19,6 +19,7 @@ import Base:
 const DEFAULT_LINE_WIDTH = 79
 const DEFAULT_BREAK_COST = 1
 const DEFAULT_SPILL_COST = 2
+const TAB_SIZE = Ref{Int}(4)
 
 include("tile.jl")
 include("fit.jl")
diff --git a/src/tile.jl b/src/tile.jl
index df6b6f0..dc2521f 100644
--- a/src/tile.jl
+++ b/src/tile.jl
@@ -117,7 +117,7 @@ function list_layout(items::Vector{Layout};
                      par::Tuple{String,String}=("(", ")"),
                      sep::String=", ",
                      sep_brk=:end,  # :start, :end, :both, or :none
-                     tab::Int=4,
+                     tab::Int=TAB_SIZE[],
                      nobrk::Int=10)
     !isempty(items) || return literal("$(prefix)$(par[1])$(par[2])")
     head_lt = literal("$(prefix)$(par[1])")
@@ -144,7 +144,7 @@ function pair_layout(fst::Layout,
                      snd::Layout;
                      sep::String=" => ",
                      sep_brk=:end,  # :start, :end, :both, or :none
-                     tab::Int=4)
+                     tab::Int=TAB_SIZE[])
     sepc_lt = literal(sep)
     sepl_lt = literal(sep_brk == :start || sep_brk == :both ? lstrip(sep) : "")
     sepr_lt = literal(sep_brk == :end || sep_brk == :both ? rstrip(sep) : "")