From c0e64e4f383a1a64ff0cb7e40ac3256726fc82b6 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Fri, 12 Aug 2016 14:56:46 +0200
Subject: table-layout bump

---
 sequence.cabal | 2 +-
 sequence.nix   | 2 +-
 src/Main.hs    | 6 ++++--
 3 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/sequence.cabal b/sequence.cabal
index d47291e..05672e7 100644
--- a/sequence.cabal
+++ b/sequence.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                sequence
-version:             0.0.0
+version:             0.0.1
 -- synopsis:            
 -- description:         
 license:             MIT
diff --git a/sequence.nix b/sequence.nix
index 1dc252a..1e2dd40 100644
--- a/sequence.nix
+++ b/sequence.nix
@@ -6,7 +6,7 @@
 }:
 mkDerivation {
   pname = "sequence";
-  version = "0.0.0";
+  version = "0.0.1";
   src = ./.;
   isLibrary = false;
   isExecutable = true;
diff --git a/src/Main.hs b/src/Main.hs
index 605d66d..2d9f876 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -142,7 +142,8 @@ stateOutline = do
               toDesc x
             factionIndex id = fromJust $ elemIndex (view faction' $ faction id) factions
           colsAllG top . ([maybe "" show $ view seqVal seq] :) <$> mapM factionColumn [0..(length factions - 1)]
-      layoutTableToString <$> rowGs <*> pure (Just (roundStr round : factions, repeat def)) <*> pure (repeat def) <*> pure unicodeBoldHeaderS
+      -- layoutTableToString <$> rowGs <*> pure (Just (roundStr round : factions, repeat def)) <*> pure (repeat def) <*> pure unicodeBoldHeaderS
+      tableString <$> pure (repeat def) <*> pure unicodeBoldHeaderS <*> pure (titlesH $ roundStr round : factions) <*> rowGs
 
 focusNotes :: GameState -> String
 focusNotes st
@@ -431,7 +432,8 @@ dumpLog :: Sh GameState ()
 dumpLog = use gLog >>= mapMOf (each . _1) toName >>= shellPutStrLn . toTable
   where
     toTable :: Seq (String, String) -> String
-    toTable (map (rowG . toListOf both) . toList -> table) = layoutTableToString table (Just (["Entity", "String"], [def, def])) [def, def] unicodeBoldHeaderS
+    -- toTable (map (rowG . toListOf both) . toList -> table) = layoutTableToString table (Just (["Entity", "String"], [def, def])) [def, def] unicodeBoldHeaderS
+    toTable (map (rowG . toListOf both) . toList -> table) = tableString [def, def] unicodeBoldHeaderS (titlesH ["Entity", "String"]) table
 
 printVal :: Completable (Formula Stats) -> Sh GameState ()
 printVal = withArg $ \formula -> withFocus $ \focusId -> do
-- 
cgit v1.2.3