penny-lib 0.4.0.0 → 0.6.0.0

raw patch · 118 files changed

+11039/−8488 lines, 118 filesdep +bytestringdep +cerealdep +monad-loopsdep −Decimaldep ~matchersdep ~multiargdep ~splitPVP ok

version bump matches the API change (PVP)

Dependencies added: bytestring, cereal, monad-loops, pretty-show, strict, terminfo

Dependencies removed: Decimal

Dependency ranges changed: matchers, multiarg, split, time, transformers

API changes (from Hackage documentation)

Files

• LICENSE +5/−4
• Penny.hs +423/−69
• Penny/Brenner.hs +276/−0
• Penny/Brenner/Amex.hs +121/−0
• Penny/Brenner/BofA.hs +212/−0
• Penny/Brenner/Clear.hs +186/−0
• Penny/Brenner/Database.hs +51/−0
• Penny/Brenner/Import.hs +134/−0
• Penny/Brenner/Merge.hs +274/−0
• Penny/Brenner/Print.hs +71/−0
• Penny/Brenner/Types.hs +287/−0
• Penny/Brenner/Util.hs +97/−0
• Penny/Cabin.hs +5/−13
• Penny/Cabin/Allocate.hs +0/−72
• Penny/Cabin/Balance.hs +17/−103
• Penny/Cabin/Balance/Convert.hs +334/−0
• Penny/Cabin/Balance/Convert/Chunker.hs +227/−0
• Penny/Cabin/Balance/Convert/Options.hs +44/−0
• Penny/Cabin/Balance/Convert/Parser.hs +94/−0
• Penny/Cabin/Balance/Help.hs +0/−34
• Penny/Cabin/Balance/MultiCommodity.hs +173/−0
• Penny/Cabin/Balance/MultiCommodity/Chunker.hs +212/−0
• Penny/Cabin/Balance/MultiCommodity/Parser.hs +35/−0
• Penny/Cabin/Balance/Parser.hs +0/−156
• Penny/Cabin/Balance/Tree.hs +0/−468
• Penny/Cabin/Balance/Util.hs +228/−0
• Penny/Cabin/Chunk.hs +2468/−2407
• Penny/Cabin/Colors.hs +0/−50
• Penny/Cabin/Colors/DarkBackground.hs +0/−38
• Penny/Cabin/Colors/LightBackground.hs +0/−35
• Penny/Cabin/Interface.hs +37/−34
• Penny/Cabin/Meta.hs +27/−4
• Penny/Cabin/Options.hs +7/−24
• Penny/Cabin/Parsers.hs +24/−0
• Penny/Cabin/Posts.hs +276/−120
• Penny/Cabin/Posts/Allocate.hs +0/−65
• Penny/Cabin/Posts/Allocated.hs +208/−131
• Penny/Cabin/Posts/BottomRows.hs +70/−66
• Penny/Cabin/Posts/Chunk.hs +38/−49
• Penny/Cabin/Posts/Fields.hs +38/−5
• Penny/Cabin/Posts/Growers.hs +123/−182
• Penny/Cabin/Posts/Help.hs +0/−66
• Penny/Cabin/Posts/Meta.hs +13/−14
• Penny/Cabin/Posts/Parser.hs +127/−243
• Penny/Cabin/Posts/Spacers.hs +4/−5
• Penny/Cabin/Row.hs +51/−22
• Penny/Cabin/Scheme.hs +145/−0
• Penny/Cabin/Scheme/Schemes.hs +89/−0
• Penny/Copper.hs +187/−102
• Penny/Copper/Account.hs +0/−131
• Penny/Copper/Amount.hs +0/−96
• Penny/Copper/Comments.hs +0/−35
• Penny/Copper/Commodity.hs +0/−187
• Penny/Copper/DateTime.hs +0/−138
• Penny/Copper/Entry.hs +0/−43
• Penny/Copper/Flag.hs +0/−30
• Penny/Copper/Item.hs +0/−68
• Penny/Copper/Memos/Posting.hs +0/−39
• Penny/Copper/Memos/Transaction.hs +0/−45
• Penny/Copper/Number.hs +0/−29
• Penny/Copper/Parsec.hs +418/−0
• Penny/Copper/Payees.hs +0/−87
• Penny/Copper/Posting.hs +0/−126
• Penny/Copper/Price.hs +0/−97
• Penny/Copper/Qty.hs +0/−283
• Penny/Copper/Render.hs +523/−0
• Penny/Copper/Tags.hs +0/−37
• Penny/Copper/Terminals.hs +145/−0
• Penny/Copper/TopLine.hs +0/−59
• Penny/Copper/Transaction.hs +0/−75
• Penny/Copper/Types.hs +59/−0
• Penny/Copper/Util.hs +0/−150
• Penny/Liberty.hs +238/−341
• Penny/Liberty/Expressions.hs +3/−3
• Penny/Liberty/Expressions/Infix.hs +3/−3
• Penny/Liberty/Expressions/RPN.hs +2/−2
• Penny/Lincoln.hs +94/−81
• Penny/Lincoln/Balance.hs +14/−12
• Penny/Lincoln/Bits.hs +60/−38
• Penny/Lincoln/Bits/Account.hs +0/−12
• Penny/Lincoln/Bits/Amount.hs +0/−8
• Penny/Lincoln/Bits/Commodity.hs +0/−19
• Penny/Lincoln/Bits/DateTime.hs +105/−27
• Penny/Lincoln/Bits/DrCr.hs +0/−9
• Penny/Lincoln/Bits/Entry.hs +0/−9
• Penny/Lincoln/Bits/Flag.hs +0/−7
• Penny/Lincoln/Bits/Memo.hs +0/−9
• Penny/Lincoln/Bits/Number.hs +0/−6
• Penny/Lincoln/Bits/Open.hs +124/−0
• Penny/Lincoln/Bits/Payee.hs +0/−7
• Penny/Lincoln/Bits/Price.hs +6/−7
• Penny/Lincoln/Bits/PricePoint.hs +0/−10
• Penny/Lincoln/Bits/Qty.hs +264/−37
• Penny/Lincoln/Bits/Tags.hs +0/−10
• Penny/Lincoln/Builders.hs +8/−41
• Penny/Lincoln/Family.hs +6/−4
• Penny/Lincoln/Family/Family.hs +47/−21
• Penny/Lincoln/HasText.hs +11/−75
• Penny/Lincoln/Matchers.hs +3/−3
• Penny/Lincoln/Meta.hs +0/−71
• Penny/Lincoln/NestedMap.hs +12/−5
• Penny/Lincoln/Predicates.hs +90/−31
• Penny/Lincoln/PriceDb.hs +29/−70
• Penny/Lincoln/Queries.hs +26/−26
• Penny/Lincoln/Serial.hs +45/−92
• Penny/Lincoln/TextNonEmpty.hs +0/−25
• Penny/Lincoln/Transaction.hs +319/−99
• Penny/Lincoln/Transaction/Unverified.hs +123/−19
• Penny/Shield.hs +6/−7
• Penny/Zinc.hs +706/−19
• Penny/Zinc/Error.hs +0/−11
• Penny/Zinc/Help.hs +0/−125
• Penny/Zinc/Parser.hs +0/−86
• Penny/Zinc/Parser/Defaults.hs +0/−29
• Penny/Zinc/Parser/Filter.hs +0/−265
• Penny/Zinc/Parser/Ledgers.hs +0/−79
• Penny/Zinc/Parser/Report.hs +0/−30
• penny-lib.cabal +112/−262

@@ -1,4 +1,4 @@-Copyright (c) 2011-2012 Omari Norman.+Copyright (c) 2011-2013 Omari Norman. All rights reserved.  Redistribution and use in source and binary forms, with or without@@ -13,9 +13,10 @@     the documentation and/or other materials provided with the     distribution. -    * Neither the name of Omari Norman nor the names of its-    contributors may be used to endorse or promote products derived-    from this software without specific prior written permission.+    * Neither the name of Omari Norman nor the names of contributors+    to this software may be used to endorse or promote products+    derived from this software without specific prior written+    permission.  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT

@@ -1,88 +1,442 @@-{- | Penny - double-entry accounting system+-- | Penny - extensible double-entry accounting system -Penny is organized into a tree of modules, each with a name. Check out-the links for details on each component of Penny.+module Penny+  ( -- * Building a custom Penny binary -"Penny.Cabin" - Penny reports. Depends on Lincoln and Liberty.+    -- | Everything you need to create a custom Penny program is+    -- available by importing only this module.+    Defaults(..)+  , Z.Matcher(..) -"Penny.Copper" - the Penny parser. Depends on Lincoln.+  -- ** Color schemes+  , E.Scheme(..)+  , E.TextSpecs+  , E.Labels(..)+  , E.EvenAndOdd(..)+  , Sw.switchForeground+  , Sw.switchBackground+  , module Penny.Cabin.Chunk -"Penny.Liberty" - Penny command line parser helpers. Depends on-Lincoln and Copper.+  -- ** Sorting+  , Z.SortField(..)+  , CabP.SortOrder(..) -"Penny.Lincoln" - the Penny core. Depends on no other Penny components.+  -- ** Formatting quantities+  , defaultQtyFormat -"Penny.Shield" the Penny runtime environment+  -- ** Convert report options+  , Target(..)+  , CP.SortBy(..) -"Penny.Zinc" - the Penny command-line interface. Depends on Cabin,-Copper, Liberty, and Lincoln.+  -- ** Postings report options+  , M.Box+  , Fields(..)+  , Spacers(..)+  , widthFromRuntime+  , Ps.yearMonthDay+  , Ps.qtyAsIs+  , Ps.balanceAsIs -The dependencies are represented as a dot file in doc/dependencies.dot-in the Penny git repository.+  -- ** Runtime+  , S.Runtime+  , S.environment -This module exports a few functions that are useful for building a-simple command line program with default options. To make anything-more complicated you may need to import modules from deeper down-within the hierarchy, but for a program based on the defaults only you-should be able to import this module only (and nothing else).+  -- ** Text+  , X.Text+  , X.pack --}-module Penny (-  -- * Default time zone-  Copper.DefaultTimeZone (DefaultTimeZone)-  , Copper.utcDefault-  , minsToDefaultTimeZone-    -    -- * Radix and grouping characters-  , Copper.RadGroup-  , Copper.periodComma-  , Copper.periodSpace-  , Copper.commaPeriod-  , Copper.commaSpace-    -    -- * Reports-  , Cabin.allReportsWithDefaults-    -    -- * Parser defaults-  , Z.T(..)-  , Z.defaultFromRuntime-    -    -- * Main function-  , defaultPenny-  , customPenny-    -    -- * Other useful stuff - for custom reports+  -- ** Main function+  , runPenny++    -- * Developer overview++    -- | Penny is organized into a tree of modules, each with a+    -- name. Check out the links for details on each component of+    -- Penny.+    --+    -- "Penny.Brenner" - Penny financial institution transaction+    -- handling. Depends on Lincoln and Copper.+    --+    -- "Penny.Cabin" - Penny reports. Depends on Lincoln and Liberty.+    --+    -- "Penny.Copper" - the Penny parser. Depends on Lincoln.+    --+    -- "Penny.Liberty" - Penny command line parser helpers. Depends on+    -- Lincoln and Copper.+    --+    -- "Penny.Lincoln" - the Penny core. Depends on no other Penny+    -- components.+    --+    -- "Penny.Shield" the Penny runtime environment. Depends on+    -- Lincoln.+    --+    -- "Penny.Zinc" - the Penny command-line interface. Depends on+    -- Cabin, Copper, Liberty, and Lincoln.+    --+    -- The dependencies are represented as a dot file in+    -- bin/doc/dependencies.dot in the Penny git repository.   ) where -import qualified Penny.Cabin as Cabin-import qualified Penny.Copper as Copper+import qualified Data.Text as X+import qualified Penny.Cabin.Balance.Convert as Conv+import qualified Penny.Cabin.Balance.Convert.Parser as CP+import qualified Penny.Cabin.Balance.Convert.Options as ConvOpts+import qualified Penny.Cabin.Balance.MultiCommodity as MC+import qualified Penny.Cabin.Balance.MultiCommodity.Parser as MP+import Penny.Cabin.Chunk+import qualified Penny.Cabin.Chunk.Switch as Sw+import qualified Penny.Cabin.Interface as I+import qualified Penny.Cabin.Options as CO+import qualified Penny.Cabin.Parsers as CabP+import qualified Penny.Cabin.Posts as Ps+import qualified Penny.Cabin.Posts.Fields as PF+import qualified Penny.Cabin.Posts.Spacers as PS+import qualified Penny.Cabin.Posts.Meta as M+import qualified Penny.Cabin.Scheme as E import qualified Penny.Lincoln as L-import qualified Penny.Shield as S import qualified Penny.Zinc as Z+import qualified Penny.Shield as S+import qualified Text.Matchers.Text as Mr --- | Use to make a DefaultTimeZone based on the number of minutes the--- time zone is offset from UTC. Make sure the argument you supply is--- between (-840) and 840; otherwise your program will crash at--- runtime.-minsToDefaultTimeZone :: Int -> Copper.DefaultTimeZone-minsToDefaultTimeZone i = case L.minsToOffset i of-  Nothing -> error $ "penny: error: minutes out of range of "-             ++ "allowed values for time zone"-  Just tzo -> Copper.DefaultTimeZone tzo+-- | This type contains settings for all the reports, as well as+-- default settings for the global options. Some of these can be+-- overridden on the command line.+data Defaults = Defaults+  { caseSensitive :: Bool+    -- ^ Whether the matcher is case sensitive by default -defaultPenny :: Copper.DefaultTimeZone -> Copper.RadGroup -> IO ()-defaultPenny dtz rg = do-  rt <- S.runtime-  let df = Z.defaultFromRuntime dtz rg-      rs = Cabin.allReportsWithDefaults dtz rg-  Z.runPenny rt dtz rg df rs+  , matcher :: Z.Matcher+    -- ^ Which matcher to use -customPenny ::-  Copper.DefaultTimeZone-  -> Copper.RadGroup-  -> (S.Runtime -> Z.T)-  -> [Cabin.Report]+  , colorToFile :: Bool+    -- ^ Use colors when standard output is not a terminal?++  , defaultScheme :: Maybe E.Scheme+    -- ^ Default color scheme. If Nothing, there is no default color+    -- scheme. If there is no default color scheme and the user does+    -- not pick one on the command line, no colors will be used.++  , additionalSchemes :: [E.Scheme]+    -- ^ Additional color schemes the user can pick from on the+    -- command line.++  , sorter :: [(Z.SortField, CabP.SortOrder)]+    -- ^ Postings are sorted in this order by default. For example, if+    -- the first pair is (Date, Ascending), then postings are first+    -- sorted by date in ascending order. If the second pair is+    -- (Payee, Ascending), then postings with the same date are then+    -- sorted by payee.+    --+    -- If this list is empty, then by default postings are left in the+    -- same order as they appear in the ledger files.++  , balanceFormat :: L.Commodity -> L.Qty -> X.Text+    -- ^ How to format balances in the balance report. Change this+    -- function if, for example, you want to allow for digit grouping.++  , balanceShowZeroBalances :: Bool+    -- ^ Show zero balances in the balance report? If True, show them;+    -- if False, hide them.++  , balanceOrder :: CabP.SortOrder+    -- ^ Whether to sort the accounts in ascending or descending order+    -- by account name in the balance report.++  , convertShowZeroBalances :: Bool+    -- ^ Show zero balances in the convert report? If True, show them;+    -- if False, hide them.++  , convertTarget :: Target+    -- ^ The commodity to which to convert the commodities in the+    -- convert report.++  , convertOrder :: CabP.SortOrder+    -- ^ Sort the convert report in ascending or descending order.++  , convertSortBy :: CP.SortBy+    -- ^ Sort by account or by quantity in the convert report.++  , convertFormat :: L.Commodity -> L.Qty -> X.Text+    -- ^ How to format balances in the convert report. For instance,+    -- this function might perform digit grouping.++  , postingsFields :: Fields Bool+    -- ^ Fields to show by default in the postings report.++  , postingsWidth :: Int+    -- ^ The postings report is roughly this wide by+    -- default. Typically this will be as wide as your terminal.++  , postingsShowZeroBalances :: Bool+    -- ^ Show zero balances in the postings report? If True, show+    -- them; if False, hide them.++  , postingsDateFormat :: M.Box -> X.Text+    -- ^ How to format dates in the postings report.++  , postingsQtyFormat :: M.Box -> X.Text+    -- ^ How to format quantities in the balance report. This function+    -- is used when showing the quantity for the posting itself, and+    -- not the quantity for the totals columns (for that, see+    -- postingsBalanceFormat.) For example this function might perform+    -- digit grouping.++  , postingsBalanceFormat :: L.Commodity -> L.Qty -> X.Text+    -- ^ How to format balance totals in the postings report.++  , postingsSubAccountLength :: Int+    -- ^ Account names in the postings report are shortened if+    -- necessary in order to help the report fit within the allotted+    -- width (see postingsWidth). Account names are only shortened as+    -- much as is necessary for them to fit; however, each sub-account+    -- name will not be shortened any more than the amount given here.++  , postingsPayeeAllocation :: Int+    -- ^ postingsPayeeAllocation and postingsAccountAllocation+    -- determine how much space is allotted to the payee and account+    -- fields in the postings report. These fields are variable+    -- width. After space for most other fields is allotted, space is+    -- allotted for these two fields. The two fields divide the space+    -- proportionally depending on postingsPayeeAllocation and+    -- postingsAccountAllocation. For example, if+    -- postingsPayeeAllocation is 60 and postingsAccountAllocation is+    -- 40, then the payee field gets 60 percent of the leftover space+    -- and the account field gets 40 percent of the leftover space.+    --+    -- Both postingsPayeeAllocation and postingsAccountAllocation+    -- must be positive integers; if either one is less than 1, your+    -- program will crash at runtime.++  , postingsAccountAllocation :: Int+    -- ^ See postingsPayeeAllocation above for an explanation++  , postingsSpacers :: Spacers Int+    -- ^ Determines the number of spaces that appears to the right of+    -- each named field; for example, sPayee indicates how many spaces+    -- will appear to the right of the payee field. Each field of the+    -- Spacers should be a non-negative integer (although currently+    -- the absolute value of the field is taken.)+  }++-- | Creates an IO action that you can use for the main function.+runPenny+  :: (S.Runtime -> Defaults)+     -- ^ runPenny will apply this function to the Runtime. This way+     -- the defaults you use can vary depending on environment+     -- variables, the terminal type, the date, etc.   -> IO ()-customPenny dtz rg gd rs = do+runPenny getDefaults = do   rt <- S.runtime-  Z.runPenny rt dtz rg gd rs+  let df = getDefaults rt+      rs = allReports df+  Z.runZinc (toZincDefaults df) rt rs++-- | The commodity to which to convert the commodities in the convert+-- report.+data Target+  = AutoTarget+    -- ^ Selects a target commodity automatically, based on which+    -- commodity is the most common target commodity in the prices in+    -- your ledger files. If there is a tie for most common target+    -- commodity, the target that appears later in your ledger files+    -- is used.+  | ManualTarget String+    -- ^ Always uses the commodity named by the string given.+  deriving Show++-- | Gets the current screen width from the runtime. If the COLUMNS+-- environment variable is not set, uses 80.+widthFromRuntime :: S.Runtime -> Int+widthFromRuntime rt = case S.screenWidth rt of+  Nothing -> 80+  Just sw -> S.unScreenWidth sw++convTarget :: Target -> CP.Target+convTarget t = case t of+  AutoTarget -> CP.AutoTarget+  ManualTarget s -> CP.ManualTarget . L.To . L.Commodity . X.pack $ s++allReports+  :: Defaults+  -> [I.Report]+allReports df =+  let bd = toBalanceDefaults df+      cd = toConvertDefaults df+      pd = toPostingsDefaults df+  in [ Ps.zincReport pd+     , MC.parseReport (balanceFormat df) bd+     , Conv.cmdLineReport cd+     ]++toZincDefaults :: Defaults -> Z.Defaults+toZincDefaults d = Z.Defaults+  { Z.sensitive =+      if caseSensitive d then Mr.Sensitive else Mr.Insensitive+  , Z.matcher = matcher d+  , Z.colorToFile = Z.ColorToFile . colorToFile $ d+  , Z.defaultScheme = defaultScheme d+  , Z.moreSchemes = additionalSchemes d+  , Z.sorter = sorter d+  }++toBalanceDefaults :: Defaults -> MP.ParseOpts+toBalanceDefaults d = MP.ParseOpts+  { MP.showZeroBalances =+      CO.ShowZeroBalances . balanceShowZeroBalances $ d+  , MP.order = balanceOrder d+  , MP.needsHelp = False+  }++toConvertDefaults :: Defaults -> ConvOpts.DefaultOpts+toConvertDefaults d = ConvOpts.DefaultOpts+  { ConvOpts.showZeroBalances =+      CO.ShowZeroBalances . convertShowZeroBalances $ d+  , ConvOpts.target = convTarget . convertTarget $ d+  , ConvOpts.sortOrder = convertOrder d+  , ConvOpts.sortBy = convertSortBy d+  , ConvOpts.format = convertFormat d+  }++toPostingsDefaults :: Defaults -> Ps.ZincOpts+toPostingsDefaults d = Ps.ZincOpts+  { Ps.fields = convFields . postingsFields $ d+  , Ps.width = Ps.ReportWidth . postingsWidth $ d+  , Ps.showZeroBalances =+      CO.ShowZeroBalances . postingsShowZeroBalances $ d+  , Ps.dateFormat = postingsDateFormat d+  , Ps.qtyFormat = postingsQtyFormat d+  , Ps.balanceFormat = postingsBalanceFormat d+  , Ps.subAccountLength =+      Ps.SubAccountLength . postingsSubAccountLength $ d+  , Ps.payeeAllocation =+      Ps.alloc . postingsPayeeAllocation $ d+  , Ps.accountAllocation =+      Ps.alloc . postingsAccountAllocation $ d+  , Ps.spacers = convSpacers . postingsSpacers $ d+  }++defaultQtyFormat :: L.Qty -> X.Text+defaultQtyFormat = X.pack . show++data Spacers a = Spacers+  { sGlobalTransaction :: a+  , sRevGlobalTransaction :: a+  , sGlobalPosting :: a+  , sRevGlobalPosting :: a+  , sFileTransaction :: a+  , sRevFileTransaction :: a+  , sFilePosting :: a+  , sRevFilePosting :: a+  , sFiltered :: a+  , sRevFiltered :: a+  , sSorted :: a+  , sRevSorted :: a+  , sVisible :: a+  , sRevVisible :: a+  , sLineNum :: a+  , sDate :: a+  , sFlag :: a+  , sNumber :: a+  , sPayee :: a+  , sAccount :: a+  , sPostingDrCr :: a+  , sPostingCmdty :: a+  , sPostingQty :: a+  , sTotalDrCr :: a+  , sTotalCmdty :: a+  } deriving (Show, Eq)++data Fields a = Fields+  { fGlobalTransaction :: a+  , fRevGlobalTransaction :: a+  , fGlobalPosting :: a+  , fRevGlobalPosting :: a+  , fFileTransaction :: a+  , fRevFileTransaction :: a+  , fFilePosting :: a+  , fRevFilePosting :: a+  , fFiltered :: a+  , fRevFiltered :: a+  , fSorted :: a+  , fRevSorted :: a+  , fVisible :: a+  , fRevVisible :: a+  , fLineNum :: a+  , fDate :: a+  , fFlag :: a+  , fNumber :: a+  , fPayee :: a+  , fAccount :: a+  , fPostingDrCr :: a+  , fPostingCmdty :: a+  , fPostingQty :: a+  , fTotalDrCr :: a+  , fTotalCmdty :: a+  , fTotalQty :: a+  , fTags :: a+  , fMemo :: a+  , fFilename :: a+  } deriving (Show, Eq)++convSpacers :: Spacers a -> PS.Spacers a+convSpacers s = PS.Spacers+  { PS.globalTransaction = sGlobalTransaction s+  , PS.revGlobalTransaction = sRevGlobalTransaction s+  , PS.globalPosting = sGlobalPosting s+  , PS.revGlobalPosting = sRevGlobalPosting s+  , PS.fileTransaction = sFileTransaction s+  , PS.revFileTransaction = sRevFileTransaction s+  , PS.filePosting = sFilePosting s+  , PS.revFilePosting = sRevFilePosting s+  , PS.filtered = sFiltered s+  , PS.revFiltered = sRevFiltered s+  , PS.sorted = sSorted s+  , PS.revSorted = sRevSorted s+  , PS.visible = sVisible s+  , PS.revVisible = sRevVisible s+  , PS.lineNum = sLineNum s+  , PS.date = sDate s+  , PS.flag = sFlag s+  , PS.number = sNumber s+  , PS.payee = sPayee s+  , PS.account = sAccount s+  , PS.postingDrCr = sPostingDrCr s+  , PS.postingCmdty = sPostingCmdty s+  , PS.postingQty = sPostingQty s+  , PS.totalDrCr = sTotalDrCr s+  , PS.totalCmdty = sTotalCmdty s+  }++convFields :: Fields a -> PF.Fields a+convFields f = PF.Fields+  { PF.globalTransaction = fGlobalTransaction f+  , PF.revGlobalTransaction = fRevGlobalTransaction f+  , PF.globalPosting = fGlobalPosting f+  , PF.revGlobalPosting = fRevGlobalPosting f+  , PF.fileTransaction = fFileTransaction f+  , PF.revFileTransaction = fRevFileTransaction f+  , PF.filePosting = fFilePosting f+  , PF.revFilePosting = fRevFilePosting f+  , PF.filtered = fFiltered f+  , PF.revFiltered = fRevFiltered f+  , PF.sorted = fSorted f+  , PF.revSorted = fRevSorted f+  , PF.visible = fVisible f+  , PF.revVisible = fRevVisible f+  , PF.lineNum = fLineNum f+  , PF.date = fDate f+  , PF.flag = fFlag f+  , PF.number = fNumber f+  , PF.payee = fPayee f+  , PF.account = fAccount f+  , PF.postingDrCr = fPostingDrCr f+  , PF.postingCmdty = fPostingCmdty f+  , PF.postingQty = fPostingQty f+  , PF.totalDrCr = fTotalDrCr f+  , PF.totalCmdty = fTotalCmdty f+  , PF.totalQty = fTotalQty f+  , PF.tags = fTags f+  , PF.memo = fMemo f+  , PF.filename = fFilename f+  }+

@@ -0,0 +1,276 @@+-- | Brenner - Penny financial institution interfaces+--+-- Brenner provides a uniform way to interact with downloaded data+-- from financial Given a parser, Brenner will import the transactions+-- and store them in a database. From there it is easy to merge the+-- transactions (without duplicates) into a ledger file, and then to+-- clear transactions from statements in an automated fashion.+module Penny.Brenner+  ( FitAcct(..)+  , Config(..)+  , R.GroupSpecs(..)+  , R.GroupSpec(..)+  , Y.Translator(..)+  , L.Side(..)+  , L.SpaceBetween(..)+  , brennerMain+  ) where++import qualified Penny.Brenner.Types as Y+import Data.Maybe (mapMaybe)+import qualified Data.Text as X+import qualified Penny.Lincoln as L+import qualified Penny.Lincoln.Builders as Bd+import qualified Penny.Copper.Render as R+import qualified Penny.Brenner.Clear as C+import qualified Penny.Brenner.Database as D+import qualified Penny.Brenner.Import as I+import qualified Penny.Brenner.Merge as M+import qualified Penny.Brenner.Print as P+import Control.Applicative ((<*>))+import qualified System.Console.MultiArg as MA+import qualified Control.Monad.Exception.Synchronous as Ex+import System.Exit (exitFailure)+import qualified System.IO as IO++brennerMain :: Config -> IO ()+brennerMain cf = do+  as <- MA.getArgs+  pr <- MA.getProgName+  let cf' = convertConfig cf+      r = MA.modes globalOpts (preProcessor cf') whatMode as+  processParseResult pr cf' r++data Arg+  = AHelp+  | AFitAcct String+  deriving (Eq, Show)++toFitAcctOpt :: Arg -> Maybe String+toFitAcctOpt a = case a of { AFitAcct s -> Just s; _ -> Nothing }++globalOpts :: [MA.OptSpec Arg]+globalOpts =+  [ MA.OptSpec ["help"] "h" (MA.NoArg AHelp)+  , MA.OptSpec ["fit-account"] "f" (MA.OneArg AFitAcct)+  ]++data PreProc+  = NeedsHelp+  | DoIt (Maybe Y.FitAcct)++preProcessor :: Y.Config -> [Arg] -> Ex.Exceptional String PreProc+preProcessor cf as =+  if any (== AHelp) as+  then return NeedsHelp+  else do+    let cardOpt = case mapMaybe toFitAcctOpt as of+          [] -> Nothing+          xs -> Just . last $ xs+    card <- case cardOpt of+      Nothing -> return $ Y.defaultFitAcct cf+      Just o ->+        let pdct (Y.Name n, _) = n == X.pack o+        in case filter pdct (Y.moreFitAccts cf) of+          [] -> Ex.throw $ "financial institution account "+                           ++ o ++ " not configured."+          (_, c):[] -> return $ Just c+          _ -> Ex.throw $ "more than one financial institution account "+                          ++ "named " ++ o ++ " configured."+    return $ DoIt card++whatMode+  :: PreProc+  -> Either (String -> String)+      [MA.Mode (Ex.Exceptional String (IO ()))]+whatMode pp = case pp of+  NeedsHelp -> Left id+  DoIt mayCd ->+    Right $ [C.mode, I.mode, M.mode, P.mode, D.mode] <*> [mayCd]+++processParseResult+  :: String+  -- ^ Program name+  -> Y.Config++  -> Ex.Exceptional MA.Error+      (a, Either b (Ex.Exceptional String (IO ())))+  -> IO ()+processParseResult pr cf ex =+  case ex of+    Ex.Exception err -> do+      IO.hPutStr IO.stderr $ MA.formatError pr err+      exitFailure+    Ex.Success g -> processResult pr cf g+++processResult+  :: String+  -- ^ Program name++  -> Y.Config+  -> (a, Either b (Ex.Exceptional String (IO ())))+  -> IO ()+processResult pr cf (_, ei) =+  case ei of+    Left _ -> putStr (help pr cf)+    Right ex -> case ex of+      Ex.Exception e -> do+        putStrLn $ pr ++ ": error: " ++ e+        exitFailure+      Ex.Success g -> g++help ::+  String+  -- ^ Program name++  -> Y.Config+  -> String+help n c = unlines ls ++ cs+  where+    ls = [ "usage: " ++ n ++ " [global-options]"+            ++ " COMMAND [local-options]"+            ++ " ARGS..."+         , ""+         , "where COMMAND is one of:"+         , "import, merge, clear, database, print"+         , ""+         , "For help on an individual command and its"+           ++ " local options, use "+         , n ++ " COMMAND --help"+         , ""+         , "Global Options:"+         , "-f, --fit-account ACCOUNT"+         , "  Use one of the Additional Financial Institution"+         , "  Accounts shown below. If this option does not appear,"+         , "  the default account is used if there is one."+         , "-h, --help"+         , "  Show help and exit"+         , ""+         ]+    showPair (Y.Name a, cd) = "Additional financial institution "+      ++ "account: " ++ X.unpack a ++ "\n" ++ showFitAcct cd+    cs = showDefaultFitAcct (Y.defaultFitAcct c)+         ++ more+    more = if null (Y.moreFitAccts c)+           then "No additional financial institution accounts\n"+           else concatMap showPair . Y.moreFitAccts $ c++showDefaultFitAcct :: Maybe Y.FitAcct -> String+showDefaultFitAcct mc = case mc of+  Nothing -> "No default financial institution account\n"+  Just c -> "Default financial institution account:\n" ++ showFitAcct c++label :: String -> String -> String+label l o = "  " ++ l ++ ": " ++ o ++ "\n"++showAccount :: L.Account -> String+showAccount =+  X.unpack+  . X.intercalate (X.singleton ':')+  . map L.unSubAccount+  . L.unAccount++showFitAcct :: Y.FitAcct -> String+showFitAcct c =+  label "Database location"+    (X.unpack . Y.unDbLocation . Y.dbLocation $ c)++  ++ label "Penny account"+     (showAccount . Y.unPennyAcct . Y.pennyAcct $ c)++  ++ label "Account for new offsetting postings"+     (showAccount . Y.unDefaultAcct . Y.defaultAcct $ c)++  ++ label "Currency"+     (X.unpack . L.unCommodity . Y.unCurrency . Y.currency $ c)++  ++ "\n"++  ++ "More information about the parser:\n"+  ++ (fst . Y.parser $ c)+  ++ "\n\n"+++-- | Information to configure a single card account.+data FitAcct = FitAcct+  { dbLocation :: String+    -- ^ Path and filename to where the database is kept. You can use+    -- an absolute or relative path (if it is relative, it will be+    -- resolved relative to the current directory at runtime.)++  , pennyAcct :: String+    -- ^ The account that you use in your Penny file to hold+    -- transactions for this card. Separate each sub-account with+    -- colons (as you do in the Penny file.)++  , defaultAcct :: String+    -- ^ When new transactions are created, one of the postings will+    -- be in the amexAcct given above. The other posting will be in+    -- this account.++  , currency :: String+    -- ^ The commodity for the currency of your card (e.g. @$@).++  , groupSpecs :: R.GroupSpecs+    -- ^ How to group digits when printing the resulting ledger. All+    -- quantities (not just those affected by this program) will be+    -- formatted using this specification.++  , translator :: Y.Translator+    -- ^ See the documentation under the 'Translator' type for+    -- details.++  , side :: L.Side+  -- ^ When creating new transactions, the commodity will be on this+  -- side++  , spaceBetween :: L.SpaceBetween+  -- ^ When creating new transactions, is there a space between the+  -- commodity and the quantity++  , parser :: ( String+              , Y.FitFileLocation -> IO (Ex.Exceptional String [Y.Posting]))+  -- ^ Parses a file of transactions from the financial+  -- institution. The function must open the file and parse it. This+  -- is in the IO monad not only because the function must open the+  -- file itself, but also so the function can perform arbitrary IO+  -- (run pdftotext, maybe?) If there is failure, the function can+  -- return an Exceptional String, which is the error+  -- message. Alternatively the function can raise an exception in the+  -- IO monad (currently Brenner makes no attempt to catch these) so+  -- if any of the IO functions throw you can simply not handle the+  -- exceptions.+  --+  -- The first element of the pair is a help string which should+  -- indicate how to download the data, as a helpful reminder.+++  } deriving Show++convertFitAcct :: FitAcct -> Y.FitAcct+convertFitAcct (FitAcct db ax df cy gs tl sd sb ps) = Y.FitAcct+  { Y.dbLocation = Y.DbLocation . X.pack $ db+  , Y.pennyAcct = Y.PennyAcct . Bd.account $ ax+  , Y.defaultAcct = Y.DefaultAcct . Bd.account $ df+  , Y.currency = Y.Currency . L.Commodity . X.pack $ cy+  , Y.groupSpecs = gs+  , Y.translator = tl+  , Y.side = sd+  , Y.spaceBetween = sb+  , Y.parser = ps+  }++data Config = Config+  { defaultFitAcct :: Maybe FitAcct+  , moreFitAccts :: [(String, FitAcct)]+  } deriving Show++convertConfig :: Config -> Y.Config+convertConfig (Config d m) = Y.Config+  { Y.defaultFitAcct = fmap convertFitAcct d+  , Y.moreFitAccts =+      let f (n, c) = (Y.Name (X.pack n), convertFitAcct c)+      in map f m+  }

@@ -0,0 +1,121 @@+-- | Parses Amex credit card data. See the help text in the 'help'+-- function for more details. Also, the file format is documented in+-- the file @doc\/amex-file-format.org@.+module Penny.Brenner.Amex (parser) where++import Control.Applicative ((<$>), (<*>), (<$), (<*), (*>), pure,+                            (<|>), optional)+import qualified Data.Time as Time+import qualified Penny.Brenner.Types as Y+import Text.Parsec.Text (Parser)+import qualified Text.Parsec as P+import Text.Parsec (many1, char, many, satisfy)+import qualified Data.Text as X+import qualified Data.Text.IO as TIO+import qualified Control.Monad.Exception.Synchronous as Ex++parser :: (String, Y.FitFileLocation+                   -> IO (Ex.Exceptional String [Y.Posting]))+parser = (help, loadIncoming)++help :: String+help = unlines+  [ "Parses American Express transaction data in CSV format."+  , "Not tested with American Express deposit accounts."+  , "To download, click the \"Download\" link which is visible"+  , "above and to the right of the transaction list. Under"+  , "\"Download Current View\" Select \"CSV\""+  , "and be sure to click"+  , "\"Include all additional Transaction Details.\""+  ]++-- | Loads incoming Amex transactions.+loadIncoming :: Y.FitFileLocation+             -> IO (Ex.Exceptional String [Y.Posting])+loadIncoming (Y.FitFileLocation loc) = do+  txt <- TIO.readFile loc+  let parsed = P.parse (P.many posting <* P.eof) "" txt+      err s = "could not parse incoming postings: " ++ show s+  return (Ex.mapException err . Ex.fromEither $ parsed)++skipThrough :: Char -> Parser ()+skipThrough c = () <$ many (satisfy (/= c)) <* char c++readThrough :: Char -> Parser String+readThrough c = many (satisfy (/= c)) <* char c++date :: Parser Y.Date+date = p >>= failOnErr+  where+    p = (,,)+        <$> fmap read (many1 P.digit)+        <*  char '/'+        <*> fmap read (many1 P.digit)+        <* char '/'+        <*> fmap read (many1 P.digit)+        <*  skipThrough ','+    failOnErr (m, d, y) = maybe (fail "could not parse date")+      (return . Y.Date)+      $ Time.fromGregorianValid y m d++incDecAmount :: Parser (Y.IncDec, Y.Amount)+incDecAmount = do+  incDec <- (Y.Decrease <$ char '-') <|> pure Y.Increase+  amtStr <- readThrough ','+  case Y.mkAmount amtStr of+    Nothing -> fail $ "could not parse amount: " ++ amtStr+    Just a -> return (incDec, a)++doubleQuoted :: Parser String+doubleQuoted = char '"' *> readThrough '"'++desc :: Parser Y.Desc+desc = fmap (Y.Desc . X.pack) $ doubleQuoted <* char ','++payee :: Parser Y.Payee+payee = fmap (Y.Payee . X.pack) $ doubleQuoted <* char ','++amexId :: Parser Y.FitId+amexId = fmap (Y.FitId . X.pack)+         $ char '"' *> char '\'' *> readThrough '\''+           <* char '"' <* char ','+++-- | Skips a field. Will skip a quoted field or,+-- alternatively, skip everything through to the next comma. Do not+-- use for the last field, as it looks for a trailing comma.+skipField :: Parser ()+skipField =+  ()+  <$ skipper+  <* char ','+  where+    skipper =     (() <$ optional doubleQuoted)+              <|> (() <$ many (satisfy (/= ',')))+++-- | Parses last field (currently unknown). Parsers the EOL character.+skipLast :: Parser ()+skipLast = skipThrough '\n'++posting :: Parser Y.Posting+posting =+  f+  <$> date                                        -- 1+  <*  skipField                                   -- 2 Unknown+  <*> desc                                        -- 3 Description+  <*  skipField                                   -- 4 Unknown+  <*  skipField                                   -- 5 Unknown+  <*  skipField                                   -- 6 Unknown+  <*  skipField                                   -- 7 Unknown+  <*> incDecAmount                                -- 8+  <*  skipField                                   -- 9 Unknown+  <*  skipField                                   -- 10 Category+  <*> payee                                       -- 11 D.B.A.+  <*  skipField                                   -- 12 Address+  <*  skipField                                   -- 13 Postcode+  <*> amexId                                      -- 14+  <*  skipField                                   -- 15 Unknown+  <*  skipLast                                    -- 16+  where+    f dt ds (t, a) p i = Y.Posting dt ds t a p i

@@ -0,0 +1,212 @@+-- | Parses statements for Bank of America deposit accounts. See the+-- help text in the 'help' function for more details. Also, the file+-- format is documented in the file @doc\/bofa-file-format.org@.+module Penny.Brenner.BofA (parser) where++import Control.Applicative ((<$>), (<*), (<$), (<*>))+import qualified Control.Monad.Exception.Synchronous as Ex+import Data.Char (isUpper)+import qualified Data.Time as T+import qualified Text.Parsec as P+import Text.Parsec (char, string, many, many1, satisfy, manyTill,+                    (<?>), try)+import Text.Parsec.String (Parser)+import qualified Data.Tree as T+import Data.Tree (Tree(Node))+import qualified Penny.Brenner.Types as Y+import qualified Data.Text as X++newtype TagName = TagName { unTagName :: String }+  deriving (Eq, Show)++newtype TagData = TagData { unTagData :: String }+  deriving (Eq, Show)++data Label+  = Parent TagName+  | Terminal TagName TagData+  deriving (Eq, Show)++type ExS = Ex.Exceptional String++bOfAFile :: Parser ([(TagName, TagData)], Tree Label)+bOfAFile =+  (,)+  <$> many headerLine+  <*  string "\r\n"+  <*> node++notReturn :: Parser Char+notReturn = satisfy (/= '\r')++headerLine :: Parser (TagName, TagData)+headerLine =+  (,)+  <$> (TagName <$> manyTill (satisfy isUpper) (char ':'))+  <*> (TagData <$> manyTill notReturn (char '\r')+               <*  char '\n')++openTag :: Parser String+openTag = do+  { let pc = (satisfy (\c -> c /= '/' && c /= '>'))+  ; c <- try (char '<' >> pc)+  ; cs <- many pc+  ; _ <- char '>'+  ; return (c:cs)+  } <?> "open tag"++closeTag :: String -> Parser ()+closeTag s = () <$ string "</" <* string s <* char '>'+             <?> "close tag named " ++ s++-- | Reads in a tag, then examine what's next. If a backslash-r is+-- next, then this is the end of the line. That means it a nested+-- tag. Parse some more child nodes, then parse a closing node. If+-- anything else is next, this is a data node. Parse the data, then+-- return that node.+node :: Parser (Tree Label)+node = do+  tagName <- openTag+  next <- P.anyChar+  case next of+    '\r' -> do+      _ <- char '\n'+      kids <- many1 node+      closeTag tagName+      _ <- string "\r\n"+      return $ T.Node (Parent (TagName tagName)) kids+    o -> do+      rs <- manyTill notReturn (char '\r')+      _ <- char '\n'+      return $+        T.Node (Terminal (TagName tagName) (TagData $ o:rs)) []++findNodes :: Eq a => a -> Tree a -> [Tree a]+findNodes a = findNodesBy (== a)+++findNodesBy :: (a -> Bool) -> Tree a -> [Tree a]+findNodesBy f t@(Node l cs)+  | f l = [t]+  | otherwise = concatMap (findNodesBy f) cs++safeRead :: (Read r) => String -> Maybe r+safeRead s = case reads s of+  (i,""):[] -> Just i+  _ -> Nothing++-- | Parses a B of A date-time. The format is YYYYMMDDHHMMSS. Discards+-- the HHMMSS.+parseDateStr :: String -> ExS Y.Date+parseDateStr s =+  let (yr, r1) = splitAt 4 s+      (mo, r2) = splitAt 2 r1+      (da, _) = splitAt 2 r2+  in Ex.fromMaybe ("could not parse date: " ++ s) $ do+      yi <- safeRead yr+      ym <- safeRead mo+      yd <- safeRead da+      Y.Date <$> T.fromGregorianValid yi ym yd++parseAmountStr :: String -> ExS (Y.IncDec, Y.Amount)+parseAmountStr s = do+  (f, rs) <- case s of+    "" -> Ex.throw "empty string for amount"+    x:xs -> return (x, xs)+  let (amtStr, incDec) = case f of+        '-' -> (rs, Y.Decrease)+        _ -> (s, Y.Increase)+  amt <- Ex.fromMaybe ("could not parse amount: " ++ s)+         $ Y.mkAmount amtStr+  return (incDec, amt)++postings :: Tree Label -> ExS [Y.Posting]+postings t =+  let match = Parent (TagName "STMTTRN")+  in mapM posting .findNodes match $ t++posting :: Tree Label -> ExS Y.Posting+posting (Node l cs) = do+  tag <- case l of+    Parent n -> return n+    _ -> Ex.throw "did not find posting tree"+  Ex.assert "did not find STMTTRN tag" $ unTagName tag == "STMTTRN"+  tPosted <- findTerminal "DTPOSTED" cs+  tAmt <- findTerminal "TRNAMT" cs+  tId <- findTerminal "FITID" cs+  tName <- findTerminal "NAME" cs+  pPosted <- parseDateStr (X.unpack tPosted)+  (amtIncDec, pAmt) <- parseAmountStr (X.unpack tAmt)+  let pId = Y.FitId tId+      pName = Y.Desc tName+      pPayee = Y.Payee (X.empty)+  return $ Y.Posting pPosted pName amtIncDec pAmt pPayee pId++-- | Removes the TagData from a tree, after ensuring that the TagName+-- is correct and that the tree has no children.+terminalData+  :: String+  -- ^ The name of the terminal++  -> Tree Label++  -> ExS X.Text+  -- ^ Returns the data from the tag, or an error if this is not a+  -- terminal or if the terminal has children.+terminalData n (Node l cs) = do+  (tn, td) <- case l of+    Parent _ -> Ex.throw $ "looking for data tag named " ++ n+                           ++ ", but that tag does not have data"+    Terminal x y -> return (x, y)+  let tagErr = "looking for tag named " ++ n+        ++ ", but found tag named " ++ unTagName tn+  Ex.assert tagErr $ tn == TagName n+  let kidsErr = "data tag " ++ n ++ " should have no children,"+                ++ " but does"+  Ex.assert kidsErr $ null cs+  return . X.pack . unTagData $ td++-- | Finds a terminal amongst a list of Trees; returns the data. Fails+-- if there is no terminal by the given name or of the terminal has+-- children (in which case it is not a terminal!)+findTerminal+  :: String+  -- ^ The name of the terminal++  -> [Tree Label]+  -> ExS X.Text+  -- ^ Returns the data from the terminal, or an error if there is no+  -- tag by this name or if it has chlidren.++findTerminal n ts = do+  let pdct lbl = case lbl of+        Terminal (TagName x) _ -> x == n+        _ -> False+  t <- case concatMap (findNodesBy pdct) ts of+    [] -> Ex.throw $ "looking for terminal named "+          ++ n ++ "; none found"+    x:[] -> return x+    _ -> Ex.throw $ "looking for terminal named "+         ++ n ++ "; multiple matches found"+  terminalData n t++help :: String+help = unlines+  [ "Parses Bank of America postings for deposit accounts, like checking"+  , "or savings. This parser is not tested with credit card accounts."+  , "To download the data, from the account activity screen click on"+  , "\"Download\", which is just above all the transaction information."+  , "Then download the \"WEB Connect for Quicken 2010 and above.\""+  ]++parser :: (String, Y.FitFileLocation+                   -> IO (Ex.Exceptional String [Y.Posting]))+parser = (help, psr)+  where+    psr (Y.FitFileLocation path) = do+      str <- readFile path+      return $ case P.parse bOfAFile "" str of+        Left e -> Ex.throw+                  $ "could not parse Bank of America transactions: "+                    ++ show e+        Right (_, t) -> postings t

@@ -0,0 +1,186 @@+module Penny.Brenner.Clear (mode) where++import qualified Control.Monad.Exception.Synchronous as Ex+import Control.Applicative (pure)+import Control.Monad (guard, mzero, when)+import Data.Maybe (mapMaybe, fromMaybe)+import Data.Monoid (mconcat, First(..))+import qualified Data.Set as Set+import qualified Data.Map as M+import qualified Data.Text as X+import qualified Data.Text.IO as TIO+import qualified System.Console.MultiArg as MA+import qualified Penny.Lincoln as L+import qualified Control.Monad.Trans.State as St+import qualified Control.Monad.Trans.Maybe as MT+import Control.Monad.Trans.Class (lift)+import qualified Penny.Copper.Types as Y+import qualified Penny.Copper as C+import qualified Penny.Copper.Render as R+import System.Exit (exitFailure)+import qualified System.IO as IO+import Text.Show.Pretty (ppShow)+import qualified Penny.Brenner.Types as Y+import qualified Penny.Brenner.Util as U+++help :: String+help = unlines+  [ "usage: penny-fit clear clear [options] FIT_FILE LEDGER_FILE..."+  , "Parses all postings that are in FIT_FILE. Then marks all"+  , "postings that are in the FILEs given that correspond to one"+  , "of the postings in the FIT_FILE as being cleared."+  , "Quits if one of the postings found in FIT_FILE is not found"+  , "in the database, if one of the postings in the database"+  , "is not found in one of the FILEs, or if any of the postings found"+  , "in one of the FILEs already has a flag."+  , ""+  , "Results are printed to standard output. If no FILE, or FILE is \"-\","+  , "read standard input."+  , ""+  , "Options:"+  , "  -h, --help - show help and exit"+  ]++data Arg+  = AHelp+  | APosArg String+  deriving (Eq, Show)++toPosArg :: Arg -> Maybe String+toPosArg a = case a of { APosArg s -> Just s; _ -> Nothing }++data Opts = Opts+  { csvLocation :: Y.FitFileLocation+  , ledgerLocations :: [String]+  } deriving Show+++mode :: Maybe Y.FitAcct -> MA.Mode (Ex.Exceptional String (IO ()))+mode c = MA.Mode+  { MA.mName = "clear"+  , MA.mIntersperse = MA.Intersperse+  , MA.mOpts = [ MA.OptSpec ["help"] "h" (MA.NoArg AHelp) ]+  , MA.mPosArgs = APosArg+  , MA.mProcess = process c+  }++process :: Maybe Y.FitAcct -> [Arg] -> Ex.Exceptional String (IO ())+process mayC as =+  if any (== AHelp) as+  then return $ putStrLn help+  else do+    c <- case mayC of+      Just cd -> return cd+      Nothing -> Ex.throw $ "no financial institution account given"+                 ++ " on command line, and no default financial"+                 ++ " institution configured."+    (csv, ls) <- case mapMaybe toPosArg as of+      [] -> Ex.throw $ "clear: you must provide a postings file."+      x:xs -> return (Y.FitFileLocation x, xs)+    let os = Opts csv ls+    return $ runClear c os++fatal :: String -> IO a+fatal s = do+  IO.hPutStrLn IO.stderr $ "penny-fit clear: error: " ++ s+  exitFailure++runClear :: Y.FitAcct -> Opts -> IO ()+runClear c os = do+  dbList <- U.quitOnError+              $ U.loadDb (Y.AllowNew False) (Y.dbLocation c)+  let db = M.fromList dbList+      (_, prsr) = Y.parser c+  txns <- U.quitOnError $ prsr (csvLocation os)+  leds <- C.openStdin (ledgerLocations os)+  toClear <- case mapM (findUNumber db) txns of+    Nothing -> fatal $ "at least one posting was not found in the"+                       ++ " database. Ensure all postings have "+                       ++ "been imported and merged."+    Just ls -> return $ Set.fromList ls+  let (led', left) = changeLedger (Y.pennyAcct c) toClear leds+  when (not (Set.null left))+    (fatal $ "some postings were not cleared. "+      ++ "Those not cleared:\n" ++ ppShow left)+  case R.ledger (Y.groupSpecs c) led' of+    Nothing ->+      fatal "could not render resulting ledger."+    Just txt -> TIO.putStr txt+++-- | Examines an financial institution transaction and the DbMap to+-- find a matching UNumber. Fails if the financial institution+-- transaction is not in the Db.+findUNumber :: Y.DbMap -> Y.Posting -> Maybe Y.UNumber+findUNumber m pstg =+  let atn = Y.fitId pstg+      p ap = Y.fitId ap == atn+      filteredMap = M.filter p m+      ls = M.toList filteredMap+  in case ls of+      (n, _):[] -> Just n+      _ -> Nothing+++clearedFlag :: L.Flag+clearedFlag = L.Flag . X.singleton $ 'C'++-- | Changes a ledger to clear postings. Returns postings still not+-- cleared.+changeLedger+  :: Y.PennyAcct+  -> Set.Set Y.UNumber+  -> Y.Ledger+  -> (Y.Ledger, Set.Set Y.UNumber)+changeLedger ax s l = St.runState k s+  where+    k = Y.mapLedgerA f l+    f = Y.mapItemA pure pure (changeTxn ax)++changeTxn+  :: Y.PennyAcct+  -> L.Transaction+  -> St.State (Set.Set Y.UNumber) L.Transaction+changeTxn ax t = do+  let fam = L.unTransaction t+      fam' = L.mapParent (const L.emptyTopLineChangeData) fam+  fam'' <- L.mapChildrenA (changePstg ax) fam'+  return $ L.changeTransaction fam'' t+++-- | Sees if this posting is a posting in the right account and has a+-- UNumber that needs to be cleared. If so, clears it. If this posting+-- already has a flag, skips it.+changePstg+  :: Y.PennyAcct+  -> L.Posting+  -> St.State (Set.Set Y.UNumber) L.PostingChangeData+changePstg ax p =+  fmap (fromMaybe L.emptyPostingChangeData) . MT.runMaybeT $ do+    guard (L.pAccount p == (Y.unPennyAcct ax))+    let tags = L.pTags p+    un <- maybe mzero return $ parseUNumberFromTags tags+    guard (L.pFlag p == Nothing)+    set <- lift St.get+    guard (Set.member un set)+    lift $ St.put (Set.delete un set)+    return $ L.emptyPostingChangeData+             { L.pcFlag = Just (Just clearedFlag) }++parseUNumberFromTags :: L.Tags -> Maybe Y.UNumber+parseUNumberFromTags =+  getFirst+  . mconcat+  . map First+  . map parseUNumberFromTag+  . L.unTags++parseUNumberFromTag :: L.Tag -> Maybe Y.UNumber+parseUNumberFromTag (L.Tag x) = do+  (f, xs) <- X.uncons x+  guard (f == 'U')+  case reads . X.unpack $ xs of+    (u, ""):[] -> Just (Y.UNumber u)+    _ -> Nothing+

@@ -0,0 +1,51 @@+module Penny.Brenner.Database (mode) where++import qualified Penny.Brenner.Types as Y+import qualified Penny.Brenner.Util as U+import qualified System.Console.MultiArg as MA+import qualified Control.Monad.Exception.Synchronous as Ex++help :: String+help = unlines+  [ "penny-fit [global-options] database [local-options]"+  , "Shows the database of financial institution transactions."+  , "Does not accept any non-option arguments."+  , ""+  , "Local options:"+  , "  --help, -h Show this help and exit."+  ]++data Arg = ArgHelp | ArgPos String deriving (Eq, Show)++mode+  :: Maybe Y.FitAcct+  -> MA.Mode (Ex.Exceptional String (IO ()))+mode mayFa = MA.Mode+  { MA.mName = "database"+  , MA.mIntersperse = MA.Intersperse+  , MA.mOpts = [MA.OptSpec ["help"] "h" (MA.NoArg ArgHelp)]+  , MA.mPosArgs = ArgPos+  , MA.mProcess = processor mayFa+  }++processor+  :: Maybe Y.FitAcct+  -> [Arg]+  -> Ex.Exceptional String (IO ())+processor mayFa ls+  | any (== ArgHelp) ls = return (putStrLn help)+  | any isArgPos ls = Ex.throw $+        "penny-fit database: error: this command does"+        ++ " not accept non-option arguments."+  | otherwise = case mayFa of+      Nothing -> Ex.throw $ "no financial institution account"+        ++ " selected on command line, and no default"+        ++ " financial instititution account configured."+      Just fa -> return $ do+        let dbLoc = Y.dbLocation fa+        db <- U.quitOnError $ U.loadDb (Y.AllowNew False) dbLoc+        mapM_ putStr . map U.showDbPair $ db++isArgPos :: Arg -> Bool+isArgPos (ArgPos _) = True+isArgPos _ = False

@@ -0,0 +1,134 @@+module Penny.Brenner.Import (mode) where++import Control.Monad.Exception.Synchronous as Ex+import Data.Maybe (mapMaybe)+import qualified System.Console.MultiArg as MA+import qualified Penny.Brenner.Types as Y+import qualified Penny.Brenner.Util as U+import qualified System.IO as IO+import qualified System.Exit as E+++data Arg+  = AHelp+  | AFitFile String+  | AAllowNew+  deriving (Eq, Show)++toFitFile :: Arg -> Maybe String+toFitFile a = case a of+  AFitFile s -> Just s+  _ -> Nothing++data ImportOpts = ImportOpts+  { fitFile :: Y.FitFileLocation+  , allowNew :: Y.AllowNew+  , parser :: Y.FitFileLocation+              -> IO (Ex.Exceptional String [Y.Posting])+  }++{-+mode+  :: Y.DbLocation+  -> ( Y.FitFileLocation+       -> IO (Ex.Exceptional String [Y.Posting]))+  -> MA.Mode (Ex.Exceptional String (IO ()))+mode dbLoc prsr = MA.Mode+  { MA.mName = "import"+  , MA.mIntersperse = MA.Intersperse+  , MA.mOpts =+      [ MA.OptSpec ["help"] "h" (MA.NoArg AHelp)+      , MA.OptSpec ["new"] "n" (MA.NoArg AAllowNew)+      ]+  , MA.mPosArgs = AFitFile+  , MA.mProcess = processor dbLoc prsr+  }+-}++mode+  :: Maybe Y.FitAcct+  -> MA.Mode (Ex.Exceptional String (IO ()))+mode mayFa = MA.Mode+  { MA.mName = "import"+  , MA.mIntersperse = MA.Intersperse+  , MA.mOpts =+      [ MA.OptSpec ["help"] "h" (MA.NoArg AHelp)+      , MA.OptSpec ["new"] "n" (MA.NoArg AAllowNew)+      ]+  , MA.mPosArgs = AFitFile+  , MA.mProcess = processor mayFa+  }++processor+  :: Maybe Y.FitAcct+  -> [Arg]+  -> Ex.Exceptional String (IO ())+processor mayFa as = do+  let err s = Ex.throw $ "import: " ++ s+  if any (== AHelp) as+    then return $ putStrLn help+    else do+      (dbLoc, prsr) <- case mayFa of+        Nothing -> err $ "no financial institution account provided"+          ++ " on command line, and no default financial institution"+          ++ " account is configured."+        Just fa -> return (Y.dbLocation fa, snd . Y.parser $ fa)+      loc <- case mapMaybe toFitFile as of+        [] -> err "you must provide a postings file to read"+        x:[] -> return (Y.FitFileLocation x)+        _ -> err "you cannot provide more than one postings file to read"+      let aNew = Y.AllowNew $ any (== AAllowNew) as+      return $ doImport dbLoc (ImportOpts loc aNew prsr)+++-- | Appends new Amex transactions to the existing list.+appendNew+  :: [(Y.UNumber, Y.Posting)]+  -- ^ Existing transactions++  -> [Y.Posting]+  -- ^ New transactions++  -> ([(Y.UNumber, Y.Posting)], Int)+  -- ^ New list, and number of transactions added++appendNew db new = (db ++ newWithU, length newWithU)+  where+    nextUNum = if null db+               then 0+               else (Y.unUNumber . maximum . map fst $ db) + 1+    currFitIds = map (Y.fitId . snd) db+    isNew p = not (any (== Y.fitId p) currFitIds)+    newPstgs = filter isNew new+    mkPair i p = (Y.UNumber i, p)+    newWithU = zipWith mkPair [nextUNum..] newPstgs+++doImport :: Y.DbLocation -> ImportOpts -> IO ()+doImport dbLoc os = do+  txnsOld <- U.quitOnError $ U.loadDb (allowNew os) dbLoc+  parseResult <- parser os (fitFile os)+  ins <- case parseResult of+    Ex.Exception e -> do+      IO.hPutStrLn IO.stderr $ "penny-fit: error: " ++ e+      E.exitFailure+    Ex.Success g -> return g+  let (new, len) = appendNew txnsOld ins+  U.saveDb dbLoc new+  putStrLn $ "imported " ++ show len ++ " new transactions."++help :: String+help = unlines+  [ "penny-fit [global-options] import [local-options] FIT_FILE"+  , "where FIT_FILE is the file downloaded from the financial"+  , "institution."+  , ""+  , "Local Options:"+  , ""+  , "-n, --new - Allows creation of new database. Without this option,"+  , "if the database file is not found, quits with an error."+  , ""+  , "-h, --help - Show this help."+  , ""+  ]+

@@ -0,0 +1,274 @@+module Penny.Brenner.Merge (mode) where++import Control.Applicative (pure)+import Control.Monad (guard)+import qualified Control.Monad.Trans.State as St+import Data.List (find)+import qualified Data.Map as M+import Data.Maybe (mapMaybe, isNothing)+import Data.Monoid (First(..), mconcat)+import qualified Data.Text as X+import qualified Data.Text.IO as TIO+import qualified System.Console.MultiArg as MA+import qualified Control.Monad.Exception.Synchronous as Ex+import qualified System.IO as IO+import qualified Penny.Copper as C+import qualified Penny.Copper.Render as R+import qualified Penny.Lincoln as L+import qualified Penny.Lincoln.Transaction.Unverified as U+import qualified Penny.Lincoln.Queries as Q+import System.Exit (exitFailure)+import qualified Penny.Brenner.Types as Y+import qualified Penny.Brenner.Util as U++data Arg+  = AHelp+  | APos String+  deriving (Eq, Show)++toPosArg :: Arg -> Maybe String+toPosArg a = case a of { APos s -> Just s; _ -> Nothing }++mode :: Maybe Y.FitAcct -> MA.Mode (Ex.Exceptional String (IO ()))+mode maybeC = MA.Mode+  { MA.mName = "merge"+  , MA.mIntersperse = MA.Intersperse+  , MA.mOpts =+    [ MA.OptSpec ["help"] "h" (MA.NoArg AHelp)+    ]+  , MA.mPosArgs = APos+  , MA.mProcess = processor maybeC+  }++processor :: Maybe Y.FitAcct -> [Arg] -> Ex.Exceptional a (IO ())+processor maybeC as = return $+  if any (== AHelp) as+  then putStrLn help+  else doMerge maybeC (mapMaybe toPosArg as)++doMerge :: Maybe Y.FitAcct -> [String] -> IO ()+doMerge maybeAcct ss = do+  acct <- case maybeAcct of+    Nothing -> do+      IO.hPutStrLn IO.stderr $ "merge: error: no financial"+        ++ " institution account provided on command line, and"+        ++ " no default account configured."+      exitFailure+    Just ac -> return ac+  dbLs <- U.quitOnError+          $ U.loadDb (Y.AllowNew False) (Y.dbLocation acct)+  l <- C.openStdin ss+  let dbWithEntry = fmap (pairWithEntry acct) . M.fromList $ dbLs+      (l', db') = changeItems acct+                  l (filterDb (Y.pennyAcct acct) dbWithEntry l)+      newTxns = createTransactions acct db'+      final = C.Ledger (C.unLedger l' ++ newTxns)+  case R.ledger (Y.groupSpecs acct) final of+    Nothing -> do+      IO.hPutStrLn IO.stderr "Could not render final ledger."+      exitFailure+    Just x -> TIO.putStr x+++help :: String+help = unlines+  [ "penny-fit merge: merges new transactions from database"+  , "to ledger file."+  , "usage: penny-fit merge [options] FILE..."+  , "Results are printed to standard output. If no FILE, or if FILE is -,"+  , "read standard input."+  , ""+  , "Options:"+  , "  -h, --help - show help and exit"+  ]++-- | Removes all Brenner postings that already have a Penny posting+-- with the correct uNumber.+filterDb :: Y.PennyAcct -> DbWithEntry -> C.Ledger -> DbWithEntry+filterDb ax m l = M.difference m ml+  where+    ml = M.fromList+       . flip zip (repeat ())+       . mapMaybe toUNum+       . filter inPennyAcct+       . concatMap L.postFam+       . mapMaybe toTxn+       . C.unLedger+       $ l+    toTxn t = case t of+      C.Transaction x -> Just x+      _ -> Nothing+    inPennyAcct p = Q.account p == (Y.unPennyAcct ax)+    toUNum p = getUNumberFromTags . Q.tags $ p++-- | Gets the first UNumber from a list of Tags.+getUNumberFromTags :: L.Tags -> Maybe Y.UNumber+getUNumberFromTags =+  getFirst+  . mconcat+  . map First+  . map getUNumberFromTag+  . L.unTags++-- | Examines a tag to see if it is a uNumber. If so, returns the+-- UNumber. Otherwise, returns Nothing.+getUNumberFromTag :: L.Tag -> Maybe Y.UNumber+getUNumberFromTag (L.Tag x) = do+  (f, r) <- X.uncons x+  guard (f == 'U')+  case reads . X.unpack $ r of+    (y, ""):[] -> return $ Y.UNumber y+    _ -> Nothing+++-- | Changes a single Item.+changeItem+  :: Y.FitAcct+  -> C.Item+  -> St.State DbWithEntry C.Item+changeItem acct =+  C.mapItemA pure pure (changeTransaction acct)+++-- | Changes all postings that match an AmexTxn to assign them the+-- proper UNumber. Returns a list of changed items, and the DbMap of+-- still-unassigned AmexTxns.+changeItems+  :: Y.FitAcct+  -> C.Ledger+  -> DbWithEntry+  -> (C.Ledger, DbWithEntry)+changeItems acct l =+  St.runState (C.mapLedgerA (changeItem acct) l)+++changeTransaction+  :: Y.FitAcct+  -> L.Transaction+  -> St.State DbWithEntry L.Transaction+changeTransaction acct txn = do+  let fam = L.unTransaction txn+      fam' = L.mapParent (const L.emptyTopLineChangeData) fam+  fam'' <- L.mapChildrenA (inspectAndChange acct txn) fam'+  return $ L.changeTransaction fam'' txn++-- | Inspects a posting to see if it is an Amex posting and, if so,+-- whether it matches one of the remaining AmexTxns. If so, then+-- changes the transaction's UNumber, and remove that UNumber from the+-- DbMap. If the posting alreay has a Number (UNumber or otherwise)+-- skips it.+inspectAndChange+  :: Y.FitAcct+  -> L.Transaction+  -> L.Posting+  -> St.State DbWithEntry L.PostingChangeData+inspectAndChange acct t p = do+  m <- St.get+  case findMatch acct t p m of+    Nothing -> return L.emptyPostingChangeData+    Just (n, m') ->+      let L.Tags oldTags = L.pTags p+          tags' = L.Tags (oldTags ++ [newLincolnUNumber n])+          pcd = L.emptyPostingChangeData+                  { L.pcTags = Just tags' }+      in St.put m' >> return pcd++newLincolnUNumber :: Y.UNumber -> L.Tag+newLincolnUNumber a =+  L.Tag ('U' `X.cons` (X.pack . show . Y.unUNumber $ a))+++-- | Searches a DbMap for an AmexTxn that matches a given posting. If+-- a match is found, returns the matching UNumber and a new DbMap that+-- has the match removed.+findMatch+  :: Y.FitAcct+  -> L.Transaction+  -> L.Posting+  -> DbWithEntry+  -> Maybe (Y.UNumber, DbWithEntry)+findMatch acct t p m = fmap toResult findResult+  where+    findResult = find (pennyTxnMatches acct t p)+                 . M.toList $ m+    toResult (u, (_, _)) = (u, M.delete u m)++-- | Pairs each association in a DbMap with an Entry representing the+-- transaction's entry in the ledger.+pairWithEntry :: Y.FitAcct -> Y.Posting -> (Y.Posting, L.Entry)+pairWithEntry acct p = (p, en)+  where+    en = L.Entry dc (L.Amount qty cty (Just (Y.side acct))+                                      (Just (Y.spaceBetween acct)))+    dc = Y.translate (Y.incDec p) (Y.translator acct)+    qty = U.parseQty (Y.amount p)+    cty = Y.unCurrency . Y.currency $ acct++type DbWithEntry = M.Map Y.UNumber (Y.Posting, L.Entry)++-- | Does the given Penny transaction match this posting? Makes sure+-- that the account, quantity, date, commodity, and DrCr match, and+-- that the posting does not have a number (it's OK if the transaction+-- has a number.)+pennyTxnMatches+  :: Y.FitAcct+  -> L.Transaction+  -> L.Posting+  -> (a, (Y.Posting, L.Entry))+  -> Bool+pennyTxnMatches acct t p (_, (a, e)) =+  mA && noFlag && mQ && mDC && mDate && mCmdty+  where+    mA = L.pAccount p == (Y.unPennyAcct . Y.pennyAcct $ acct)+    mQ = L.equivalent (L.qty . L.amount . L.pEntry $ p)+                      (L.qty . L.amount $ e)+    mDC = (L.drCr e) == (L.drCr . L.pEntry $ p)+    (L.Family tl _ _ _) = L.unTransaction t+    mDate = (L.day . L.tDateTime $ tl) == (Y.unDate . Y.date $ a)+    noFlag = isNothing . L.pNumber $ p+    mCmdty = (L.commodity . L.amount $ e)+              == (Y.unCurrency . Y.currency $ acct)+++-- | Creates a new transaction corresponding to a given AmexTxn. Uses+-- the Amex payee if that string is non empty; otherwise, uses the+-- Amex description for the payee.+newTransaction+  :: Y.FitAcct+  -> (Y.UNumber, (Y.Posting, L.Entry))+  -> L.Transaction+newTransaction acct (u, (a, e)) = L.rTransaction rt+  where+    rt = L.RTransaction+      { L.rtCommodity = Y.unCurrency . Y.currency $ acct+      , L.rtSide = Just . Y.side $ acct+      , L.rtSpaceBetween = Just . Y.spaceBetween $ acct+      , L.rtDrCr = L.drCr e+      , L.rtTopLine = tl+      , L.rtPosting = p1+      , L.rtMorePostings = []+      , L.rtIPosting = p2+      }+    tl = (U.emptyTopLine ( L.dateTimeMidnightUTC . Y.unDate+                           . Y.date $ a))+         { U.tPayee = Just (L.Payee pa) }+    pa = if X.null . Y.unPayee . Y.payee $ a+         then Y.unDesc . Y.desc $ a+         else Y.unPayee . Y.payee $ a+    pennyAcct = Y.unPennyAcct . Y.pennyAcct $ acct+    p1 = (U.emptyRPosting pennyAcct (L.qty . L.amount $ e))+          { U.rTags = L.Tags [newLincolnUNumber u] }+    p2 = U.emptyIPosting (Y.unDefaultAcct . Y.defaultAcct $ acct)++-- | Creates new transactions for all the items remaining in the+-- DbMap. Appends a blank line after each one.+createTransactions+  :: Y.FitAcct+  -> DbWithEntry+  -> [C.Item]+createTransactions acct =+  concatMap (\i -> [i, C.BlankLine])+  . map C.Transaction+  . map (newTransaction acct)+  . M.assocs+

@@ -0,0 +1,71 @@+-- | Prints parsed transactions.+--+-- TODO add support to this and other Brenner components for reading+-- from stdin.+module Penny.Brenner.Print (mode) where++import qualified Penny.Brenner.Types as Y+import qualified Penny.Brenner.Util as U+import qualified System.Console.MultiArg as MA+import qualified System.IO as IO+import qualified System.Exit as E+import qualified Control.Monad.Exception.Synchronous as Ex+import Data.Maybe (mapMaybe)++help :: String+help = unlines+  [ "penny-fit [global-options] print [local-options] FILE..."+  , "Parses the transactions in each FILE using the appropriate parser"+  , "and prints the parse result to standard output."+  , ""+  , "Local options:"+  , "  --help, -h Show this help and exit."+  ]++data Arg+  = ArgHelp+  | ArgFile String+  deriving (Eq, Show)++mode+  :: Maybe Y.FitAcct+  -> MA.Mode (Ex.Exceptional String (IO ()))+mode mayFa = MA.Mode+  { MA.mName = "print"+  , MA.mIntersperse = MA.Intersperse+  , MA.mOpts = [MA.OptSpec ["help"] "h" (MA.NoArg ArgHelp)]+  , MA.mPosArgs = ArgFile+  , MA.mProcess = processor mayFa+  }++processor+  :: Maybe Y.FitAcct+  -> [Arg]+  -> Ex.Exceptional String (IO ())+processor mayFa ls =+  if any (== ArgHelp) ls+  then return (putStrLn help)+  else case mayFa of+          Nothing -> Ex.throw $+            "no financial institution account"+            ++ " provided on command line, and no account"+            ++ " configured by default."+          Just fa -> return $ doPrint (snd . Y.parser $ fa) ls++doPrint+  :: (Y.FitFileLocation -> IO (Ex.Exceptional String [Y.Posting]))+  -> [Arg]+  -> IO ()+doPrint prsr ls = mapM_ f . mapMaybe toFile $ ls+  where+    f file = do+      r <- prsr file+      case r of+        Ex.Exception s -> do+          IO.hPutStrLn IO.stderr $ "penny-fit print: error: " ++ s+          E.exitFailure+        Ex.Success ps -> mapM putStr . map U.showPosting $ ps+    toFile a = case a of+      ArgFile s -> Just (Y.FitFileLocation s)+      _ -> Nothing+

@@ -0,0 +1,287 @@+module Penny.Brenner.Types+  ( Date(..)+  , IncDec(..)+  , UNumber(..)+  , FitId(..)+  , Payee(..)+  , Desc(..)+  , Amount(unAmount)+  , mkAmount+  , translate+  , DbMap+  , DbList+  , Posting(..)+  , DbLocation(..)+  , Name(..)+  , PennyAcct(..)+  , Translator(..)+  , DefaultAcct(..)+  , Currency(..)+  , FitAcct(..)+  , Config(..)+  , FitFileLocation(..)+  , AllowNew(..)+  ) where++import Control.Applicative ((<$>), (<*>))+import qualified Control.Monad.Exception.Synchronous as Ex+import qualified Data.Map as M+import qualified Data.Time as Time+import qualified Penny.Copper.Render as R+import qualified Penny.Lincoln as L+import Data.Text (Text, pack, unpack)+import qualified Data.Text.Encoding as E+import qualified Data.Serialize as S++-- | The date reported by the financial institution.+newtype Date = Date { unDate :: Time.Day }+  deriving (Eq, Show, Ord, Read)++instance S.Serialize Date where+  put = S.put . show . unDate+  get = Date <$> (read <$> S.get)++-- | Reports changes in account balances. Avoids using /debit/ and+-- /credit/ as these terms are used differently by the bank than in+-- your ledger (that is, the bank reports it from their perspective,+-- not yours) so instead the terms /increase/ and /decrease/ are+-- used. IncDec is used to record the bank's transactions so+-- /increase/ and /decrease/ are used in the same way you would see+-- them on a bank statement, whether it's a credit card, loan,+-- checking account, etc.+data IncDec+  = Increase+  -- ^ Increases the account balance. For a checking or savings+  -- account, this is a deposit. For a credit card, this is a purchase.++  | Decrease+  -- ^ Decreases the account balance. On a credit card, this is a+  -- payment. On a checking account, this is a withdrawal.+  deriving (Eq, Show, Read)++instance S.Serialize IncDec where+  put x = case x of+    Increase -> S.putWord8 0+    Decrease -> S.putWord8 1+  get = S.getWord8 >>= f+    where+      f x = case x of+        0 -> return Increase+        1 -> return Decrease+        _ -> fail "read IncDec error"++-- | A unique number assigned by Brenner to identify each+-- posting. This is unique within a particular financial institution+-- account only.+newtype UNumber = UNumber { unUNumber :: Integer }+  deriving (Eq, Show, Ord, Read)++instance S.Serialize UNumber where+  put = S.put . unUNumber+  get = UNumber <$> S.get++putText :: Text -> S.Put+putText = S.put . E.encodeUtf8++getText :: S.Get Text+getText = S.get >>= f+  where+    f bs = case E.decodeUtf8' bs of+      Left _ -> fail "text reading failed"+      Right x -> return x+++-- | For Brenner to work, the bank has to assign unique identifiers to+-- each transaction that it gives you for download. This is the+-- easiest reliable way to ensure duplicates are not processed+-- multiple times. (There are other ways to accomplish this, but they+-- are much harder and less reliable.) If the bank does not do this,+-- you can't use Brenner.+newtype FitId = FitId { unFitId :: Text }+  deriving (Eq, Show, Ord, Read)++instance S.Serialize FitId where+  put = putText . unFitId+  get = FitId <$> getText++-- | Some financial institutions assign a separate Payee in addition+-- to a description. Others just have a single Description field. If+-- this institution uses both, put something here. Brenner will prefer+-- the Payee if it is not zero length; then it will use the Desc.+newtype Payee = Payee { unPayee :: Text }+  deriving (Eq, Show, Ord, Read)++instance S.Serialize Payee where+  put = putText . unPayee+  get = Payee <$> getText++-- | The transaction description. Some institutions assign only a+-- description (sometimes muddling a payee with long codes, some+-- dates, etc). Brenner prefers the Payee if there is one, and uses a+-- Desc otherwise.+newtype Desc =+  Desc { unDesc :: Text }+  deriving (Eq, Show, Ord, Read)++instance S.Serialize Desc where+  put = putText . unDesc+  get = Desc <$> getText++-- | The amount of the transaction. Do not include any leading plus or+-- minus signs; this should be only digits and a decimal point.+newtype Amount = Amount { unAmount :: Text }+  deriving (Eq, Show, Ord, Read)++instance S.Serialize Amount where+  put = putText . unAmount+  get = getText >>= f+    where+      f x = case mkAmount . unpack $ x of+        Nothing -> fail $ "failed to load amount: " ++ unpack x+        Just a -> return a++-- | Ensures that incoming Amounts have only digits and (up to) one+-- decimal point.+mkAmount :: String -> Maybe Amount+mkAmount s =+  let isDigit c = c >= '0' && c <= '9'+      (_, rs) = span isDigit s+  in case rs of+      "" -> if not . null $ s+            then return . Amount . pack $ s+            else Nothing+      '.':rest -> if all isDigit rest+                  then return . Amount . pack $ s+                  else Nothing+      _ -> Nothing++translate+  :: IncDec+  -> Translator+  -> L.DrCr+translate Increase IncreaseIsDebit = L.Debit+translate Increase IncreaseIsCredit = L.Credit+translate Decrease IncreaseIsDebit = L.Credit+translate Decrease IncreaseIsCredit = L.Debit++type DbMap = M.Map UNumber Posting+type DbList = [(UNumber, Posting)]++data Posting = Posting+  { date :: Date+  , desc :: Desc+  , incDec :: IncDec+  , amount :: Amount+  , payee :: Payee+  , fitId :: FitId+  } deriving (Read, Show)+++instance S.Serialize Posting where+  put x = S.put (date x)+          >> S.put (desc x)+          >> S.put (incDec x)+          >> S.put (amount x)+          >> S.put (payee x)+          >> S.put (fitId x)+  get = Posting+        <$> S.get+        <*> S.get+        <*> S.get+        <*> S.get+        <*> S.get+        <*> S.get++-- | Where is the database of postings?+newtype DbLocation = DbLocation { unDbLocation :: Text }+  deriving (Eq, Show)++-- | A name used to refer to a batch of settings.+newtype Name = Name { unName :: Text }+  deriving (Eq, Show)++-- | The Penny account holding postings for this financial+-- institution. For instance it might be @Assets:Checking@ if this is+-- your checking account, @Liabilities:Credit Card@, or whatever.+newtype PennyAcct = PennyAcct { unPennyAcct :: L.Account }+  deriving (Eq, Show)++-- | What the financial institution shows as an increase or decrease+-- has to be recorded as a debit or credit in the PennyAcct.+data Translator+  = IncreaseIsDebit+  -- ^ That is, when the financial institution shows a posting that+  -- increases your account balance, you record a debit. You will+  -- probably use this for deposit accounts, like checking and+  -- savings. These are asset accounts so if the balance goes up you+  -- record a debit in your ledger.++  | IncreaseIsCredit+  -- ^ That is, when the financial institution shows a posting that+  -- increases your account balance, you record a credit. You will+  -- probably use this for liabilities, such as credit cards and other+  -- loans.++  deriving (Eq, Show)++-- | The default account to place unclassified postings in. For+-- instance @Expenses:Unclassified@.+newtype DefaultAcct = DefaultAcct { unDefaultAcct :: L.Account }+  deriving (Eq, Show)++-- | The currency for all transactions, e.g. @$@.+newtype Currency = Currency { unCurrency :: L.Commodity }+  deriving (Eq, Show)++-- | A batch of settings representing a single financial institution+-- account.+data FitAcct = FitAcct+  { dbLocation :: DbLocation+  , pennyAcct :: PennyAcct+  , defaultAcct :: DefaultAcct+  , currency :: Currency+  , groupSpecs :: R.GroupSpecs+  , translator :: Translator++  , side :: L.Side+  -- ^ When creating new transactions, the commodity will be on this+  -- side++  , spaceBetween :: L.SpaceBetween+  -- ^ When creating new transactions, is there a space between the+  -- commodity and the quantity++  , parser :: ( String+              , FitFileLocation -> IO (Ex.Exceptional String [Posting]))+  -- ^ Parses a file of transactions from the financial+  -- institution. The function must open the file and parse it. This+  -- is in the IO monad not only because the function must open the+  -- file itself, but also so the function can perform arbitrary IO+  -- (run pdftotext, maybe?) If there is failure, the function can+  -- return an Exceptional String, which is the error+  -- message. Alternatively the function can raise an exception in the+  -- IO monad (currently Brenner makes no attempt to catch these) so+  -- if any of the IO functions throw you can simply not handle the+  -- exceptions.+  --+  -- The first element of the pair is a help string which should+  -- indicate how to download the data, as a helpful reminder.++  }++-- | Configuration for the Brenner program. You can optionally have+-- a default FitAcct, which is used if you do not specify any FitAcct on the+-- command line. You can also name any number of additional FitAccts. If+-- you do not specify a default FitAcct, you must specify a FitAcct on the+-- command line.++data Config = Config+  { defaultFitAcct :: Maybe FitAcct+  , moreFitAccts :: [(Name, FitAcct)]+  }++newtype FitFileLocation = FitFileLocation { unFitFileLocation :: String }+  deriving (Show, Eq)++newtype AllowNew = AllowNew { unAllowNew :: Bool }+  deriving (Show, Eq)

@@ -0,0 +1,97 @@+module Penny.Brenner.Util where++import Control.Monad.Exception.Synchronous as Ex+import qualified Penny.Brenner.Types as Y+import qualified Data.ByteString as BS+import qualified System.IO.Error as IOE+import qualified Data.Serialize as S+import qualified Data.Text as X+import qualified Penny.Copper.Parsec as CP+import qualified Text.Parsec as P+import qualified Penny.Lincoln as L+import Control.Monad (join)+import qualified System.IO as IO+import qualified System.Exit as E++-- | Loads the database from disk. If allowNew is True, then does not+-- fail if the file was not found.+loadDb+  :: Y.AllowNew+  -- ^ Is a new file allowed?++  -> Y.DbLocation+  -- ^ DB location++  -> IO (Ex.Exceptional String Y.DbList)+loadDb (Y.AllowNew allowNew) (Y.DbLocation dbLoc) = do+  eiStr <- IOE.tryIOError (BS.readFile . X.unpack $ dbLoc)+  case eiStr of+    Left e ->+      if allowNew && IOE.isDoesNotExistError e+      then return (return [])+      else IOE.ioError e+    Right g -> return . readDbTuple $ g++-- | File version. Increment this when anything in the file format+-- changes.+version :: Int+version = 0++brenner :: String+brenner = "penny.brenner"++readDbTuple+  :: BS.ByteString+  -> Ex.Exceptional String Y.DbList+readDbTuple bs = do+  (s, v, ls) <- Ex.fromEither $ S.decode bs+  Ex.assert "database file format not recognized." $ s == brenner+  Ex.assert "wrong database version." $ v == version+  return ls++saveDbTuple :: Y.DbList -> BS.ByteString+saveDbTuple ls = S.encode (brenner, version, ls)++-- | Writes a new database to disk.+saveDb :: Y.DbLocation -> Y.DbList -> IO ()+saveDb (Y.DbLocation p) = BS.writeFile (X.unpack p) . saveDbTuple++-- | Parses quantities from amounts. All amounts should be verified as+-- having only digits, optionally followed by a point and then more+-- digits. All these values should parse. So if there is a problem it+-- is a programmer error. Apply error.+parseQty :: Y.Amount -> L.Qty+parseQty a = case P.parse CP.quantity "" (Y.unAmount a) of+  Left e -> error $ "could not parse quantity from string: "+            ++ (X.unpack . Y.unAmount $ a) ++ ": " ++ show e+  Right g -> g++quitOnError+  :: IO (Ex.Exceptional String a)+  -> IO a+quitOnError = join . fmap (Ex.switch err return)+  where+    err s = do+      IO.hPutStrLn IO.stderr $ "penny-fit: error: " ++ s+      E.exitFailure++label :: String -> X.Text -> String+label s x = s ++ ": " ++ X.unpack x ++ "\n"++-- | Shows a Posting in human readable format.+showPosting :: Y.Posting -> String+showPosting (Y.Posting dt dc nc am py fd) =+  label "Date" (X.pack . show . Y.unDate $ dt)+  ++ label "Description" (Y.unDesc dc)+  ++ label "Type" (X.pack $ case nc of+                    Y.Increase -> "increase"+                    Y.Decrease -> "decrease")+  ++ label "Amount" (Y.unAmount am)+  ++ label "Payee" (Y.unPayee py)+  ++ label "Financial institution ID" (Y.unFitId fd)+  ++ "\n"++showDbPair :: (Y.UNumber, Y.Posting) -> String+showDbPair (Y.UNumber u, p) =+  label "U number" (X.pack . show $ u)+  ++ showPosting p

@@ -1,15 +1,7 @@ -- | Cabin - Penny reports-module Penny.Cabin (allReportsWithDefaults, I.Report(..)) where--import qualified Penny.Cabin.Balance as B-import qualified Penny.Cabin.Posts as P-import qualified Penny.Copper as C-import qualified Penny.Cabin.Interface as I+--+-- Cabin contains reports, or functions that take a list of postings+-- and return a formatted Text to display data in a human-readable+-- format.+module Penny.Cabin where -allReportsWithDefaults ::-  C.DefaultTimeZone-  -> C.RadGroup-  -> [I.Report]-allReportsWithDefaults dtz rg =-  [ B.balanceReport (B.defaultOptions dtz)-  , P.makeReport (P.defaultOptions dtz rg) ]

@@ -1,72 +0,0 @@-module Penny.Cabin.Allocate (-  Allocation,-  allocation,-  unAllocation,-  allocate) where--import qualified Control.Monad.Trans.State as St-import qualified Data.Foldable as F-import qualified Data.Traversable as T-import qualified Data.Map as M--newtype Allocation = Allocation { unAllocation :: Int }-                     deriving (Show, Eq, Ord)--allocation :: Int -> Allocation-allocation i =-  if i < 1-  then error "Allocations must be at least 1"-  else Allocation i---- | Divide up a whole number proportionally into several parts. The--- sum of the parts is guaranteed to add up to original number.-allocate ::-  Ord k-  => M.Map k Allocation-  -- ^ Maps arbitrary unique values to the allocations, so that you-  -- can look up the corresponding allocations.--  -> Int-  -- ^ Allocated values will add up to this number.-  -  -> M.Map k Int-  -- ^ The given number, allocated into proportional parts.--allocate m t = let-  tot = F.sum . fmap (toDouble . unAllocation) $ m-  ratios = fmap ((/tot) . toDouble . unAllocation) m-  rounded = fmap (round . (* (toDouble t))) ratios-  toDouble = fromIntegral :: Int -> Double-  -  in if M.null m-     then M.empty-     else adjust rounded t--adjust ::-  Ord k-  => M.Map k Int-  -> Int-  -> M.Map k Int-adjust ws w = let-  wsInts = fmap fromIntegral ws-  diff = (fromIntegral w) - F.sum wsInts in-  if M.null ws-  then M.empty-  else if diff == 0-       then ws-       else let-         ws' = St.evalState (T.mapM adjustMap ws) diff-         in adjust ws' w---- | The state is the target number minus the current actual total.-adjustMap :: Int -> St.State Int Int-adjustMap w = do-  diff <- St.get-  case compare diff 0 of-    EQ -> return w-    GT -> do-      St.put (pred diff)-      return (succ w)-    LT -> do-      St.put (succ diff)-      return (pred w)

@@ -1,107 +1,21 @@--- | The Penny balance report-module Penny.Cabin.Balance (-  -- * Making reports-  -  -- | Use these functions if you are building a report from your own-  -- code and you are not using the Zinc parser.-  T.report-  , T.nullConvert-  , T.converter-    -    -- * Parsing reports-    -- | For use with the Zinc command line parser.-  , BalanceOpts(..)-  , balanceReport-  , defaultOptions-  , balanceAsIs--  ) where+-- | Penny balance reports. Currently there are two balance reports:+-- the MultiCommodity report, which cannot convert commodities and+-- which therefore might show more than one commodity in a single+-- report, and the Convert report, which uses price data in the Penny+-- file to convert all commodities to a single commodity. The Convert+-- report always displays only one commodity per account and this one+-- commodity for the whole report.+module Penny.Cabin.Balance where -import qualified Penny.Cabin.Balance.Tree as T-import qualified Penny.Cabin.Balance.Parser as P-import qualified Penny.Cabin.Balance.Help as H-import qualified Penny.Cabin.Chunk as Chunk-import qualified Penny.Cabin.Colors as C-import qualified Penny.Cabin.Colors.DarkBackground as Dark+import qualified Penny.Cabin.Balance.MultiCommodity as MC import qualified Penny.Cabin.Interface as I-import qualified Penny.Cabin.Options as CO-import qualified Penny.Copper as Cop-import qualified Penny.Lincoln as L-import qualified Penny.Lincoln.Balance as Bal-import qualified Penny.Shield as S--import qualified Control.Monad.Exception.Synchronous as Ex-import qualified Data.Text as X-import System.Console.MultiArg.Prim (Parser)--data BalanceOpts = BalanceOpts {-  drCrColors :: C.DrCrColors-  , baseColors :: C.BaseColors-  , balanceFormat :: L.BottomLine -> X.Text-  , colorPref :: Chunk.Colors-  , showZeroBalances :: CO.ShowZeroBalances-  , defaultTimeZone :: Cop.DefaultTimeZone-  , convert :: Maybe (L.Commodity, L.DateTime)-  }--toParseOpts :: BalanceOpts -> P.ParseOpts-toParseOpts b = P.ParseOpts {-  P.drCrColors = drCrColors b-  , P.baseColors = baseColors b-  , P.colorPref = colorPref b-  , P.showZeroBalances = showZeroBalances b-  , P.convert = convert b-  }--toTreeOpts :: P.ParseOpts -> BalanceOpts -> T.TreeOpts-toTreeOpts p b = T.TreeOpts {-  T.drCrColors = P.drCrColors p-  , T.baseColors = P.baseColors p-  , T.balanceFormat = balanceFormat b-  , T.showZeroBalances = P.showZeroBalances p-  }--parser :: (S.Runtime -> BalanceOpts) -> Parser I.ReportFunc-parser frt = do-  parsed <- P.parseOptions-  let rf rt _ _ ps pps = do-        let bo = frt rt-            po = toParseOpts bo-        po' <- Ex.mapException showParseErr $-               parsed rt (defaultTimeZone bo) po-        let to = toTreeOpts po' bo-        conv <- case P.convert po' of-          Nothing -> return $ T.nullConvert ps-          Just co -> T.converter co pps ps-        return-          . Chunk.chunksToText (P.colorPref po')-          . concat-          . T.report to-          $ conv-  return rf-        --showParseErr :: P.Error -> X.Text-showParseErr = X.pack . show---balanceReport :: (S.Runtime -> BalanceOpts) -> I.Report-balanceReport f = I.Report H.help "balance" (parser f)---defaultOptions :: Cop.DefaultTimeZone -> S.Runtime -> BalanceOpts-defaultOptions dtz rt = BalanceOpts {-  drCrColors = Dark.drCrColors-  , baseColors = Dark.baseColors-  , balanceFormat = balanceAsIs-  , colorPref = CO.maxCapableColors rt-  , showZeroBalances = CO.ShowZeroBalances False-  , defaultTimeZone = dtz-  , convert = Nothing-  }+import qualified Penny.Cabin.Balance.Convert as C+import qualified Penny.Cabin.Balance.Convert.Options as ConvOpts -balanceAsIs :: L.BottomLine -> X.Text-balanceAsIs n = case n of-  L.Zero -> X.pack "--"-  L.NonZero c -> X.pack . show . L.unQty . Bal.qty $ c+-- | The default multi-commodity balance report.+multiCommodity :: I.Report+multiCommodity = MC.defaultReport +-- | The default converting balance report.+convert :: I.Report+convert = C.cmdLineReport ConvOpts.defaultOptions

@@ -0,0 +1,334 @@+-- | The Convert report. This report converts all account balances to+-- a single commodity, which must be specified.++module Penny.Cabin.Balance.Convert (+  Opts(..)+  , Sorter+  , report+  , cmdLineReport+  , getSorter+  ) where++import Control.Applicative ((<$>), (<*>))+import qualified Control.Monad.Exception.Synchronous as Ex+import qualified Data.Tree as E+import qualified Data.Traversable as Tvbl+import qualified Penny.Cabin.Options as CO+import qualified Penny.Cabin.Parsers as CP+import qualified Penny.Cabin.Scheme as Scheme+import qualified Penny.Cabin.Balance.Util as U+import qualified Penny.Cabin.Balance.Convert.Chunker as K+import qualified Penny.Cabin.Balance.Convert.Options as O+import qualified Penny.Cabin.Balance.Convert.Parser as P+import qualified Penny.Cabin.Interface as I+import qualified Penny.Lincoln as L+import qualified Penny.Lincoln.Balance as Bal+import qualified Penny.Liberty as Ly+import qualified Penny.Shield as S+import qualified Data.Either as Ei+import qualified Data.Map as M+import qualified Data.Text as X+import Data.Monoid (mempty, mappend, mconcat)+import qualified System.Console.MultiArg as MA++-- | Options for the Convert report. These are the only options you+-- need to use if you are supplying options programatically (as+-- opposed to parsing them in from the command line.)+data Opts = Opts+  { balanceFormat :: L.Commodity -> L.Qty -> X.Text+  , showZeroBalances :: CO.ShowZeroBalances+  , sorter :: Sorter+  , target :: L.To+  , dateTime :: L.DateTime+  }++-- | How to sort each line of the report. Each subaccount has only one+-- BottomLine (unlike in the MultiCommodity report, where each+-- subaccount may have more than one BottomLine, one for each+-- commodity.)+type Sorter =+  (L.SubAccount, L.BottomLine)+  -> (L.SubAccount, L.BottomLine)+  -> Ordering++-- | Converts all commodities in a Balance to a single commodity and+-- combines all the BottomLines into one. Fails with an error message+-- if no conversion data is available.+convertBalance ::+  L.PriceDb+  -> L.DateTime+  -> L.To+  -> L.Balance+  -> Ex.Exceptional X.Text L.BottomLine+convertBalance db dt to bal = fmap mconcat r+  where+    r = mapM (convertOne db dt to) . M.assocs . L.unBalance $ bal++-- | Converts a single BottomLine to a new commodity. Fails with an+-- error message if no conversion data is available.+convertOne ::+  L.PriceDb+  -> L.DateTime+  -> L.To+  -> (L.Commodity, L.BottomLine)+  -> Ex.Exceptional X.Text L.BottomLine+convertOne db dt to (cty, bl) =+  case bl of+    L.Zero -> return L.Zero+    L.NonZero (L.Column dc qt) -> Ex.mapExceptional e g ex+      where+        ex = L.convert db dt to am+        am = L.Amount qt cty Nothing Nothing+        e = convertError to (L.From cty)+        g r = L.NonZero (L.Column dc r)++-- | Creates an error message for conversion errors.+convertError ::+  L.To+  -> L.From+  -> L.PriceDbError+  -> X.Text+convertError (L.To to) (L.From fr) e =+  let fromErr = L.unCommodity fr+      toErr = L.unCommodity to+  in case e of+    L.FromNotFound ->+      X.pack "no data to convert from commodity "+      `X.append` fromErr+    L.ToNotFound ->+      X.pack "no data to convert to commodity "+      `X.append` toErr+    L.CpuNotFound ->+      X.pack "no data to convert from commodity "+      `X.append` fromErr+      `X.append` (X.pack " to commodity ")+      `X.append` toErr+      `X.append` (X.pack " at given date and time")+++-- | Create a price database.+buildDb :: [L.PricePoint] -> L.PriceDb+buildDb = foldl f L.emptyDb where+  f db pb = L.addPrice db pb++-- | All data for the report after all balances have been converted to+-- a single commodity and all the sums of the child accounts have been+-- added to the parent accounts.+data ForestAndBL = ForestAndBL {+  _tbForest :: E.Forest (L.SubAccount, L.BottomLine)+  , _tbTotal :: L.BottomLine+  , _tbTo :: L.To+  }++-- | Converts the balance data in preparation for screen rendering.+rows :: ForestAndBL -> ([K.Row], L.To)+rows (ForestAndBL f tot to) = (first:second:rest, to)+  where+    first = K.ROneCol $ K.OneColRow 0 desc+    desc = X.pack "All amounts reported in commodity: "+           `X.append` (L.unCommodity+                       . L.unTo+                       $ to)+    second = K.RMain $ K.MainRow 0 (X.pack "Total") tot+    rest = map mainRow+           . concatMap E.flatten+           . map U.labelLevels+           $ f+++mainRow :: (Int, (L.SubAccount, L.BottomLine)) -> K.Row+mainRow (l, (a, b)) = K.RMain $ K.MainRow l x b+  where+    x = L.text a++-- | The function for the Convert report. Use this function if you are+-- setting the options from a program (as opposed to parsing them in+-- from the command line.) Will fail if the balance conversions fail.+report ::+  Opts+  -> [L.PricePoint]+  -> [L.Box a]+  -> Ex.Exceptional X.Text [Scheme.PreChunk]+report os@(Opts getFmt _ _ _ _) ps bs = do+  fstBl <- sumConvertSort os ps bs+  let (rs, L.To cy) = rows fstBl+      fmt = getFmt cy+  return $ K.rowsToChunks fmt rs+++-- | Creates a report respecting the standard interface for reports+-- whose options are parsed in from the command line.+cmdLineReport+  :: O.DefaultOpts+  -> I.Report+cmdLineReport o rt = (help o, mkMode)+  where+    mkMode _ _ fsf = MA.Mode+      { MA.mName = "convert"+      , MA.mIntersperse = MA.Intersperse+      , MA.mOpts = map (fmap Right) P.allOptSpecs+      , MA.mPosArgs = Left+      , MA.mProcess = process rt o fsf }++process+  :: S.Runtime+  -> O.DefaultOpts+  -> ([L.Transaction] -> [L.Box Ly.LibertyMeta])+  -> [Either String (P.Opts -> Ex.Exceptional String P.Opts)]+  -> Ex.Exceptional String (Either I.HelpStr I.ArgsAndReport)+process rt defaultOpts fsf ls = do+  let (posArgs, parsed) = Ei.partitionEithers ls+      op' = foldl (>>=) (return (O.toParserOpts defaultOpts rt)) parsed+  case op' of+      Ex.Exception s -> Ex.throw s+      Ex.Success g -> return $+        let noDefault = X.pack "no default price found"+        in case fromParsedOpts g of+            NeedsHelp -> Left $ help defaultOpts+            DoReport f ->+              let pr ts pps = do+                    rptOpts <- Ex.fromMaybe noDefault $+                      f pps (O.format defaultOpts)+                    let boxes = fsf ts+                    report rptOpts pps boxes+              in Right (posArgs, pr)+++-- | Sums the balances from the bottom to the top of the tree (so that+-- parent accounts have the sum of the balances of all their+-- children.) Then converts the commodities to a single commodity, and+-- sorts the accounts as requested. Fails if the conversion fails.+sumConvertSort+  :: Opts+  -> [L.PricePoint]+  -> [L.Box a]+  -> Ex.Exceptional X.Text ForestAndBL+sumConvertSort os ps bs = mkResult <$> convertedFrst <*> convertedTot+  where+    (Opts _ szb str tgt dt) = os+    bals = U.balances szb bs+    (frst, tot) = U.sumForest mempty mappend bals+    convertBal (a, bal) =+        (\bl -> (a, bl)) <$> convertBalance db dt tgt bal+    db = buildDb ps+    convertedFrst = mapM (Tvbl.mapM convertBal) frst+    convertedTot = convertBalance db dt tgt tot+    mkResult f t = ForestAndBL (U.sortForest str f) t tgt++-- | Determine the most frequent To commodity.+mostFrequent :: [L.PricePoint] -> Maybe L.To+mostFrequent = U.lastMode . map (L.to . L.price)+++data HelpOrOpts+  = NeedsHelp+  | DoReport ( [L.PricePoint]+               -> (L.Commodity -> L.Qty -> X.Text)+               -> (Maybe Opts))++-- | Get options for the report, depending on what options were parsed+-- from the command line. Fails if the user did not specify a+-- commodity and mostFrequent fails.+fromParsedOpts+  :: P.Opts+  -> HelpOrOpts+fromParsedOpts (P.Opts szb tgt dt so sb hlp) =+  if hlp+  then NeedsHelp+  else DoReport $ \pps fmt -> case tgt of+    P.ManualTarget to ->+      Just $ Opts fmt szb (getSorter so sb) to dt+    P.AutoTarget ->+      case mostFrequent pps of+        Nothing -> Nothing+        Just to ->+          Just $ Opts fmt szb (getSorter so sb) to dt++-- | Returns a function usable to sort pairs of SubAccount and+-- BottomLine depending on how you want them sorted.+getSorter :: CP.SortOrder -> P.SortBy -> Sorter+getSorter o b = flipper f+  where+    flipper = case o of+      CP.Ascending -> id+      CP.Descending ->+        \g p1 p2 -> case g p1 p2 of+            LT -> GT+            GT -> LT+            EQ -> EQ+    f p1@(a1, _) p2@(a2, _) = case b of+      P.SortByName -> compare a1 a2+      P.SortByQty -> cmpBottomLine p1 p2++cmpBottomLine :: Sorter+cmpBottomLine (n1, bl1) (n2, bl2) =+  case (bl1, bl2) of+    (L.Zero, L.Zero) -> EQ+    (L.NonZero _, L.Zero) -> LT+    (L.Zero, L.NonZero _) -> GT+    (L.NonZero c1, L.NonZero c2) ->+      mconcat [dc, qt, na]+      where+        dc = case (Bal.drCr c1, Bal.drCr c2) of+          (L.Debit, L.Debit) -> EQ+          (L.Debit, L.Credit) -> LT+          (L.Credit, L.Debit) -> GT+          (L.Credit, L.Credit) -> EQ+        qt = compare (Bal.qty c1) (Bal.qty c2)+        na = compare n1 n2++------------------------------------------------------------+-- ## Help+------------------------------------------------------------+ifDefault :: Bool -> String+ifDefault b = if b then " (default)" else ""++help :: O.DefaultOpts -> String+help o = unlines $+  [ "convert"+  , "  Show account balances, after converting all amounts"+  , "  to a single commodity. Accepts ONLY the following options:"+  , ""+  , "--show-zero-balances"+  , "  Show balances that are zero"+    ++ ifDefault (CO.unShowZeroBalances . O.showZeroBalances $ o)+  , "--hide-zero-balances"+  , "  Hide balances that are zero"+    ++ ifDefault (not . CO.unShowZeroBalances . O.showZeroBalances $ o)+  , ""+  , "--commodity TARGET-COMMMODITY, -c TARGET-COMMODITY"+  , "  Convert all commodities to TARGET-COMMODITY."+  ] ++ case O.target o of+        P.ManualTarget (L.To cy) ->+          [ "  default: " ++ (X.unpack . L.unCommodity $ cy) ]+        _ -> []+    +++  [ "--auto-commodity"+  , "  convert all commodities to the commodity that appears most"+  , "  often as the target commodity in your price data. If"+  , "  there is a tie, the price closest to the end of your list"+  , "  of prices is used."+    ++ case O.target o of+        P.AutoTarget -> " (default)"+        _ -> ""+  , ""+  , "--date DATE-TIME, -d DATE-TIME"+  , "  Convert prices as of the date and time given"+  , "  (by default, the current date and time is used.)"+  , ""+  , "--sort qty|name, -s qty|name"+  , "  Sort balances by sub-account name"+    ++ ifDefault (O.sortBy o == P.SortByName)+    ++ " or by quantity"+    ++ ifDefault (O.sortBy o == P.SortByQty)+  , "--ascending"+  , "  Sort in ascending order"+    ++ ifDefault (O.sortOrder o == CP.Ascending)+  , "--descending"+  , "  Sort in descending order"+    ++ ifDefault (O.sortOrder o == CP.Descending)+  , ""+  , "--help, -h"+  , "  Show this help and exit"+  ]+

@@ -0,0 +1,227 @@+-- | Creates the output Chunks for the Balance report for+-- multi-commodity reports only.++module Penny.Cabin.Balance.Convert.Chunker (+  MainRow(..),+  OneColRow(..),+  Row(..),+  rowsToChunks+  ) where+++import Control.Applicative+  (Applicative (pure), (<$>), (<*>))+import qualified Penny.Cabin.Scheme as E+import qualified Penny.Cabin.Chunk as Chunk+import qualified Penny.Cabin.Meta as Meta+import qualified Penny.Cabin.Row as R+import qualified Penny.Lincoln as L+import qualified Data.Foldable as Fdbl+import qualified Data.Text as X++type IsEven = Bool++data Columns a = Columns {+  acct :: a+  , drCr :: a+  , quantity :: a+  } deriving Show++instance Functor Columns where+  fmap f c = Columns {+    acct = f (acct c)+    , drCr = f (drCr c)+    , quantity = f (quantity c)+    }++instance Applicative Columns where+  pure a = Columns a a a+  fn <*> fa = Columns {+    acct = (acct fn) (acct fa)+    , drCr = (drCr fn) (drCr fa)+    , quantity = (quantity fn) (quantity fa)+     }++data PreSpec = PreSpec {+  _justification :: R.Justification+  , _padSpec :: (E.Label, E.EvenOdd)+  , bits :: E.PreChunk }++-- | When given a list of columns, determine the widest row in each+-- column.+maxWidths :: [Columns PreSpec] -> Columns R.Width+maxWidths = Fdbl.foldl' maxWidthPerColumn (pure (R.Width 0))++-- | Applied to a Columns of PreSpec and a Colums of widths, return a+-- Columns that has the wider of the two values.+maxWidthPerColumn ::+  Columns R.Width+  -> Columns PreSpec+  -> Columns R.Width+maxWidthPerColumn w p = f <$> w <*> p where+  f old new = max old (E.width . bits $ new)++-- | Changes a single set of Columns to a set of ColumnSpec of the+-- given width.+preSpecToSpec ::+  Columns R.Width+  -> Columns PreSpec+  -> Columns R.ColumnSpec+preSpecToSpec ws p = f <$> ws <*> p where+  f width (PreSpec j ps bs) = R.ColumnSpec j width ps [bs]++resizeColumnsInList :: [Columns PreSpec] -> [Columns R.ColumnSpec]+resizeColumnsInList cs = map (preSpecToSpec w) cs where+  w = maxWidths cs+++widthSpacerAcct :: Int+widthSpacerAcct = 4++widthSpacerDrCr :: Int+widthSpacerDrCr = 1++colsToBits ::+  IsEven+  -> Columns R.ColumnSpec+  -> [E.PreChunk]+colsToBits isEven (Columns a dc q) = let+  fillSpec = if isEven+             then (E.Other, E.Even)+             else (E.Other, E.Odd)+  spacer w = R.ColumnSpec j (Chunk.Width w) fillSpec []+  j = R.LeftJustify+  cs = a+       : spacer widthSpacerAcct+       : dc+       : spacer widthSpacerDrCr+       : q+       : []+  in R.row cs++colsListToBits+  :: [Columns R.ColumnSpec]+  -> [[E.PreChunk]]+colsListToBits = zipWith f bools where+  f b c = colsToBits b c+  bools = iterate not True++preSpecsToBits+  :: [Columns PreSpec]+  -> [E.PreChunk]+preSpecsToBits =+  concat+  . colsListToBits+  . resizeColumnsInList++data Row = RMain MainRow | ROneCol OneColRow++-- | Displays a one-column row.+data OneColRow = OneColRow {+  ocIndentation :: Int+  -- ^ Indent the text by this many levels (not by this many+  -- spaces; this number is multiplied by another number in the+  -- Chunker source to arrive at the final indentation amount)++  , ocText :: X.Text+  -- ^ Text for the left column+  }++-- | Displays a single account in a Balance report. In a+-- single-commodity report, this account will only be one screen line+-- long. In a multi-commodity report, it might be multiple lines long,+-- with one screen line for each commodity.+data MainRow = MainRow {+  mrIndentation :: Int+  -- ^ Indent the account name by this many levels (not by this many+  -- spaces; this number is multiplied by another number in the+  -- Chunker source to arrive at the final indentation amount)++  , mrText :: X.Text+  -- ^ Text for the name of the account++  , mrBottomLine :: L.BottomLine+  -- ^ Commodity balances. If this list is empty, dashes are+  -- displayed for the DrCr and Qty.+  }+++rowsToChunks ::+  (L.Qty -> X.Text)+  -- ^ How to format a balance to allow for digit grouping+  -> [Row]+  -> [E.PreChunk]+rowsToChunks fmt =+  preSpecsToBits+  . rowsToColumns fmt++rowsToColumns ::+  (L.Qty -> X.Text)+  -- ^ How to format a balance to allow for digit grouping++  -> [Row]+  -> [Columns PreSpec]+rowsToColumns fmt rs = map (mkRow fmt) pairs+  where+    pairs = Meta.visibleNums (,) rs+++mkRow ::+  (L.Qty -> X.Text)+  -> (Meta.VisibleNum, Row)+  -> Columns PreSpec+mkRow fmt (vn, r) = case r of+  RMain m -> mkMainRow fmt (vn, m)+  ROneCol c -> mkOneColRow (vn, c)++mkOneColRow ::+  (Meta.VisibleNum, OneColRow)+  -> Columns PreSpec+mkOneColRow (vn, (OneColRow i t)) = Columns ca cd cq+  where+    txt = X.append indents t+    indents = X.replicate (indentAmount * max 0 i)+              (X.singleton ' ')+    eo = E.fromVisibleNum vn+    lbl = E.Other+    ca = PreSpec R.LeftJustify (lbl, eo) (E.PreChunk lbl eo txt)+    cd = PreSpec R.LeftJustify (lbl, eo) (E.PreChunk lbl eo X.empty)+    cq = cd++mkMainRow ::+  (L.Qty -> X.Text)+  -> (Meta.VisibleNum, MainRow)+  -> Columns PreSpec+mkMainRow fmt (vn, (MainRow i acctTxt b)) = Columns ca cd cq+  where+    eo = E.fromVisibleNum vn+    lbl = E.Other+    ca = PreSpec R.LeftJustify (lbl, eo) (E.PreChunk lbl eo txt)+      where+        txt = X.append indents acctTxt+        indents = X.replicate (indentAmount * max 0 i)+                  (X.singleton ' ')+    cd = PreSpec R.LeftJustify (lbl, eo) cksDrCr+    cq = PreSpec R.LeftJustify (lbl, eo) cksQty+    (cksDrCr, cksQty) = balanceChunks fmt vn b+++balanceChunks ::+  (L.Qty -> X.Text)+  -> Meta.VisibleNum+  -> L.BottomLine+  -> (E.PreChunk, E.PreChunk)+balanceChunks fmt vn bl = (chkDc, chkQt)+  where+    eo = E.fromVisibleNum vn+    chkDc = E.bottomLineToDrCr bl eo+    chkQt = E.PreChunk lbl eo t+      where+        (lbl, t) = case bl of+          L.Zero -> (E.Zero, X.pack "--")+          L.NonZero (L.Column dc qt) -> (E.dcToLbl dc, fmt qt)+++indentAmount :: Int+indentAmount = 2+

@@ -0,0 +1,44 @@+-- | Default options for the Convert report when used from the command+-- line.+module Penny.Cabin.Balance.Convert.Options where++import qualified Penny.Cabin.Balance.Convert.Parser as P+import qualified Penny.Cabin.Parsers as CP+import qualified Penny.Cabin.Options as CO+import qualified Penny.Lincoln as L+import qualified Penny.Shield as S+import qualified Data.Text as X++-- | Default options for the Convert report. This record is used as+-- the starting point when parsing in options from the command+-- line. You don't need to use it if you are setting the options for+-- the Convert report directly from your own code.++data DefaultOpts = DefaultOpts+  { showZeroBalances :: CO.ShowZeroBalances+  , target :: P.Target+  , sortOrder :: CP.SortOrder+  , sortBy :: P.SortBy+  , format :: L.Commodity -> L.Qty -> X.Text+  }++toParserOpts :: DefaultOpts -> S.Runtime -> P.Opts+toParserOpts d rt = P.Opts+  { P.showZeroBalances = showZeroBalances d+  , P.target = target d+  , P.dateTime = S.currentTime rt+  , P.sortOrder = sortOrder d+  , P.sortBy = sortBy d+  , P.showHelp = False+  }++defaultOptions :: DefaultOpts+defaultOptions = DefaultOpts+  { showZeroBalances = CO.ShowZeroBalances False+  , target = P.AutoTarget+  , sortOrder = CP.Ascending+  , sortBy = P.SortByName+  , format = \_ q -> X.pack . show $ q+  }++

@@ -0,0 +1,94 @@+-- | Parsing options for the Convert report from the command line.+module Penny.Cabin.Balance.Convert.Parser (+  Opts(..)+  , Target(..)+  , SortBy(..)+  , allOptSpecs+  ) where+++import qualified Control.Monad.Exception.Synchronous as Ex+import qualified Data.Text as X+import qualified Penny.Cabin.Options as CO+import qualified Penny.Cabin.Parsers as P+import qualified Penny.Lincoln as L+import qualified Penny.Copper.Parsec as Pc+import qualified System.Console.MultiArg.Combinator as C+import qualified Text.Parsec as Parsec+++-- | Is the target commodity determined by the user or automatically?+data Target = AutoTarget | ManualTarget L.To++data SortBy = SortByQty | SortByName deriving (Eq, Show, Ord)++-- | Default starting options for the Convert report. After+-- considering what is parsed in from the command line and price data,+-- a Convert.Opts will be generated.+data Opts = Opts+  { showZeroBalances :: CO.ShowZeroBalances+  , target :: Target+  , dateTime :: L.DateTime+  , sortOrder :: P.SortOrder+  , sortBy :: SortBy+  , showHelp :: Bool+  }++-- | Do not be tempted to change the setup in this module so that the+-- individual functions such as parseColor and parseBackground return+-- parsers rather than OptSpec. Such an arrangement breaks the correct+-- parsing of abbreviated long options.+allOptSpecs :: [C.OptSpec (Opts -> Ex.Exceptional String Opts)]+allOptSpecs =+  [ fmap toExc parseZeroBalances+  , parseCommodity+  , fmap toExc parseAuto+  , parseDate+  , fmap toExc parseSort+  , fmap toExc parseOrder+  , fmap toExc parseHelp ]+  where+    toExc f = return . f++parseZeroBalances :: C.OptSpec (Opts -> Opts)+parseZeroBalances = fmap f P.zeroBalances+  where+    f x o = o { showZeroBalances = x }+++parseCommodity :: C.OptSpec (Opts -> Ex.Exceptional String Opts)+parseCommodity = C.OptSpec ["commodity"] "c" (C.OneArg f)+  where+    f a1 os =+      case Parsec.parse Pc.lvl1Cmdty "" (X.pack a1) of+        Left _ -> Ex.throw $ "invalid commodity: " ++ a1+        Right g -> return $ os { target = ManualTarget . L.To $ g }++parseAuto :: C.OptSpec (Opts -> Opts)+parseAuto = C.OptSpec ["auto-commodity"] "" (C.NoArg f)+  where+    f os = os { target = AutoTarget }++parseDate :: C.OptSpec (Opts -> Ex.Exceptional String Opts)+parseDate = C.OptSpec ["date"] "d" (C.OneArg f)+  where+    f a1 os =+      case Parsec.parse Pc.dateTime "" (X.pack a1) of+        Left _ -> Ex.throw $ "invalid date: " ++ a1+        Right g -> return $ os { dateTime = g }++parseSort :: C.OptSpec (Opts -> Opts)+parseSort = C.OptSpec ["sort"] "s" (C.ChoiceArg ls)+  where+    ls = [ ("qty", (\os -> os { sortBy = SortByQty }))+         , ("name", (\os -> os { sortBy = SortByName })) ]++parseOrder :: C.OptSpec (Opts -> Opts)+parseOrder = fmap f P.order+  where+    f x o = o { sortOrder = x }++parseHelp :: C.OptSpec (Opts -> Opts)+parseHelp = fmap f P.help+  where+    f _ o = o { showHelp = True }

@@ -1,34 +0,0 @@-module Penny.Cabin.Balance.Help where--import qualified Data.Text as X--help :: X.Text-help = X.pack helpStr--helpStr :: String-helpStr = unlines [-  "balance, bal",-  "  Show account balances. Accepts ONLY the following options:",-  "",-  "    --color yes|no|auto|256",-  "    yes: show 8 colors always",-  "    no: never show colors",-  "    auto: show 8 or 256 colors, but only if stdout is a terminal",-  "    256: show 256 colors always",-  "  --background light|dark",-  "    Use appropriate color scheme for terminal background",-  "",-  "  --show-zero-balances",-  "    Show balances that are zero",-  "  --hide-zero-balances",-  "    Hide balances that are zero",-  "",-  "  --convert commodity dateTime",-  "    Convert all commodities to the given commodity using their",-  "    price at the given date (and, optionally, time.) Fails if",-  "    any commodity does not have the necessary price.",-  "  -c commodity",-  "    Same as \"--convert commodity [right now]\"",-  ""-  ]-  

@@ -0,0 +1,173 @@+-- | The multi-commodity Balance report. This is the simpler balance+-- report because it does not allow for commodities to be converted.++module Penny.Cabin.Balance.MultiCommodity (+  Opts(..),+  defaultOpts,+  defaultParseOpts,+  defaultFormat,+  parseReport,+  defaultReport,+  report+  ) where++import Control.Applicative (Applicative, pure)+import qualified Penny.Cabin.Balance.Util as U+import qualified Penny.Cabin.Scheme as E+import qualified Penny.Lincoln as L+import qualified Penny.Liberty as Ly+import qualified Data.Either as Ei+import qualified Data.Map as M+import qualified Penny.Cabin.Options as CO+import Data.Monoid (mappend, mempty)+import qualified Data.Text as X+import qualified Data.Tree as E+import qualified Penny.Cabin.Balance.MultiCommodity.Chunker as K+import qualified Penny.Cabin.Balance.MultiCommodity.Parser as P+import qualified Penny.Cabin.Interface as I+import qualified Penny.Cabin.Parsers as CP+import qualified System.Console.MultiArg as MA++-- | Options for making the balance report. These are the only options+-- needed to make the report if the options are not being parsed in+-- from the command line.+data Opts = Opts+  { balanceFormat :: L.Commodity -> L.Qty -> X.Text+  , showZeroBalances :: CO.ShowZeroBalances+  , order :: L.SubAccount -> L.SubAccount -> Ordering+  }++defaultOpts :: Opts+defaultOpts = Opts+  { balanceFormat = defaultFormat+  , showZeroBalances = CO.ShowZeroBalances True+  , order = compare+  }++defaultParseOpts :: P.ParseOpts+defaultParseOpts = P.ParseOpts+  { P.showZeroBalances = CO.ShowZeroBalances False+  , P.order = CP.Ascending+  , P.needsHelp = False+  }++fromParseOpts ::+  (L.Commodity -> L.Qty -> X.Text)+  -> P.ParseOpts+  -> Opts+fromParseOpts fmt (P.ParseOpts szb o _) = Opts fmt szb o'+  where+    o' = case o of+       CP.Ascending -> compare+       CP.Descending -> CO.descending compare++defaultFormat :: a -> L.Qty -> X.Text+defaultFormat _ = X.pack . show++summedSortedBalTree ::+  CO.ShowZeroBalances+  -> (L.SubAccount -> L.SubAccount -> Ordering)+  -> [L.Box a]+  -> (E.Forest (L.SubAccount, L.Balance), L.Balance)+summedSortedBalTree szb o =+  U.sumForest mempty mappend+  . U.sortForest o'+  . U.balances szb+  where+    o' x y = o (fst x) (fst y)++rows ::+  (E.Forest (L.SubAccount, L.Balance), L.Balance)+  -> [K.Row]+rows (o, b) = first:rest+  where+    first = K.Row 0 (X.pack "Total") (M.assocs . L.unBalance $ b)+    rest = map row . concatMap E.flatten . map U.labelLevels $ o+    row (l, (s, ib)) =+      K.Row l (L.text s) (M.assocs . L.unBalance $ ib)++-- | This report is what to use if you already have your options (that+-- is, you are not parsing them in from the command line.)+report :: Opts -> [L.Box a] -> [E.PreChunk]+report (Opts bf szb o) =+  K.rowsToChunks bf+  . rows+  . summedSortedBalTree szb o++-- | The MultiCommodity report with configurable options that have+-- been parsed from the command line.+parseReport ::+  (L.Commodity -> L.Qty -> X.Text)+  -- ^ How to format balances. For instance you can use this to+  -- perform commodity-sensitive digit grouping.++  -> P.ParseOpts+  -- ^ Default options for the report. These can be overriden on the+  -- command line.++  -> I.Report+parseReport fmt o rt = (help o, makeMode)+  where+    makeMode _ _ fsf = MA.Mode+      { MA.mName = "balance"+      , MA.mIntersperse = MA.Intersperse+      , MA.mOpts = map (fmap Right) P.allSpecs+      , MA.mPosArgs = Left+      , MA.mProcess = process fmt o rt fsf+      }++process+  :: Applicative f+  => (L.Commodity -> L.Qty -> X.Text)+  -> P.ParseOpts+  -> a+  -> ([L.Transaction] -> [L.Box Ly.LibertyMeta])+  -> [Either String (P.ParseOpts -> P.ParseOpts)]+  -> f (Either I.HelpStr I.ArgsAndReport)+process fmt o _ fsf ls =+  let (posArgs, fns) = Ei.partitionEithers ls+      mkParsedOpts = foldl (flip (.)) id fns+      os' = mkParsedOpts o+      mcOpts = fromParseOpts fmt os'+      pr txns _ = return $ report mcOpts (fsf txns)+  in pure $ if P.needsHelp os'+            then Left $ help o+            else Right (posArgs, pr)+++-- | The MultiCommodity report, with default options.+defaultReport :: I.Report+defaultReport = parseReport defaultFormat defaultParseOpts++------------------------------------------------------------+-- ## Help+------------------------------------------------------------+ifDefault :: Bool -> String+ifDefault b = if b then " (default)" else ""++help :: P.ParseOpts -> String+help o = unlines+  [ "balance"+  , "  Show account balances. Accepts ONLY the following options:"+  , ""+  , "--show-zero-balances"+  , "  Show balances that are zero"+    ++ ifDefault (CO.unShowZeroBalances . P.showZeroBalances $ o)+  , "--hide-zero-balances"+  , "  Hide balances that are zero"+    ++ ifDefault ( not . CO.unShowZeroBalances+                 . P.showZeroBalances $ o)+  , ""+  , "--ascending"+  , "  Sort in ascending order by account name"+    ++ ifDefault (P.order o == CP.Ascending)++  , "--descending"+  , "  Sort in descending order by account name"+    ++ ifDefault (P.order o == CP.Descending)++  , ""+  , "--help, -h"+  , "  Show this help and exit"+  ]+

@@ -0,0 +1,212 @@+-- | Creates the output Chunks for the Balance report for both+-- multi-commodity reports.++module Penny.Cabin.Balance.MultiCommodity.Chunker (+  Row(..),+  rowsToChunks+  ) where+++import Control.Applicative+  (Applicative (pure), (<$>), (<*>))+import qualified Penny.Cabin.Chunk as Chunk+import qualified Penny.Cabin.Meta as Meta+import qualified Penny.Cabin.Row as R+import qualified Penny.Cabin.Scheme as E+import qualified Penny.Lincoln as L+import qualified Data.Foldable as Fdbl+import qualified Data.Text as X++type IsEven = Bool++data Columns a = Columns {+  acct :: a+  , drCr :: a+  , commodity :: a+  , quantity :: a+  } deriving Show++instance Functor Columns where+  fmap f c = Columns {+    acct = f (acct c)+    , drCr = f (drCr c)+    , commodity = f (commodity c)+    , quantity = f (quantity c)+    }++instance Applicative Columns where+  pure a = Columns a a a a+  fn <*> fa = Columns {+    acct = (acct fn) (acct fa)+    , drCr = (drCr fn) (drCr fa)+    , commodity = (commodity fn) (commodity fa)+    , quantity = (quantity fn) (quantity fa)+     }++data PreSpec = PreSpec {+  _justification :: R.Justification+  , _padSpec :: (E.Label, E.EvenOdd)+  , bits :: [E.PreChunk] }++-- | When given a list of columns, determine the widest row in each+-- column.+maxWidths :: [Columns PreSpec] -> Columns R.Width+maxWidths = Fdbl.foldl' maxWidthPerColumn (pure (R.Width 0))++-- | Applied to a Columns of PreSpec and a Colums of widths, return a+-- Columns that has the wider of the two values.+maxWidthPerColumn ::+  Columns R.Width+  -> Columns PreSpec+  -> Columns R.Width+maxWidthPerColumn w p = f <$> w <*> p where+  f old new = max old ( safeMaximum (R.Width 0)+                        . map E.width . bits $ new)+  safeMaximum d ls = if null ls then d else maximum ls++-- | Changes a single set of Columns to a set of ColumnSpec of the+-- given width.+preSpecToSpec ::+  Columns R.Width+  -> Columns PreSpec+  -> Columns R.ColumnSpec+preSpecToSpec ws p = f <$> ws <*> p where+  f width (PreSpec j ps bs) = R.ColumnSpec j width ps bs++resizeColumnsInList :: [Columns PreSpec] -> [Columns R.ColumnSpec]+resizeColumnsInList cs = map (preSpecToSpec w) cs where+  w = maxWidths cs+++-- Step 9+widthSpacerAcct :: Int+widthSpacerAcct = 4++widthSpacerDrCr :: Int+widthSpacerDrCr = 1++widthSpacerCommodity :: Int+widthSpacerCommodity = 1++colsToBits ::+  IsEven+  -> Columns R.ColumnSpec+  -> [E.PreChunk]+colsToBits isEven (Columns a dc c q) = let+  fillSpec = if isEven+             then (E.Other, E.Even)+             else (E.Other, E.Odd)+  spacer w = R.ColumnSpec j (Chunk.Width w) fillSpec []+  j = R.LeftJustify+  cs = a+       : spacer widthSpacerAcct+       : dc+       : spacer widthSpacerDrCr+       : c+       : spacer widthSpacerCommodity+       : q+       : []+  in R.row cs++colsListToBits+  :: [Columns R.ColumnSpec]+  -> [[E.PreChunk]]+colsListToBits = zipWith f bools where+  f b c = colsToBits b c+  bools = iterate not True++preSpecsToBits+  :: [Columns PreSpec]+  -> [E.PreChunk]+preSpecsToBits =+  concat+  . colsListToBits+  . resizeColumnsInList++-- | Displays a single account in a Balance report. In a+-- single-commodity report, this account will only be one screen line+-- long. In a multi-commodity report, it might be multiple lines long,+-- with one screen line for each commodity.+data Row = Row+  { indentation :: Int+  -- ^ Indent the account name by this many levels (not by this many+  -- spaces; this number is multiplied by another number in the+  -- Chunker source to arrive at the final indentation amount)++  , accountTxt :: X.Text+    -- ^ Text for the name of the account++  , balances :: [(L.Commodity, L.BottomLine)]+    -- ^ Commodity balances. If this list is empty, dashes are+    -- displayed for the DrCr, Commodity, and Qty.+  }++rowsToChunks ::+  (L.Commodity -> L.Qty -> X.Text)+  -- ^ How to format a balance to allow for digit grouping+  -> [Row]+  -> [E.PreChunk]+rowsToChunks fmt =+  preSpecsToBits+  . rowsToColumns fmt++rowsToColumns ::+  (L.Commodity -> L.Qty -> X.Text)+  -- ^ How to format a balance to allow for digit grouping++  -> [Row]+  -> [Columns PreSpec]+rowsToColumns fmt rs = map (mkColumn fmt) pairs+  where+    pairs = Meta.visibleNums (,) rs+++mkColumn ::+  (L.Commodity -> L.Qty -> X.Text)+  -> (Meta.VisibleNum, Row)+  -> Columns PreSpec+mkColumn fmt (vn, (Row i acctTxt bs)) = Columns ca cd cc cq+  where+    lbl = E.Other+    eo = E.fromVisibleNum vn+    ca = PreSpec R.LeftJustify (lbl, eo) [E.PreChunk lbl eo txt]+      where+        txt = X.append indents acctTxt+        indents = X.replicate (indentAmount * max 0 i)+                  (X.singleton ' ')+    cd = PreSpec R.LeftJustify (lbl, eo) cksDrCr+    cc = PreSpec R.RightJustify (lbl, eo) cksCmdty+    cq = PreSpec R.LeftJustify (lbl, eo) cksQty+    (cksDrCr, cksCmdty, cksQty) =+      if null bs+      then balanceChunksEmpty eo+      else+        let balChks = map (balanceChunks fmt eo) bs+            cDrCr = map (\(a, _, _) -> a) balChks+            cCmdty = map (\(_, a, _) -> a) balChks+            cQty = map (\(_, _, a) -> a) balChks+        in (cDrCr, cCmdty, cQty)+++balanceChunksEmpty+  :: E.EvenOdd+  -> ([E.PreChunk], [E.PreChunk], [E.PreChunk])+balanceChunksEmpty eo = (dash, dash, dash)+  where+    dash = [E.PreChunk E.Zero eo (X.pack "--")]++balanceChunks+  :: (L.Commodity -> L.Qty -> X.Text)+  -> E.EvenOdd+  -> (L.Commodity, L.BottomLine)+  -> (E.PreChunk, E.PreChunk, E.PreChunk)+balanceChunks fmt eo (cty, bl) = (chkDc, chkCt, chkQt)+  where+    chkDc = E.bottomLineToDrCr bl eo+    chkCt = E.bottomLineToCmdty eo (cty, bl)+    chkQt = E.bottomLineToQty fmt eo (cty, bl)+++indentAmount :: Int+indentAmount = 2+

@@ -0,0 +1,35 @@+module Penny.Cabin.Balance.MultiCommodity.Parser (+  ParseOpts(..)+  , allSpecs+  ) where++import qualified Penny.Cabin.Options as CO+import qualified Penny.Cabin.Parsers as P+import qualified System.Console.MultiArg as MA++-- | Options for the Balance report that have been parsed from the+-- command line.+data ParseOpts = ParseOpts+  { showZeroBalances :: CO.ShowZeroBalances+  , order :: P.SortOrder+  , needsHelp :: Bool+  }+++parseHelp :: MA.OptSpec (ParseOpts -> ParseOpts)+parseHelp = fmap f P.help+  where+    f _ o = o { needsHelp = True }++zeroBalances :: MA.OptSpec (ParseOpts -> ParseOpts)+zeroBalances = fmap toResult P.zeroBalances+  where+    toResult szb o = o { showZeroBalances = szb }++parseOrder :: MA.OptSpec (ParseOpts -> ParseOpts)+parseOrder = fmap toResult P.order+  where+    toResult x o = o { order = x }++allSpecs :: [MA.OptSpec (ParseOpts -> ParseOpts)]+allSpecs = [parseHelp, zeroBalances, parseOrder]

@@ -1,156 +0,0 @@-module Penny.Cabin.Balance.Parser (-  Error(..)-  , ParseOpts(..)-  , parseOptions-  ) where--import qualified Data.Text as X-import Control.Applicative ((<|>), many, Applicative, pure)-import Control.Monad ((>=>))-import qualified Control.Monad.Exception.Synchronous as Ex-import qualified Penny.Cabin.Colors as Col-import qualified Penny.Cabin.Colors.DarkBackground as DB-import qualified Penny.Cabin.Colors.LightBackground as LB-import qualified Penny.Cabin.Chunk as Chk-import qualified Penny.Cabin.Options as CO-import qualified Penny.Copper.Commodity as CC-import qualified Penny.Copper.DateTime as CD-import qualified Penny.Lincoln as L-import qualified Penny.Shield as S-import System.Console.MultiArg.Prim (Parser)-import qualified System.Console.MultiArg.Combinator as C-import qualified Text.Parsec as Parsec--data ParseOpts = ParseOpts {-  drCrColors :: Col.DrCrColors-  , baseColors :: Col.BaseColors-  , colorPref :: Chk.Colors-  , showZeroBalances :: CO.ShowZeroBalances-  , convert :: Maybe (L.Commodity, L.DateTime)-  }---data Error = BadColorName String-           | BadBackground String-           | BadCommodity String-           | BadDate String-             deriving Show---processColorArg ::-  S.Runtime-  -> String-  -> Maybe Chk.Colors-processColorArg rt x-  | x == "yes" = return Chk.Colors8-  | x == "no" = return Chk.Colors0-  | x == "auto" = return (CO.maxCapableColors rt)-  | x == "256" = return Chk.Colors256-  | otherwise = Nothing--parseOpt :: [String] -> [Char] -> C.ArgSpec a -> Parser a-parseOpt ss cs a = C.parseOption [C.OptSpec ss cs a]--color :: Parser (S.Runtime-                 -> ParseOpts-                 -> Ex.Exceptional Error ParseOpts)-color = parseOpt ["color"] "" (C.OneArg f)-  where-    f a1 rt op = case processColorArg rt a1 of-      Nothing -> Ex.throw . BadColorName $ a1-      Just c -> return (op { colorPref = c })--processBackgroundArg ::-  String-  -> Maybe (Col.DrCrColors, Col.BaseColors)-processBackgroundArg x-  | x == "light" = return (LB.drCrColors, LB.baseColors)-  | x == "dark" = return (DB.drCrColors, DB.baseColors)-  | otherwise = Nothing---background :: Parser (ParseOpts -> Ex.Exceptional Error ParseOpts)-background = parseOpt ["background"] "" (C.OneArg f)-  where-    f a1 op = case processBackgroundArg a1 of-      Nothing -> Ex.throw . BadBackground $ a1-      Just (dc, base) ->-        return op { drCrColors = dc-                  , baseColors = base }--parseShowZeroBalances :: Parser (ParseOpts -> ParseOpts)-parseShowZeroBalances = parseOpt opt "" (C.NoArg f)-  where-    opt = ["show-zero-balances"] -    f op =-      op {showZeroBalances = CO.ShowZeroBalances True }--hideZeroBalances :: Parser (ParseOpts -> ParseOpts)-hideZeroBalances = parseOpt ["hide-zero-balances"] "" (C.NoArg f)-  where-    f op =-      op {showZeroBalances = CO.ShowZeroBalances False }--convertLong ::-  Parser (CD.DefaultTimeZone-          -> ParseOpts-          -> Ex.Exceptional Error ParseOpts)-convertLong = parseOpt ["convert"] "" (C.TwoArg f)-  where-    f a1 a2 dtz op = do-      cty <- case Parsec.parse CC.lvl1Cmdty "" (X.pack a1) of-        Left _ -> Ex.throw . BadCommodity $ a1-        Right g -> return g-      let parseDate = CD.dateTime dtz-      dt <- case Parsec.parse parseDate "" (X.pack a2) of-        Left _ -> Ex.throw . BadDate $ a2-        Right g -> return g-      let op' = op { convert = Just (cty, dt) }-      return op'--convertShort :: Parser (S.Runtime-                        -> ParseOpts-                        -> Ex.Exceptional Error ParseOpts)-convertShort = parseOpt [] ['c'] (C.OneArg f)-  where-    f a1 rt op = do-      cty <- case Parsec.parse CC.lvl1Cmdty "" (X.pack a1) of-        Left _ -> Ex.throw . BadCommodity $ a1-        Right g -> return g-      let dt = S.currentTime rt-          op' = op { convert = Just (cty, dt) }-      return op'-        --parseOptions :: Parser (S.Runtime-                        -> CD.DefaultTimeZone-                        -> ParseOpts-                        -> Ex.Exceptional Error ParseOpts)-parseOptions = do-  fns <- many parseOption-  let f rt dtz o1 =-        let fns' = map (\fn -> fn rt dtz) fns-        in foldl (>=>) return fns' o1-  return f--parseOption :: Parser (S.Runtime-                       -> CD.DefaultTimeZone-                       -> ParseOpts-                       -> Ex.Exceptional Error ParseOpts)-parseOption =-  (do { f <- color; return (\rt _ o -> f rt o )})-  <|> wrap background-  <|> wrap (impurify parseShowZeroBalances)-  <|> wrap (impurify hideZeroBalances)-  <|> (do { f <- convertLong; return (\_ dtz o -> f dtz o )})-  <|> (do { f <- convertShort; return (\rt _ o -> f rt o )})-  where-    wrap p = do-      f <- p-      return (\_ _ op -> f op)--impurify ::-  (Applicative m, Functor f)-  => f (a -> a)-  -> f (a -> m a)-impurify = fmap (\f -> pure . f)

@@ -1,468 +0,0 @@--- | Takes postings and places them into a tree for further--- processing.------ Steps:------ * 1. [LT.PostingInfo] -> [PriceConverted]------ * 2. [PriceConverted] -> FlatMap------ * 3. FlatMap -> RawBals------ * 4. RawBals -> (SummedBals, TotalBal)------ * 5. (SummedBals, TotalBal) -> (SummedWithIsEven, TotalBal)------ * 6. (SummedWithIsEven, TotalBal) -> (PreSpecMap, TotalBal)------ * 7. (PreSpecMap, TotalBal) -> [Columns PreSpec]------ * 8. [Columns PreSpec] -> [Columns R.ColumnSpec] (strict)------ * 9. [Columns R.ColumnSpec] -> [[Chunk.Bit]] (lazy)-module Penny.Cabin.Balance.Tree (-  report-  , TreeOpts(..)-  , PriceConverteds-  , nullConvert-  , converter-  ) where--import Control.Applicative(Applicative(pure, (<*>)), (<$>))-import qualified Control.Monad.Exception.Synchronous as Ex-import qualified Control.Monad.Trans.State as St-import qualified Penny.Cabin.Row as R-import qualified Data.Foldable as Fdbl-import qualified Data.Functor.Identity as Id-import qualified Data.Map as M-import qualified Data.Monoid as Monoid-import qualified Penny.Lincoln.NestedMap as NM-import qualified Data.Text as X-import qualified Data.Traversable as Tr-import qualified Penny.Cabin.Options as CO-import qualified Penny.Cabin.Chunk as Chunk-import qualified Penny.Cabin.Colors as C-import qualified Penny.Liberty as Ly-import qualified Penny.Lincoln as L-import qualified Penny.Lincoln.Queries as Q-import qualified Penny.Lincoln.Balance as Bal-import qualified Data.Semigroup as S---- Step 1. Convert prices.--data PriceConverted = PriceConverted {-  pcEntry :: L.Entry-  , pcAccount :: L.Account }--newtype PriceConverteds =-  PriceConverteds { unPriceConverteds :: [PriceConverted] }--convertOne ::-  L.PriceDb-  -> (L.Commodity, L.DateTime)-  -> L.Entry-  -> Ex.Exceptional X.Text L.Entry-convertOne db (cty, dt) en@(L.Entry dc am@(L.Amount _ fr)) =-  if fr == cty-  then return en-  else do-    let to = L.To cty-    am' <- case L.convert db dt to am of-      Ex.Exception e -> Ex.throw (convertError cty am e)-      Ex.Success g -> return g-    return (L.Entry dc am')--convertError ::-  L.Commodity-  -> L.Amount-  -> L.PriceDbError-  -> X.Text-convertError to (L.Amount _ fr) e =-  let fromErr = L.text (L.Delimited (X.singleton ':')-                        (Fdbl.toList . L.unCommodity $ fr))-      toErr = L.text (L.Delimited (X.singleton ':')-                      (Fdbl.toList . L.unCommodity $ to))-  in case e of-    L.FromNotFound ->-      X.pack "no data to convert from commodity "-      `X.append` fromErr-    L.ToNotFound ->-      X.pack "no data to convert to commodity "-      `X.append` toErr-    L.CpuNotFound ->-      X.pack "no data to convert from commodity "-      `X.append` fromErr-      `X.append` (X.pack " to commodity ")-      `X.append` toErr-      `X.append` (X.pack " at given date and time")-  --buildDb :: [L.PricePoint] -> L.PriceDb-buildDb = foldl f L.emptyDb where-  f db pb = L.addPrice db pb---- | Makes PriceConverteds where there is no target commodity.-nullConvert :: [L.Box Ly.LibertyMeta] -> PriceConverteds-nullConvert =-  let f b = PriceConverted en ac-        where-          p = L.boxPostFam b-          en = Q.entry p-          ac = Q.account p-    in PriceConverteds . map f---- | Makes PriceConverteds where commodities will have to be changed--- to a target commodity. This will fail if necessary price data is--- lacking.-converter ::-  (L.Commodity, L.DateTime)-  -> [L.PricePoint]-  -> [L.Box Ly.LibertyMeta]-  -> Ex.Exceptional X.Text PriceConverteds-converter conv pbs bs =-    let f b = let p = L.boxPostFam b-                  en = Q.entry p-                  ac = Q.account p-                 in do-                   en' <- convertOne db conv en-                   return (PriceConverted en' ac)-        db = buildDb pbs-    in fmap PriceConverteds $ mapM f bs----- Step 2. This puts all the PriceConverteds into a flat map, where--- the key is the full account name and the value is the balance. If--- the user desired, zero balances are eliminated from the flat map.-newtype FlatMap = FlatMap { _unFlatMap :: M.Map L.Account Bal.Balance }--toFlatMap :: TreeOpts -> PriceConverteds -> FlatMap-toFlatMap o = FlatMap . foldr f M.empty . unPriceConverteds where-  remove = not . CO.unShowZeroBalances . showZeroBalances $ o-  f pc m =-    let a = pcAccount pc-        bal = Bal.entryToBalance . pcEntry $ pc-    in case M.lookup a m of-      Nothing -> M.insert a bal m-      Just oldBal ->-        let added = Bal.addBalances oldBal bal-            newBal = if remove-                     then Bal.removeZeroCommodities added-                     else Just added-        in case newBal of-          Nothing -> M.delete a m-          Just b' -> M.insert a b' m---- Step 3-newtype RawBal = RawBal { unRawBal :: S.Option Bal.Balance }-instance Monoid.Monoid RawBal where-  mappend (RawBal b1) (RawBal b2) = RawBal $ b1 `Monoid.mappend` b2-  mempty = RawBal Monoid.mempty--type RawBals = NM.NestedMap L.SubAccountName RawBal---- | Inserts a pair from the FlatMap into the Balances NestedMap.-insertBalance ::-  L.Account-  -> Bal.Balance-  -> RawBals-  -> RawBals-insertBalance a b rbs = let-  rb = RawBal . S.Option . Just $ b-  subs = Fdbl.toList . L.unAccount $ a-  in NM.insert rbs subs rb-  -rawBalances :: FlatMap -> RawBals-rawBalances (FlatMap m) = M.foldrWithKey insertBalance NM.empty m---- Step 4-newtype SummedBal =-  SummedBal { unSummedBal :: S.Option Bal.Balance }-instance Monoid.Monoid SummedBal where-  mappend (SummedBal b1) (SummedBal b2) =-    SummedBal $ b1 `Monoid.mappend` b2-  mempty = SummedBal Monoid.mempty-type TotalBal = SummedBal-type SummedBals = NM.NestedMap L.SubAccountName SummedBal--sumBalances :: RawBals -> (SummedBals, TotalBal)-sumBalances rb = (sb, (SummedBal . unRawBal $ tb)) where-  (tb, rawBals) = NM.cumulativeTotal rb-  sb = fmap (SummedBal . unRawBal) rawBals---- Step 5-type SummedWithIsEven = NM.NestedMap L.SubAccountName (SummedBal, Bool)--makeSummedWithIsEven ::-  (SummedBals, TotalBal)-  -> (SummedWithIsEven, TotalBal)-makeSummedWithIsEven (sb, tb) = (swie, tb) where-  swie = St.evalState (Tr.mapM f sb) False-  f lbl = do-    st <- St.get-    St.put (not st)-    return (lbl, st)---- Step 6-data Columns a = Columns {-  account :: a-  , drCr :: a-  , commodity :: a-  , quantity :: a-  } deriving Show--instance Functor Columns where-  fmap f c = Columns {-    account = f (account c)-    , drCr = f (drCr c)-    , commodity = f (commodity c)-    , quantity = f (quantity c)-    }--instance Applicative Columns where-  pure a = Columns a a a a-  fn <*> fa = Columns {-    account = (account fn) (account fa)-    , drCr = (drCr fn) (drCr fa)-    , commodity = (commodity fn) (commodity fa)-    , quantity = (quantity fn) (quantity fa)-     }--data PreSpec = PreSpec {-  _justification :: R.Justification-  , _padSpec :: Chunk.TextSpec-  , bits :: [Chunk.Chunk] }--type PreSpecMap = NM.NestedMap L.SubAccountName (Columns PreSpec)---- | Takes a list of triples from bottomLineChunks and creates three--- Cells, one each for DrCr, Commodity, and Qty.-bottomLineBalCells ::-  Chunk.TextSpec -- ^ Fill colors-  -> [(Chunk.Chunk, Chunk.Chunk, Chunk.Chunk)]-  -> (PreSpec, PreSpec, PreSpec)-bottomLineBalCells spec ts = (mkSpec dc, mkSpec ct, mkSpec qt) where-  mkSpec ls = PreSpec R.LeftJustify spec ls-  (dc, ct, qt) = foldr f ([], [], []) ts-  f (da, ca, qa) (d, c, q) = (da:d, ca:c, qa:q)---type IsEven = Bool---- | Returns a triple (x, y, z), where x is the DrCr chunk, y is the--- commodity chunk, and z is the qty chunk.-bottomLineBalChunks ::-  TreeOpts-  -> IsEven-  -> (L.Commodity, Bal.BottomLine)-  -> (Chunk.Chunk, Chunk.Chunk, Chunk.Chunk)-bottomLineBalChunks os isEven (comm, bl) = (dc, cty, qty) where-  dc = Chunk.chunk ts dcTxt-  cty = Chunk.chunk ts ctyTxt-  qty = Chunk.chunk ts qtyTxt-  ctyTxt = L.text (L.Delimited (X.singleton ':') (L.textList comm))-  (ts, dcTxt, qtyTxt) = case bl of-    Bal.Zero -> let-      getTs = if isEven then C.evenZero else C.oddZero-      dcT = X.pack "--"-      qtyT = dcT-      in (getTs . drCrColors $ os, dcT, qtyT)-    Bal.NonZero clm -> let-      (getTs, dcT) = case Bal.drCr clm of-        L.Debit ->-          (if isEven then C.evenDebit else C.oddDebit,-           X.pack "Dr")-        L.Credit ->-          (if isEven then C.evenCredit else C.oddCredit,-           X.pack "Cr")-      qTxt = (balanceFormat os) bl-      in (getTs . drCrColors $ os, dcT, qTxt)---fillTextSpec ::-  TreeOpts-  -> IsEven-  -> Chunk.TextSpec-fillTextSpec os isEven = let-  getTs = if isEven then C.evenColors else C.oddColors-  in getTs . baseColors $ os-  --bottomLineCells ::-  TreeOpts-  -> IsEven-  -> SummedBal-  -> (PreSpec, PreSpec, PreSpec)-bottomLineCells os isEven mayBal = let-  fill = fillTextSpec os isEven-  tsZero = if isEven-           then C.evenZero . drCrColors $ os-           else C.oddZero . drCrColors $ os-  zeroSpec =-    PreSpec R.LeftJustify-    tsZero [Chunk.chunk tsZero (X.pack "--")]-  zeroSpecs = (zeroSpec, zeroSpec, zeroSpec)-  in case S.getOption . unSummedBal $ mayBal of-    Nothing -> zeroSpecs-    Just bal -> bottomLineBalCells fill-                . map (bottomLineBalChunks os isEven)-                . M.assocs-                . Bal.unBalance-                $ bal--padding :: Int-padding = 2--accountPreSpec ::-  TreeOpts-  -> IsEven-  -> Int-  -> L.SubAccountName-  -> PreSpec-accountPreSpec os isEven lvl acct = PreSpec j ts [bit] where-  j = R.LeftJustify-  ts = if isEven-       then C.evenColors . baseColors $ os-       else C.oddColors . baseColors $ os-  bit = Chunk.chunk ts txt where-    txt = pad `X.append` (L.text acct)-    pad = X.replicate (padding * lvl) (X.singleton ' ')---makePreSpec ::-  TreeOpts-  -> [(L.SubAccountName, (SummedBal, Bool))]-  -> L.SubAccountName-  -> (SummedBal, Bool)-  -> Columns PreSpec-makePreSpec os ps a (mayBal, isEven) = Columns act dc com qt where-  lvl = length ps + 1-  act = accountPreSpec os isEven lvl a-  (dc, com, qt) = bottomLineCells os isEven mayBal--traverser ::-  TreeOpts-  -> [(L.SubAccountName, (SummedBal, Bool))]-  -> L.SubAccountName-  -> (SummedBal, Bool)-  -> a-  -> Id.Identity (Maybe (Columns PreSpec))-traverser os hist a mayBal _ =-  return (Just $ makePreSpec os hist a mayBal)--makePreSpecMap ::-  TreeOpts-  -> (SummedWithIsEven, TotalBal)-  -> (PreSpecMap, TotalBal)-makePreSpecMap os (sb, tb) = (cim, tb) where-  cim = Id.runIdentity (NM.traverseWithTrail (traverser os) sb)---- Step 7-makeTotalCells ::-  TreeOpts-  -> SummedBal-  -> Columns PreSpec-makeTotalCells os mayBal = Columns act dc com qt where-  act = accountPreSpec os True 0 tot-  tot = L.SubAccountName $ L.TextNonEmpty 'T' (X.pack "otal")-  (dc, com, qt) = bottomLineCells os True mayBal--makeColumnList :: TreeOpts -> (PreSpecMap, TotalBal) -> [Columns PreSpec]-makeColumnList os (cim, tb) = totCols : restCols where-  totCols = makeTotalCells os tb-  restCols = Fdbl.toList cim----- Step 8---- | When given a list of columns, determine the widest row in each--- column.-maxWidths :: [Columns PreSpec] -> Columns R.Width-maxWidths = Fdbl.foldl' maxWidthPerColumn (pure (R.Width 0))---- | Applied to a Columns of PreSpec and a Colums of widths, return a--- Columns that has the wider of the two values.-maxWidthPerColumn ::-  Columns R.Width-  -> Columns PreSpec-  -> Columns R.Width-maxWidthPerColumn w p = f <$> w <*> p where-  f old new = max old (maximum . map Chunk.chunkWidth . bits $ new)-  --- | Changes a single set of Columns to a set of ColumnSpec of the--- given width.-preSpecToSpec ::-  Columns R.Width-  -> Columns PreSpec-  -> Columns R.ColumnSpec-preSpecToSpec ws p = f <$> ws <*> p where-  f width (PreSpec j ps bs) = R.ColumnSpec j width ps bs--resizeColumnsInList :: [Columns PreSpec] -> [Columns R.ColumnSpec]-resizeColumnsInList cs = map (preSpecToSpec w) cs where-  w = maxWidths cs----- Step 9-widthSpacerAcct :: Int-widthSpacerAcct = 4--widthSpacerDrCr :: Int-widthSpacerDrCr = 1--widthSpacerCommodity :: Int-widthSpacerCommodity = 1--colsToBits ::-  TreeOpts-  -> IsEven-  -> Columns R.ColumnSpec-  -> [Chunk.Chunk]-colsToBits os isEven (Columns a dc c q) = let-  fillSpec = if isEven-             then C.evenColors . baseColors $ os-             else C.oddColors . baseColors $ os-  spacer w = R.ColumnSpec j (Chunk.Width w) fillSpec []-  j = R.LeftJustify-  cs = a-       : spacer widthSpacerAcct-       : dc-       : spacer widthSpacerDrCr-       : c-       : spacer widthSpacerCommodity-       : q-       : []-  in R.row cs--colsListToBits ::-  TreeOpts-  -> [Columns R.ColumnSpec]-  -> [[Chunk.Chunk]]-colsListToBits os = zipWith f bools where-  f b c = colsToBits os b c-  bools = iterate not True----- Options-data TreeOpts = TreeOpts {-  drCrColors :: C.DrCrColors-  , baseColors :: C.BaseColors-  , balanceFormat :: L.BottomLine -> X.Text-  , showZeroBalances :: CO.ShowZeroBalances-  }---- Tie it all together--report ::-  TreeOpts-  -> PriceConverteds-  -> [[Chunk.Chunk]]-report os  =-    colsListToBits os-    . resizeColumnsInList-    . makeColumnList os-    . makePreSpecMap os-    . makeSummedWithIsEven-    . sumBalances-    . rawBalances-    . toFlatMap os-

@@ -0,0 +1,228 @@+-- | Grab bag of utility functions.++module Penny.Cabin.Balance.Util+  ( tieredForest+  , tieredPostings+  , filterForest+  , balances+  , flatten+  , treeWithParents+  , forestWithParents+  , sumForest+  , sumTree+  , boxesBalance+  , labelLevels+  , sortForest+  , sortTree+  , lastMode+  ) where++import qualified Penny.Cabin.Options as CO+import qualified Penny.Lincoln as L+import qualified Penny.Lincoln.NestedMap as NM+import qualified Data.Foldable as Fdbl+import qualified Data.Map as M+import Data.Ord (comparing)+import Data.List (sortBy, maximumBy, groupBy)+import Data.Monoid (mconcat, Monoid)+import Data.Maybe (mapMaybe)+import qualified Data.Tree as T+import qualified Penny.Lincoln.Queries as Q++-- | Constructs a forest sorted into tiers based on lists of keys that+-- are extracted from the elements.+tieredForest ::+  Ord k+  => (a -> [k])+  -- ^ Extracts a key from the elements we are putting in the tree. If+  -- this function returns an empty list for any element, the element+  -- will not appear in the tiered forest.+  -> [a]+  -> T.Forest (k, [a])+tieredForest getKeys ls = fmap (fmap revSnd) . NM.toForest $ nm+  where+    revSnd (a, xs) = (a, reverse xs)+    nm = foldr f NM.empty ls+    f a m = NM.relabel m ps+      where+        ps = case getKeys a of+          [] -> []+          ks ->+            let mkInitPair k = (k, maybe [] id)+                mkLastPair k = (k, maybe [a] (a:))+            in (map mkInitPair . init $ ks)+               ++ [(mkLastPair (last ks))]++-- | Takes a list of postings and puts them into a Forest. Each level+-- of each of the trees corresponds to a sub account. The label of the+-- node tells you the sub account name and gives you a list of the+-- postings at that level.+tieredPostings :: [L.Box a] -> T.Forest (L.SubAccount, [L.Box a])+tieredPostings = tieredForest e+  where+    e = Fdbl.toList . L.unAccount . Q.account . L.boxPostFam++-- | Keeps only Trees that match a given condition. First examines+-- child trees to determine whether they should be retained. If a+-- child tree is retained, does not delete the parent tree.+filterForest :: (a -> Bool) -> T.Forest a -> T.Forest a+filterForest f = mapMaybe pruneTree+  where+    pruneTree (T.Node a fs) =+      case filterForest f fs of+        [] -> if not (f a) then Nothing else Just (T.Node a [])+        cs -> Just (T.Node a cs)+++-- | Puts all Boxes into a Tree and sums the balances. Removes+-- accounts that have empty balances if requested. Does NOT sum+-- balances from the bottom up.+balances ::+  CO.ShowZeroBalances+  -> [L.Box a]+  -> T.Forest (L.SubAccount, L.Balance)+balances (CO.ShowZeroBalances szb) =+  remover+  . map (fmap (mapSnd boxesBalance))+  . tieredPostings+  where+    remover =+      if szb+      then id+      else filterForest (not . M.null . L.unBalance . snd)+           . map (fmap (mapSnd L.removeZeroCommodities))+++-- | Takes a tree of Balances (like what is produced by the 'balances'+-- function) and produces a flat list of accounts with the balance of+-- each account.+flatten+  :: T.Forest (L.SubAccount, L.Balance)+  -> [(L.Account, L.Balance)]+flatten =+  concatMap T.flatten+  . map (fmap toPair) . forestWithParents+  where+    toPair ((s, b), ls) =+      case reverse . map fst $ ls of+        [] -> (L.Account [s], b)+        s1:sr -> (L.Account (s1 : (sr ++ [s])), b)++-- | Takes a Tree and returns a Tree where each node has information+-- about its parent Nodes. The list of parent nodes has the most+-- immediate parent first and the most distant parent last.+treeWithParents :: T.Tree a -> T.Tree (a, [a])+treeWithParents = treeWithParentsR []++-- | Given a list of the parents seen so far, return a Tree where each+-- node contains information about its parents.+treeWithParentsR :: [a] -> T.Tree a -> T.Tree (a, [a])+treeWithParentsR ls (T.Node n cs) = T.Node (n, ls) cs'+  where+    cs' = map (treeWithParentsR (n:ls)) cs++-- | Takes a Forest and returns a Forest where each node has+-- information about its parent Nodes.+forestWithParents :: T.Forest a -> T.Forest (a, [a])+forestWithParents = map (treeWithParentsR [])++-- | Sums a forest from the bottom up. Returns a pair, where the first+-- element is the forest, but with the second element of each node+-- replaced with the sum of that node and all its children. The second+-- element is the sum of all the second elements in the forest.+sumForest ::+  s+  -- ^ Zero++  -> (s -> s -> s)+  -- ^ Combiner++  -> T.Forest (a, s)+  -> (T.Forest (a, s), s)+sumForest z f ts = (ts', s)+  where+    ts' = map (sumTree z f) ts+    s = foldr f z . map (snd . T.rootLabel) $ ts'++-- | Sums a tree from the bottom up.+sumTree ::+  s+  -- ^ Zero++  -> (s -> s -> s)+  -- ^ Combiner++  ->  T.Tree (a, s)+  -> T.Tree (a, s)+sumTree z f (T.Node (a, s) cs) = T.Node (a, f s cSum) cs'+  where+    (cs', cSum) = sumForest z f cs+++boxesBalance :: [L.Box a] -> L.Balance+boxesBalance = mconcat . map L.entryToBalance . map Q.entry+               . map L.boxPostFam++mapSnd :: (a -> b) -> (f, a) -> (f, b)+mapSnd f (x, a) = (x, f a)++-- | Label each level of a Tree with an integer indicating how deep it+-- is. The top node of the tree is level 0.+labelLevels :: T.Tree a -> T.Tree (Int, a)+labelLevels = go 0+  where+    go l (T.Node x xs) = T.Node (l, x) (map (go (l + 1)) xs)++-- | Sorts each level of a Forest.+sortForest ::+  (a -> a -> Ordering)+  -> T.Forest a+  -> T.Forest a+sortForest o f = sortBy o' (map (sortTree o) f)+  where+    o' x y = o (T.rootLabel x) (T.rootLabel y)++-- | Sorts each level of a Tree.+sortTree ::+  (a -> a -> Ordering)+  -> T.Tree a+  -> T.Tree a+sortTree o (T.Node l f) = T.Node l (sortForest o f)++-- | Like lastModeBy but using Ord.+lastMode :: Ord a => [a] -> Maybe a+lastMode = lastModeBy compare++-- | Finds the mode of a list. Takes the mode that is located last in+-- the list. Returns Nothing if there is no mode (that is, if the list+-- is empty).+lastModeBy ::+  (a -> a -> Ordering)+  -> [a]+  -> Maybe a+lastModeBy o ls =+  case modesBy o' ls' of+    [] -> Nothing+    ms -> Just . fst . maximumBy fx $ ms+    where+      fx = comparing snd+      ls' = zip ls ([0..] :: [Int])+      o' x y = o (fst x) (fst y)++-- | Finds the modes of a list.+modesBy :: (a -> a -> Ordering) -> [a] -> [a]+modesBy o =+  concat+  . longestLists+  . groupBy (\x y -> o x y == EQ)+  . sortBy o+++-- | Returns the longest lists. This function is partial. It is bottom+-- if the argument list is empty. Therefore, do not export this+-- function.+longestLists :: [[a]] -> [[a]]+longestLists as =+  let lengths = map (\ls -> (ls, length ls)) as+      maxLen = maximum . map snd $ lengths+  in map fst . filter (\(_, len) -> len == maxLen) $ lengths

@@ -1,2408 +1,2469 @@--- | Handles colors and special effects for text. This module was--- written using the control sequences documented for xterm in--- ctlseqs.txt, which is included in the xterm source code (on Debian--- GNU/Linux systems, it is at--- \/usr\/share\/doc\/xterm\/ctlseqs.txt.gz). The code in here should also--- work for any terminal which recognizes ISO 6429 escape sequences--- (also known as ANSI escape sequences), but only for 8 colors. This--- module also generates sequences for 256 color xterms; though this--- works fine with xterm, it might not work on other terminals (I--- believe it works for other terminals commonly found on Linux--- systems, such as gnome-terminal and Konsole, but I have not tested--- these terminals as I do not use them.) Perhaps it also works on--- Windows or Mac OS X systems and their terminals, though I have not--- tested them (in particular, Windows could be problematic as not all--- Windows terminals support ISO 6429.)------ In theory there are more portable ways to generate color codes,--- such as through curses (or is it ncurses?) but support for ISO 6429--- is widespread enough that I am prepared to say that if your--- terminal does not support it, too bad; just use the colorless mode.-module Penny.Cabin.Chunk (-  -- * Colors-  Colors(Colors0, Colors8, Colors256),-  Background8,-  Background256,-  Foreground8,-  Foreground256,--  -- * Chunks-  Chunk,-  chunk,-  Width(Width, unWidth),-  chunkWidth,-  chunksToText,-  -  -- * Effects-  Bold(Bold, unBold),-  Underline(Underline, unUnderline),-  Flash(Flash, unFlash),-  Inverse(Inverse, unInverse),--  -- * Style and TextSpec-  -  -- | A style is a bundle of attributes that describes text-  -- attributes, such as its color and whether it is bold.-  StyleCommon (StyleCommon, bold, underline, flash, inverse),-  Style8 (Style8, foreground8, background8, common8),-  Style256 (Style256, foreground256, background256, common256),-  defaultStyleCommon,-  defaultStyle8,-  defaultStyle256,-  -  TextSpec (TextSpec, style8, style256),-  defaultTextSpec,-  -  -- * Specific colors-  -- * 8 color foreground colors-  color8_f_default,-  color8_f_black,-  color8_f_red,-  color8_f_green,-  color8_f_yellow,-  color8_f_blue,-  color8_f_magenta,-  color8_f_cyan,-  color8_f_white,--  -- ** 8 color background colors-  color8_b_default,-  color8_b_black,-  color8_b_red,-  color8_b_green,-  color8_b_yellow,-  color8_b_blue,-  color8_b_magenta,-  color8_b_cyan,-  color8_b_white,--  -- * 256 color foreground colors-  color256_f_default,-  color256_f_0,-  color256_f_1,-  color256_f_2,-  color256_f_3,-  color256_f_4,-  color256_f_5,-  color256_f_6,-  color256_f_7,-  color256_f_8,-  color256_f_9,-  color256_f_10,-  color256_f_11,-  color256_f_12,-  color256_f_13,-  color256_f_14,-  color256_f_15,-  color256_f_16,-  color256_f_17,-  color256_f_18,-  color256_f_19,-  color256_f_20,-  color256_f_21,-  color256_f_22,-  color256_f_23,-  color256_f_24,-  color256_f_25,-  color256_f_26,-  color256_f_27,-  color256_f_28,-  color256_f_29,-  color256_f_30,-  color256_f_31,-  color256_f_32,-  color256_f_33,-  color256_f_34,-  color256_f_35,-  color256_f_36,-  color256_f_37,-  color256_f_38,-  color256_f_39,-  color256_f_40,-  color256_f_41,-  color256_f_42,-  color256_f_43,-  color256_f_44,-  color256_f_45,-  color256_f_46,-  color256_f_47,-  color256_f_48,-  color256_f_49,-  color256_f_50,-  color256_f_51,-  color256_f_52,-  color256_f_53,-  color256_f_54,-  color256_f_55,-  color256_f_56,-  color256_f_57,-  color256_f_58,-  color256_f_59,-  color256_f_60,-  color256_f_61,-  color256_f_62,-  color256_f_63,-  color256_f_64,-  color256_f_65,-  color256_f_66,-  color256_f_67,-  color256_f_68,-  color256_f_69,-  color256_f_70,-  color256_f_71,-  color256_f_72,-  color256_f_73,-  color256_f_74,-  color256_f_75,-  color256_f_76,-  color256_f_77,-  color256_f_78,-  color256_f_79,-  color256_f_80,-  color256_f_81,-  color256_f_82,-  color256_f_83,-  color256_f_84,-  color256_f_85,-  color256_f_86,-  color256_f_87,-  color256_f_88,-  color256_f_89,-  color256_f_90,-  color256_f_91,-  color256_f_92,-  color256_f_93,-  color256_f_94,-  color256_f_95,-  color256_f_96,-  color256_f_97,-  color256_f_98,-  color256_f_99,-  color256_f_100,-  color256_f_101,-  color256_f_102,-  color256_f_103,-  color256_f_104,-  color256_f_105,-  color256_f_106,-  color256_f_107,-  color256_f_108,-  color256_f_109,-  color256_f_110,-  color256_f_111,-  color256_f_112,-  color256_f_113,-  color256_f_114,-  color256_f_115,-  color256_f_116,-  color256_f_117,-  color256_f_118,-  color256_f_119,-  color256_f_120,-  color256_f_121,-  color256_f_122,-  color256_f_123,-  color256_f_124,-  color256_f_125,-  color256_f_126,-  color256_f_127,-  color256_f_128,-  color256_f_129,-  color256_f_130,-  color256_f_131,-  color256_f_132,-  color256_f_133,-  color256_f_134,-  color256_f_135,-  color256_f_136,-  color256_f_137,-  color256_f_138,-  color256_f_139,-  color256_f_140,-  color256_f_141,-  color256_f_142,-  color256_f_143,-  color256_f_144,-  color256_f_145,-  color256_f_146,-  color256_f_147,-  color256_f_148,-  color256_f_149,-  color256_f_150,-  color256_f_151,-  color256_f_152,-  color256_f_153,-  color256_f_154,-  color256_f_155,-  color256_f_156,-  color256_f_157,-  color256_f_158,-  color256_f_159,-  color256_f_160,-  color256_f_161,-  color256_f_162,-  color256_f_163,-  color256_f_164,-  color256_f_165,-  color256_f_166,-  color256_f_167,-  color256_f_168,-  color256_f_169,-  color256_f_170,-  color256_f_171,-  color256_f_172,-  color256_f_173,-  color256_f_174,-  color256_f_175,-  color256_f_176,-  color256_f_177,-  color256_f_178,-  color256_f_179,-  color256_f_180,-  color256_f_181,-  color256_f_182,-  color256_f_183,-  color256_f_184,-  color256_f_185,-  color256_f_186,-  color256_f_187,-  color256_f_188,-  color256_f_189,-  color256_f_190,-  color256_f_191,-  color256_f_192,-  color256_f_193,-  color256_f_194,-  color256_f_195,-  color256_f_196,-  color256_f_197,-  color256_f_198,-  color256_f_199,-  color256_f_200,-  color256_f_201,-  color256_f_202,-  color256_f_203,-  color256_f_204,-  color256_f_205,-  color256_f_206,-  color256_f_207,-  color256_f_208,-  color256_f_209,-  color256_f_210,-  color256_f_211,-  color256_f_212,-  color256_f_213,-  color256_f_214,-  color256_f_215,-  color256_f_216,-  color256_f_217,-  color256_f_218,-  color256_f_219,-  color256_f_220,-  color256_f_221,-  color256_f_222,-  color256_f_223,-  color256_f_224,-  color256_f_225,-  color256_f_226,-  color256_f_227,-  color256_f_228,-  color256_f_229,-  color256_f_230,-  color256_f_231,-  color256_f_232,-  color256_f_233,-  color256_f_234,-  color256_f_235,-  color256_f_236,-  color256_f_237,-  color256_f_238,-  color256_f_239,-  color256_f_240,-  color256_f_241,-  color256_f_242,-  color256_f_243,-  color256_f_244,-  color256_f_245,-  color256_f_246,-  color256_f_247,-  color256_f_248,-  color256_f_249,-  color256_f_250,-  color256_f_251,-  color256_f_252,-  color256_f_253,-  color256_f_254,-  color256_f_255,--  -- ** 256 color background colors-  color256_b_default,-  color256_b_0,-  color256_b_1,-  color256_b_2,-  color256_b_3,-  color256_b_4,-  color256_b_5,-  color256_b_6,-  color256_b_7,-  color256_b_8,-  color256_b_9,-  color256_b_10,-  color256_b_11,-  color256_b_12,-  color256_b_13,-  color256_b_14,-  color256_b_15,-  color256_b_16,-  color256_b_17,-  color256_b_18,-  color256_b_19,-  color256_b_20,-  color256_b_21,-  color256_b_22,-  color256_b_23,-  color256_b_24,-  color256_b_25,-  color256_b_26,-  color256_b_27,-  color256_b_28,-  color256_b_29,-  color256_b_30,-  color256_b_31,-  color256_b_32,-  color256_b_33,-  color256_b_34,-  color256_b_35,-  color256_b_36,-  color256_b_37,-  color256_b_38,-  color256_b_39,-  color256_b_40,-  color256_b_41,-  color256_b_42,-  color256_b_43,-  color256_b_44,-  color256_b_45,-  color256_b_46,-  color256_b_47,-  color256_b_48,-  color256_b_49,-  color256_b_50,-  color256_b_51,-  color256_b_52,-  color256_b_53,-  color256_b_54,-  color256_b_55,-  color256_b_56,-  color256_b_57,-  color256_b_58,-  color256_b_59,-  color256_b_60,-  color256_b_61,-  color256_b_62,-  color256_b_63,-  color256_b_64,-  color256_b_65,-  color256_b_66,-  color256_b_67,-  color256_b_68,-  color256_b_69,-  color256_b_70,-  color256_b_71,-  color256_b_72,-  color256_b_73,-  color256_b_74,-  color256_b_75,-  color256_b_76,-  color256_b_77,-  color256_b_78,-  color256_b_79,-  color256_b_80,-  color256_b_81,-  color256_b_82,-  color256_b_83,-  color256_b_84,-  color256_b_85,-  color256_b_86,-  color256_b_87,-  color256_b_88,-  color256_b_89,-  color256_b_90,-  color256_b_91,-  color256_b_92,-  color256_b_93,-  color256_b_94,-  color256_b_95,-  color256_b_96,-  color256_b_97,-  color256_b_98,-  color256_b_99,-  color256_b_100,-  color256_b_101,-  color256_b_102,-  color256_b_103,-  color256_b_104,-  color256_b_105,-  color256_b_106,-  color256_b_107,-  color256_b_108,-  color256_b_109,-  color256_b_110,-  color256_b_111,-  color256_b_112,-  color256_b_113,-  color256_b_114,-  color256_b_115,-  color256_b_116,-  color256_b_117,-  color256_b_118,-  color256_b_119,-  color256_b_120,-  color256_b_121,-  color256_b_122,-  color256_b_123,-  color256_b_124,-  color256_b_125,-  color256_b_126,-  color256_b_127,-  color256_b_128,-  color256_b_129,-  color256_b_130,-  color256_b_131,-  color256_b_132,-  color256_b_133,-  color256_b_134,-  color256_b_135,-  color256_b_136,-  color256_b_137,-  color256_b_138,-  color256_b_139,-  color256_b_140,-  color256_b_141,-  color256_b_142,-  color256_b_143,-  color256_b_144,-  color256_b_145,-  color256_b_146,-  color256_b_147,-  color256_b_148,-  color256_b_149,-  color256_b_150,-  color256_b_151,-  color256_b_152,-  color256_b_153,-  color256_b_154,-  color256_b_155,-  color256_b_156,-  color256_b_157,-  color256_b_158,-  color256_b_159,-  color256_b_160,-  color256_b_161,-  color256_b_162,-  color256_b_163,-  color256_b_164,-  color256_b_165,-  color256_b_166,-  color256_b_167,-  color256_b_168,-  color256_b_169,-  color256_b_170,-  color256_b_171,-  color256_b_172,-  color256_b_173,-  color256_b_174,-  color256_b_175,-  color256_b_176,-  color256_b_177,-  color256_b_178,-  color256_b_179,-  color256_b_180,-  color256_b_181,-  color256_b_182,-  color256_b_183,-  color256_b_184,-  color256_b_185,-  color256_b_186,-  color256_b_187,-  color256_b_188,-  color256_b_189,-  color256_b_190,-  color256_b_191,-  color256_b_192,-  color256_b_193,-  color256_b_194,-  color256_b_195,-  color256_b_196,-  color256_b_197,-  color256_b_198,-  color256_b_199,-  color256_b_200,-  color256_b_201,-  color256_b_202,-  color256_b_203,-  color256_b_204,-  color256_b_205,-  color256_b_206,-  color256_b_207,-  color256_b_208,-  color256_b_209,-  color256_b_210,-  color256_b_211,-  color256_b_212,-  color256_b_213,-  color256_b_214,-  color256_b_215,-  color256_b_216,-  color256_b_217,-  color256_b_218,-  color256_b_219,-  color256_b_220,-  color256_b_221,-  color256_b_222,-  color256_b_223,-  color256_b_224,-  color256_b_225,-  color256_b_226,-  color256_b_227,-  color256_b_228,-  color256_b_229,-  color256_b_230,-  color256_b_231,-  color256_b_232,-  color256_b_233,-  color256_b_234,-  color256_b_235,-  color256_b_236,-  color256_b_237,-  color256_b_238,-  color256_b_239,-  color256_b_240,-  color256_b_241,-  color256_b_242,-  color256_b_243,-  color256_b_244,-  color256_b_245,-  color256_b_246,-  color256_b_247,-  color256_b_248,-  color256_b_249,-  color256_b_250,-  color256_b_251,-  color256_b_252,-  color256_b_253,-  color256_b_254,-  color256_b_255--  ) where---import Data.Monoid (Monoid, mempty, mappend)-import Data.Text (Text)-import qualified Data.Text as X-import qualified Data.Text.Lazy as XL-import qualified Data.Text.Lazy.Builder as TB------- Colors------- | How many colors to actually show.-data Colors = Colors0 | Colors8 | Colors256-            deriving Show---- | Background color in an 8 color setting.-newtype Background8 = Background8 { unBackground8 :: Code }---- | Background color in a 256 color setting.-newtype Background256 = Background256 { unBackground256 :: Code }---- | Foreground color in an 8 color setting.-newtype Foreground8 = Foreground8 { unForeground8 :: Code }---- | Foreground color in a 256 color setting.-newtype Foreground256 = Foreground256 { unForeground256 :: Code }-------- Chunks------- | A chunk is some textual data coupled with a description of what--- color the text is. The chunk knows what colors to use for both--- foreground color and background color, in both an 8 color terminal--- and a 256 color terminal. The chunk has only one set of color--- descriptions. To change colors, you must use a new chunk.------ There is no way to combine chunks. To print large numbers of--- chunks, lazily build a list of them and then print them using--- chunksToText.-data Chunk = Chunk TextSpec Text--chunk :: TextSpec -> Text -> Chunk-chunk = Chunk---- | How wide the text of a chunk is.-newtype Width = Width { unWidth :: Int }-                deriving (Show, Eq, Ord)--instance Monoid Width where-  mempty = Width 0-  mappend (Width w1) (Width w2) = Width $ w1 + w2--chunkWidth :: Chunk -> Width-chunkWidth (Chunk _ t) = Width . X.length $ t---- | Transforms chunks to a lazy Text. This function runs lazily and--- in constant time and space.-chunksToText :: Colors -> [Chunk] -> XL.Text-chunksToText c = TB.toLazyText . foldr (builder c) (printReset c)-------- Effects----newtype Bold = Bold { unBold :: Bool }-newtype Underline = Underline { unUnderline :: Bool }-newtype Flash = Flash { unFlash :: Bool }-newtype Inverse = Inverse { unInverse :: Bool }------- Styles------- | Style elements that apply in both 8 and 256 color--- terminals. However, the elements are described separately for 8 and--- 256 color terminals, so that the text appearance can change--- depending on how many colors a terminal has.-data StyleCommon = StyleCommon {-  bold :: Bold-  , underline :: Underline-  , flash :: Flash-  , inverse :: Inverse }---- | Describes text appearance (foreground and background colors, as--- well as other attributes such as bold) for an 8 color terminal.-data Style8 = Style8 {-  foreground8 :: Foreground8-  , background8 :: Background8-  , common8 :: StyleCommon }---- | Describes text appearance (foreground and background colors, as--- well as other attributes such as bold) for a 256 color terminal.-data Style256 = Style256 {-  foreground256 :: Foreground256-  , background256 :: Background256-  , common256 :: StyleCommon }---- | Has all bold, flash, underline, and inverse turned off.-defaultStyleCommon :: StyleCommon-defaultStyleCommon = StyleCommon {-  bold = Bold False-  , underline = Underline False-  , flash = Flash False-  , inverse = Inverse False }---- | Uses the default terminal colors (which will vary depending on--- the terminal).-defaultStyle8 :: Style8-defaultStyle8 = Style8 {-  foreground8 = color8_f_default-  , background8 = color8_b_default-  , common8 = defaultStyleCommon }---- | Uses the default terminal colors (which will vary depending on--- the terminal).-defaultStyle256 :: Style256-defaultStyle256 = Style256 {-  foreground256 = color256_f_default-  , background256 = color256_b_default-  , common256 = defaultStyleCommon }------- TextSpec------- | The TextSpec bundles together the styles for the 8 and 256 color--- terminals, so that the text can be portrayed on any terminal.-data TextSpec = TextSpec {-  style8 :: Style8-  , style256 :: Style256 }---- | A TextSpec with the default colors on 8 and 256 color terminals,--- with all attributes turned off.-defaultTextSpec :: TextSpec-defaultTextSpec = TextSpec {-  style8 = defaultStyle8-  , style256 = defaultStyle256 }------- Internal-----(+++) :: TB.Builder -> TB.Builder -> TB.Builder-(+++) = mappend-infixr 5 +++--builder :: Colors -> Chunk -> TB.Builder -> TB.Builder-builder c (Chunk ts t) acc =-  printReset c-  +++ textSpecCodes c ts -  +++ TB.fromText t-  +++ acc--textSpecCodes :: Colors -> TextSpec -> TB.Builder-textSpecCodes c s = case c of-  Colors0 -> mempty-  Colors8 -> style8Colors $ style8 s-  Colors256 -> style256Colors $ style256 s--style8Colors :: Style8 -> TB.Builder-style8Colors s =-  (unCode . unForeground8 . foreground8 $ s)-  +++ (unCode . unBackground8 . background8 $ s)-  +++ (common (common8 s))--style256Colors :: Style256 -> TB.Builder-style256Colors s =-  (unCode . unForeground256 . foreground256 $ s)-  +++ (unCode . unBackground256 . background256 $ s)-  +++ (common (common256 s))--common :: StyleCommon -> TB.Builder-common s =-  (if unBold . bold $ s then unCode boldOn else mempty)-  +++ (if unUnderline . underline $ s-       then unCode underlineOn else mempty)-  +++ (if unFlash . flash $ s-       then unCode flashOn else mempty)-  +++ (if unInverse . inverse $ s-       then unCode inverseOn else mempty)--newtype Code = Code { unCode :: TB.Builder }--code :: String -> Code-code s = Code $-         TB.fromString (toEnum 27:'[':[])-         +++ TB.fromString s-         +++ TB.singleton 'm'--boldOn :: Code-boldOn = code "1"--underlineOn :: Code-underlineOn = code "4"--flashOn :: Code-flashOn = code "5"--inverseOn :: Code-inverseOn = code "7"--resetOn :: Code-resetOn = code "0"--printReset :: Colors -> TB.Builder-printReset c = case c of-  Colors0 -> mempty-  _ -> unCode resetOn------- Color basement----color8_f_default :: Foreground8-color8_f_default = Foreground8 . Code $ mempty--color8_f_black :: Foreground8-color8_f_black = Foreground8 . code $ "30"--color8_f_red :: Foreground8-color8_f_red = Foreground8 . code $ "31"--color8_f_green :: Foreground8-color8_f_green = Foreground8 . code $ "32"--color8_f_yellow :: Foreground8-color8_f_yellow = Foreground8 . code $ "33"--color8_f_blue :: Foreground8-color8_f_blue = Foreground8 . code $ "34"--color8_f_magenta :: Foreground8-color8_f_magenta = Foreground8 . code $ "35"--color8_f_cyan :: Foreground8-color8_f_cyan = Foreground8 . code $ "36"--color8_f_white :: Foreground8-color8_f_white = Foreground8 . code $ "37"--color8_b_default :: Background8-color8_b_default = Background8 . Code $ mempty--color8_b_black :: Background8-color8_b_black = Background8 . code $ "40"--color8_b_red :: Background8-color8_b_red = Background8 . code $ "41"--color8_b_green :: Background8-color8_b_green = Background8 . code $ "42"--color8_b_yellow :: Background8-color8_b_yellow = Background8 . code $ "43"--color8_b_blue :: Background8-color8_b_blue = Background8 . code $ "44"--color8_b_magenta :: Background8-color8_b_magenta = Background8 . code $ "45"--color8_b_cyan :: Background8-color8_b_cyan = Background8 . code $ "46"--color8_b_white :: Background8-color8_b_white = Background8 . code $ "47"--color256_f_default :: Foreground256-color256_f_default = Foreground256 . Code $ mempty--color256_f_0 :: Foreground256-color256_f_0 = Foreground256 . code $ "38;5;0"--color256_f_1 :: Foreground256-color256_f_1 = Foreground256 . code $ "38;5;1"--color256_f_2 :: Foreground256-color256_f_2 = Foreground256 . code $ "38;5;2"--color256_f_3 :: Foreground256-color256_f_3 = Foreground256 . code $ "38;5;3"--color256_f_4 :: Foreground256-color256_f_4 = Foreground256 . code $ "38;5;4"--color256_f_5 :: Foreground256-color256_f_5 = Foreground256 . code $ "38;5;5"--color256_f_6 :: Foreground256-color256_f_6 = Foreground256 . code $ "38;5;6"--color256_f_7 :: Foreground256-color256_f_7 = Foreground256 . code $ "38;5;7"--color256_f_8 :: Foreground256-color256_f_8 = Foreground256 . code $ "38;5;8"--color256_f_9 :: Foreground256-color256_f_9 = Foreground256 . code $ "38;5;9"--color256_f_10 :: Foreground256-color256_f_10 = Foreground256 . code $ "38;5;10"--color256_f_11 :: Foreground256-color256_f_11 = Foreground256 . code $ "38;5;11"--color256_f_12 :: Foreground256-color256_f_12 = Foreground256 . code $ "38;5;12"--color256_f_13 :: Foreground256-color256_f_13 = Foreground256 . code $ "38;5;13"--color256_f_14 :: Foreground256-color256_f_14 = Foreground256 . code $ "38;5;14"--color256_f_15 :: Foreground256-color256_f_15 = Foreground256 . code $ "38;5;15"--color256_f_16 :: Foreground256-color256_f_16 = Foreground256 . code $ "38;5;16"--color256_f_17 :: Foreground256-color256_f_17 = Foreground256 . code $ "38;5;17"--color256_f_18 :: Foreground256-color256_f_18 = Foreground256 . code $ "38;5;18"--color256_f_19 :: Foreground256-color256_f_19 = Foreground256 . code $ "38;5;19"--color256_f_20 :: Foreground256-color256_f_20 = Foreground256 . code $ "38;5;20"--color256_f_21 :: Foreground256-color256_f_21 = Foreground256 . code $ "38;5;21"--color256_f_22 :: Foreground256-color256_f_22 = Foreground256 . code $ "38;5;22"--color256_f_23 :: Foreground256-color256_f_23 = Foreground256 . code $ "38;5;23"--color256_f_24 :: Foreground256-color256_f_24 = Foreground256 . code $ "38;5;24"--color256_f_25 :: Foreground256-color256_f_25 = Foreground256 . code $ "38;5;25"--color256_f_26 :: Foreground256-color256_f_26 = Foreground256 . code $ "38;5;26"--color256_f_27 :: Foreground256-color256_f_27 = Foreground256 . code $ "38;5;27"--color256_f_28 :: Foreground256-color256_f_28 = Foreground256 . code $ "38;5;28"--color256_f_29 :: Foreground256-color256_f_29 = Foreground256 . code $ "38;5;29"--color256_f_30 :: Foreground256-color256_f_30 = Foreground256 . code $ "38;5;30"--color256_f_31 :: Foreground256-color256_f_31 = Foreground256 . code $ "38;5;31"--color256_f_32 :: Foreground256-color256_f_32 = Foreground256 . code $ "38;5;32"--color256_f_33 :: Foreground256-color256_f_33 = Foreground256 . code $ "38;5;33"--color256_f_34 :: Foreground256-color256_f_34 = Foreground256 . code $ "38;5;34"--color256_f_35 :: Foreground256-color256_f_35 = Foreground256 . code $ "38;5;35"--color256_f_36 :: Foreground256-color256_f_36 = Foreground256 . code $ "38;5;36"--color256_f_37 :: Foreground256-color256_f_37 = Foreground256 . code $ "38;5;37"--color256_f_38 :: Foreground256-color256_f_38 = Foreground256 . code $ "38;5;38"--color256_f_39 :: Foreground256-color256_f_39 = Foreground256 . code $ "38;5;39"--color256_f_40 :: Foreground256-color256_f_40 = Foreground256 . code $ "38;5;40"--color256_f_41 :: Foreground256-color256_f_41 = Foreground256 . code $ "38;5;41"--color256_f_42 :: Foreground256-color256_f_42 = Foreground256 . code $ "38;5;42"--color256_f_43 :: Foreground256-color256_f_43 = Foreground256 . code $ "38;5;43"--color256_f_44 :: Foreground256-color256_f_44 = Foreground256 . code $ "38;5;44"--color256_f_45 :: Foreground256-color256_f_45 = Foreground256 . code $ "38;5;45"--color256_f_46 :: Foreground256-color256_f_46 = Foreground256 . code $ "38;5;46"--color256_f_47 :: Foreground256-color256_f_47 = Foreground256 . code $ "38;5;47"--color256_f_48 :: Foreground256-color256_f_48 = Foreground256 . code $ "38;5;48"--color256_f_49 :: Foreground256-color256_f_49 = Foreground256 . code $ "38;5;49"--color256_f_50 :: Foreground256-color256_f_50 = Foreground256 . code $ "38;5;50"--color256_f_51 :: Foreground256-color256_f_51 = Foreground256 . code $ "38;5;51"--color256_f_52 :: Foreground256-color256_f_52 = Foreground256 . code $ "38;5;52"--color256_f_53 :: Foreground256-color256_f_53 = Foreground256 . code $ "38;5;53"--color256_f_54 :: Foreground256-color256_f_54 = Foreground256 . code $ "38;5;54"--color256_f_55 :: Foreground256-color256_f_55 = Foreground256 . code $ "38;5;55"--color256_f_56 :: Foreground256-color256_f_56 = Foreground256 . code $ "38;5;56"--color256_f_57 :: Foreground256-color256_f_57 = Foreground256 . code $ "38;5;57"--color256_f_58 :: Foreground256-color256_f_58 = Foreground256 . code $ "38;5;58"--color256_f_59 :: Foreground256-color256_f_59 = Foreground256 . code $ "38;5;59"--color256_f_60 :: Foreground256-color256_f_60 = Foreground256 . code $ "38;5;60"--color256_f_61 :: Foreground256-color256_f_61 = Foreground256 . code $ "38;5;61"--color256_f_62 :: Foreground256-color256_f_62 = Foreground256 . code $ "38;5;62"--color256_f_63 :: Foreground256-color256_f_63 = Foreground256 . code $ "38;5;63"--color256_f_64 :: Foreground256-color256_f_64 = Foreground256 . code $ "38;5;64"--color256_f_65 :: Foreground256-color256_f_65 = Foreground256 . code $ "38;5;65"--color256_f_66 :: Foreground256-color256_f_66 = Foreground256 . code $ "38;5;66"--color256_f_67 :: Foreground256-color256_f_67 = Foreground256 . code $ "38;5;67"--color256_f_68 :: Foreground256-color256_f_68 = Foreground256 . code $ "38;5;68"--color256_f_69 :: Foreground256-color256_f_69 = Foreground256 . code $ "38;5;69"--color256_f_70 :: Foreground256-color256_f_70 = Foreground256 . code $ "38;5;70"--color256_f_71 :: Foreground256-color256_f_71 = Foreground256 . code $ "38;5;71"--color256_f_72 :: Foreground256-color256_f_72 = Foreground256 . code $ "38;5;72"--color256_f_73 :: Foreground256-color256_f_73 = Foreground256 . code $ "38;5;73"--color256_f_74 :: Foreground256-color256_f_74 = Foreground256 . code $ "38;5;74"--color256_f_75 :: Foreground256-color256_f_75 = Foreground256 . code $ "38;5;75"--color256_f_76 :: Foreground256-color256_f_76 = Foreground256 . code $ "38;5;76"--color256_f_77 :: Foreground256-color256_f_77 = Foreground256 . code $ "38;5;77"--color256_f_78 :: Foreground256-color256_f_78 = Foreground256 . code $ "38;5;78"--color256_f_79 :: Foreground256-color256_f_79 = Foreground256 . code $ "38;5;79"--color256_f_80 :: Foreground256-color256_f_80 = Foreground256 . code $ "38;5;80"--color256_f_81 :: Foreground256-color256_f_81 = Foreground256 . code $ "38;5;81"--color256_f_82 :: Foreground256-color256_f_82 = Foreground256 . code $ "38;5;82"--color256_f_83 :: Foreground256-color256_f_83 = Foreground256 . code $ "38;5;83"--color256_f_84 :: Foreground256-color256_f_84 = Foreground256 . code $ "38;5;84"--color256_f_85 :: Foreground256-color256_f_85 = Foreground256 . code $ "38;5;85"--color256_f_86 :: Foreground256-color256_f_86 = Foreground256 . code $ "38;5;86"--color256_f_87 :: Foreground256-color256_f_87 = Foreground256 . code $ "38;5;87"--color256_f_88 :: Foreground256-color256_f_88 = Foreground256 . code $ "38;5;88"--color256_f_89 :: Foreground256-color256_f_89 = Foreground256 . code $ "38;5;89"--color256_f_90 :: Foreground256-color256_f_90 = Foreground256 . code $ "38;5;90"--color256_f_91 :: Foreground256-color256_f_91 = Foreground256 . code $ "38;5;91"--color256_f_92 :: Foreground256-color256_f_92 = Foreground256 . code $ "38;5;92"--color256_f_93 :: Foreground256-color256_f_93 = Foreground256 . code $ "38;5;93"--color256_f_94 :: Foreground256-color256_f_94 = Foreground256 . code $ "38;5;94"--color256_f_95 :: Foreground256-color256_f_95 = Foreground256 . code $ "38;5;95"--color256_f_96 :: Foreground256-color256_f_96 = Foreground256 . code $ "38;5;96"--color256_f_97 :: Foreground256-color256_f_97 = Foreground256 . code $ "38;5;97"--color256_f_98 :: Foreground256-color256_f_98 = Foreground256 . code $ "38;5;98"--color256_f_99 :: Foreground256-color256_f_99 = Foreground256 . code $ "38;5;99"--color256_f_100 :: Foreground256-color256_f_100 = Foreground256 . code $ "38;5;100"--color256_f_101 :: Foreground256-color256_f_101 = Foreground256 . code $ "38;5;101"--color256_f_102 :: Foreground256-color256_f_102 = Foreground256 . code $ "38;5;102"--color256_f_103 :: Foreground256-color256_f_103 = Foreground256 . code $ "38;5;103"--color256_f_104 :: Foreground256-color256_f_104 = Foreground256 . code $ "38;5;104"--color256_f_105 :: Foreground256-color256_f_105 = Foreground256 . code $ "38;5;105"--color256_f_106 :: Foreground256-color256_f_106 = Foreground256 . code $ "38;5;106"--color256_f_107 :: Foreground256-color256_f_107 = Foreground256 . code $ "38;5;107"--color256_f_108 :: Foreground256-color256_f_108 = Foreground256 . code $ "38;5;108"--color256_f_109 :: Foreground256-color256_f_109 = Foreground256 . code $ "38;5;109"--color256_f_110 :: Foreground256-color256_f_110 = Foreground256 . code $ "38;5;110"--color256_f_111 :: Foreground256-color256_f_111 = Foreground256 . code $ "38;5;111"--color256_f_112 :: Foreground256-color256_f_112 = Foreground256 . code $ "38;5;112"--color256_f_113 :: Foreground256-color256_f_113 = Foreground256 . code $ "38;5;113"--color256_f_114 :: Foreground256-color256_f_114 = Foreground256 . code $ "38;5;114"--color256_f_115 :: Foreground256-color256_f_115 = Foreground256 . code $ "38;5;115"--color256_f_116 :: Foreground256-color256_f_116 = Foreground256 . code $ "38;5;116"--color256_f_117 :: Foreground256-color256_f_117 = Foreground256 . code $ "38;5;117"--color256_f_118 :: Foreground256-color256_f_118 = Foreground256 . code $ "38;5;118"--color256_f_119 :: Foreground256-color256_f_119 = Foreground256 . code $ "38;5;119"--color256_f_120 :: Foreground256-color256_f_120 = Foreground256 . code $ "38;5;120"--color256_f_121 :: Foreground256-color256_f_121 = Foreground256 . code $ "38;5;121"--color256_f_122 :: Foreground256-color256_f_122 = Foreground256 . code $ "38;5;122"--color256_f_123 :: Foreground256-color256_f_123 = Foreground256 . code $ "38;5;123"--color256_f_124 :: Foreground256-color256_f_124 = Foreground256 . code $ "38;5;124"--color256_f_125 :: Foreground256-color256_f_125 = Foreground256 . code $ "38;5;125"--color256_f_126 :: Foreground256-color256_f_126 = Foreground256 . code $ "38;5;126"--color256_f_127 :: Foreground256-color256_f_127 = Foreground256 . code $ "38;5;127"--color256_f_128 :: Foreground256-color256_f_128 = Foreground256 . code $ "38;5;128"--color256_f_129 :: Foreground256-color256_f_129 = Foreground256 . code $ "38;5;129"--color256_f_130 :: Foreground256-color256_f_130 = Foreground256 . code $ "38;5;130"--color256_f_131 :: Foreground256-color256_f_131 = Foreground256 . code $ "38;5;131"--color256_f_132 :: Foreground256-color256_f_132 = Foreground256 . code $ "38;5;132"--color256_f_133 :: Foreground256-color256_f_133 = Foreground256 . code $ "38;5;133"--color256_f_134 :: Foreground256-color256_f_134 = Foreground256 . code $ "38;5;134"--color256_f_135 :: Foreground256-color256_f_135 = Foreground256 . code $ "38;5;135"--color256_f_136 :: Foreground256-color256_f_136 = Foreground256 . code $ "38;5;136"--color256_f_137 :: Foreground256-color256_f_137 = Foreground256 . code $ "38;5;137"--color256_f_138 :: Foreground256-color256_f_138 = Foreground256 . code $ "38;5;138"--color256_f_139 :: Foreground256-color256_f_139 = Foreground256 . code $ "38;5;139"--color256_f_140 :: Foreground256-color256_f_140 = Foreground256 . code $ "38;5;140"--color256_f_141 :: Foreground256-color256_f_141 = Foreground256 . code $ "38;5;141"--color256_f_142 :: Foreground256-color256_f_142 = Foreground256 . code $ "38;5;142"--color256_f_143 :: Foreground256-color256_f_143 = Foreground256 . code $ "38;5;143"--color256_f_144 :: Foreground256-color256_f_144 = Foreground256 . code $ "38;5;144"--color256_f_145 :: Foreground256-color256_f_145 = Foreground256 . code $ "38;5;145"--color256_f_146 :: Foreground256-color256_f_146 = Foreground256 . code $ "38;5;146"--color256_f_147 :: Foreground256-color256_f_147 = Foreground256 . code $ "38;5;147"--color256_f_148 :: Foreground256-color256_f_148 = Foreground256 . code $ "38;5;148"--color256_f_149 :: Foreground256-color256_f_149 = Foreground256 . code $ "38;5;149"--color256_f_150 :: Foreground256-color256_f_150 = Foreground256 . code $ "38;5;150"--color256_f_151 :: Foreground256-color256_f_151 = Foreground256 . code $ "38;5;151"--color256_f_152 :: Foreground256-color256_f_152 = Foreground256 . code $ "38;5;152"--color256_f_153 :: Foreground256-color256_f_153 = Foreground256 . code $ "38;5;153"--color256_f_154 :: Foreground256-color256_f_154 = Foreground256 . code $ "38;5;154"--color256_f_155 :: Foreground256-color256_f_155 = Foreground256 . code $ "38;5;155"--color256_f_156 :: Foreground256-color256_f_156 = Foreground256 . code $ "38;5;156"--color256_f_157 :: Foreground256-color256_f_157 = Foreground256 . code $ "38;5;157"--color256_f_158 :: Foreground256-color256_f_158 = Foreground256 . code $ "38;5;158"--color256_f_159 :: Foreground256-color256_f_159 = Foreground256 . code $ "38;5;159"--color256_f_160 :: Foreground256-color256_f_160 = Foreground256 . code $ "38;5;160"--color256_f_161 :: Foreground256-color256_f_161 = Foreground256 . code $ "38;5;161"--color256_f_162 :: Foreground256-color256_f_162 = Foreground256 . code $ "38;5;162"--color256_f_163 :: Foreground256-color256_f_163 = Foreground256 . code $ "38;5;163"--color256_f_164 :: Foreground256-color256_f_164 = Foreground256 . code $ "38;5;164"--color256_f_165 :: Foreground256-color256_f_165 = Foreground256 . code $ "38;5;165"--color256_f_166 :: Foreground256-color256_f_166 = Foreground256 . code $ "38;5;166"--color256_f_167 :: Foreground256-color256_f_167 = Foreground256 . code $ "38;5;167"--color256_f_168 :: Foreground256-color256_f_168 = Foreground256 . code $ "38;5;168"--color256_f_169 :: Foreground256-color256_f_169 = Foreground256 . code $ "38;5;169"--color256_f_170 :: Foreground256-color256_f_170 = Foreground256 . code $ "38;5;170"--color256_f_171 :: Foreground256-color256_f_171 = Foreground256 . code $ "38;5;171"--color256_f_172 :: Foreground256-color256_f_172 = Foreground256 . code $ "38;5;172"--color256_f_173 :: Foreground256-color256_f_173 = Foreground256 . code $ "38;5;173"--color256_f_174 :: Foreground256-color256_f_174 = Foreground256 . code $ "38;5;174"--color256_f_175 :: Foreground256-color256_f_175 = Foreground256 . code $ "38;5;175"--color256_f_176 :: Foreground256-color256_f_176 = Foreground256 . code $ "38;5;176"--color256_f_177 :: Foreground256-color256_f_177 = Foreground256 . code $ "38;5;177"--color256_f_178 :: Foreground256-color256_f_178 = Foreground256 . code $ "38;5;178"--color256_f_179 :: Foreground256-color256_f_179 = Foreground256 . code $ "38;5;179"--color256_f_180 :: Foreground256-color256_f_180 = Foreground256 . code $ "38;5;180"--color256_f_181 :: Foreground256-color256_f_181 = Foreground256 . code $ "38;5;181"--color256_f_182 :: Foreground256-color256_f_182 = Foreground256 . code $ "38;5;182"--color256_f_183 :: Foreground256-color256_f_183 = Foreground256 . code $ "38;5;183"--color256_f_184 :: Foreground256-color256_f_184 = Foreground256 . code $ "38;5;184"--color256_f_185 :: Foreground256-color256_f_185 = Foreground256 . code $ "38;5;185"--color256_f_186 :: Foreground256-color256_f_186 = Foreground256 . code $ "38;5;186"--color256_f_187 :: Foreground256-color256_f_187 = Foreground256 . code $ "38;5;187"--color256_f_188 :: Foreground256-color256_f_188 = Foreground256 . code $ "38;5;188"--color256_f_189 :: Foreground256-color256_f_189 = Foreground256 . code $ "38;5;189"--color256_f_190 :: Foreground256-color256_f_190 = Foreground256 . code $ "38;5;190"--color256_f_191 :: Foreground256-color256_f_191 = Foreground256 . code $ "38;5;191"--color256_f_192 :: Foreground256-color256_f_192 = Foreground256 . code $ "38;5;192"--color256_f_193 :: Foreground256-color256_f_193 = Foreground256 . code $ "38;5;193"--color256_f_194 :: Foreground256-color256_f_194 = Foreground256 . code $ "38;5;194"--color256_f_195 :: Foreground256-color256_f_195 = Foreground256 . code $ "38;5;195"--color256_f_196 :: Foreground256-color256_f_196 = Foreground256 . code $ "38;5;196"--color256_f_197 :: Foreground256-color256_f_197 = Foreground256 . code $ "38;5;197"--color256_f_198 :: Foreground256-color256_f_198 = Foreground256 . code $ "38;5;198"--color256_f_199 :: Foreground256-color256_f_199 = Foreground256 . code $ "38;5;199"--color256_f_200 :: Foreground256-color256_f_200 = Foreground256 . code $ "38;5;200"--color256_f_201 :: Foreground256-color256_f_201 = Foreground256 . code $ "38;5;201"--color256_f_202 :: Foreground256-color256_f_202 = Foreground256 . code $ "38;5;202"--color256_f_203 :: Foreground256-color256_f_203 = Foreground256 . code $ "38;5;203"--color256_f_204 :: Foreground256-color256_f_204 = Foreground256 . code $ "38;5;204"--color256_f_205 :: Foreground256-color256_f_205 = Foreground256 . code $ "38;5;205"--color256_f_206 :: Foreground256-color256_f_206 = Foreground256 . code $ "38;5;206"--color256_f_207 :: Foreground256-color256_f_207 = Foreground256 . code $ "38;5;207"--color256_f_208 :: Foreground256-color256_f_208 = Foreground256 . code $ "38;5;208"--color256_f_209 :: Foreground256-color256_f_209 = Foreground256 . code $ "38;5;209"--color256_f_210 :: Foreground256-color256_f_210 = Foreground256 . code $ "38;5;210"--color256_f_211 :: Foreground256-color256_f_211 = Foreground256 . code $ "38;5;211"--color256_f_212 :: Foreground256-color256_f_212 = Foreground256 . code $ "38;5;212"--color256_f_213 :: Foreground256-color256_f_213 = Foreground256 . code $ "38;5;213"--color256_f_214 :: Foreground256-color256_f_214 = Foreground256 . code $ "38;5;214"--color256_f_215 :: Foreground256-color256_f_215 = Foreground256 . code $ "38;5;215"--color256_f_216 :: Foreground256-color256_f_216 = Foreground256 . code $ "38;5;216"--color256_f_217 :: Foreground256-color256_f_217 = Foreground256 . code $ "38;5;217"--color256_f_218 :: Foreground256-color256_f_218 = Foreground256 . code $ "38;5;218"--color256_f_219 :: Foreground256-color256_f_219 = Foreground256 . code $ "38;5;219"--color256_f_220 :: Foreground256-color256_f_220 = Foreground256 . code $ "38;5;220"--color256_f_221 :: Foreground256-color256_f_221 = Foreground256 . code $ "38;5;221"--color256_f_222 :: Foreground256-color256_f_222 = Foreground256 . code $ "38;5;222"--color256_f_223 :: Foreground256-color256_f_223 = Foreground256 . code $ "38;5;223"--color256_f_224 :: Foreground256-color256_f_224 = Foreground256 . code $ "38;5;224"--color256_f_225 :: Foreground256-color256_f_225 = Foreground256 . code $ "38;5;225"--color256_f_226 :: Foreground256-color256_f_226 = Foreground256 . code $ "38;5;226"--color256_f_227 :: Foreground256-color256_f_227 = Foreground256 . code $ "38;5;227"--color256_f_228 :: Foreground256-color256_f_228 = Foreground256 . code $ "38;5;228"--color256_f_229 :: Foreground256-color256_f_229 = Foreground256 . code $ "38;5;229"--color256_f_230 :: Foreground256-color256_f_230 = Foreground256 . code $ "38;5;230"--color256_f_231 :: Foreground256-color256_f_231 = Foreground256 . code $ "38;5;231"--color256_f_232 :: Foreground256-color256_f_232 = Foreground256 . code $ "38;5;232"--color256_f_233 :: Foreground256-color256_f_233 = Foreground256 . code $ "38;5;233"--color256_f_234 :: Foreground256-color256_f_234 = Foreground256 . code $ "38;5;234"--color256_f_235 :: Foreground256-color256_f_235 = Foreground256 . code $ "38;5;235"--color256_f_236 :: Foreground256-color256_f_236 = Foreground256 . code $ "38;5;236"--color256_f_237 :: Foreground256-color256_f_237 = Foreground256 . code $ "38;5;237"--color256_f_238 :: Foreground256-color256_f_238 = Foreground256 . code $ "38;5;238"--color256_f_239 :: Foreground256-color256_f_239 = Foreground256 . code $ "38;5;239"--color256_f_240 :: Foreground256-color256_f_240 = Foreground256 . code $ "38;5;240"--color256_f_241 :: Foreground256-color256_f_241 = Foreground256 . code $ "38;5;241"--color256_f_242 :: Foreground256-color256_f_242 = Foreground256 . code $ "38;5;242"--color256_f_243 :: Foreground256-color256_f_243 = Foreground256 . code $ "38;5;243"--color256_f_244 :: Foreground256-color256_f_244 = Foreground256 . code $ "38;5;244"--color256_f_245 :: Foreground256-color256_f_245 = Foreground256 . code $ "38;5;245"--color256_f_246 :: Foreground256-color256_f_246 = Foreground256 . code $ "38;5;246"--color256_f_247 :: Foreground256-color256_f_247 = Foreground256 . code $ "38;5;247"--color256_f_248 :: Foreground256-color256_f_248 = Foreground256 . code $ "38;5;248"--color256_f_249 :: Foreground256-color256_f_249 = Foreground256 . code $ "38;5;249"--color256_f_250 :: Foreground256-color256_f_250 = Foreground256 . code $ "38;5;250"--color256_f_251 :: Foreground256-color256_f_251 = Foreground256 . code $ "38;5;251"--color256_f_252 :: Foreground256-color256_f_252 = Foreground256 . code $ "38;5;252"--color256_f_253 :: Foreground256-color256_f_253 = Foreground256 . code $ "38;5;253"--color256_f_254 :: Foreground256-color256_f_254 = Foreground256 . code $ "38;5;254"--color256_f_255 :: Foreground256-color256_f_255 = Foreground256 . code $ "38;5;255"--color256_b_default :: Background256-color256_b_default = Background256 . Code $ mempty--color256_b_0 :: Background256-color256_b_0 = Background256 . code $ "48;5;0"--color256_b_1 :: Background256-color256_b_1 = Background256 . code $ "48;5;1"--color256_b_2 :: Background256-color256_b_2 = Background256 . code $ "48;5;2"--color256_b_3 :: Background256-color256_b_3 = Background256 . code $ "48;5;3"--color256_b_4 :: Background256-color256_b_4 = Background256 . code $ "48;5;4"--color256_b_5 :: Background256-color256_b_5 = Background256 . code $ "48;5;5"--color256_b_6 :: Background256-color256_b_6 = Background256 . code $ "48;5;6"--color256_b_7 :: Background256-color256_b_7 = Background256 . code $ "48;5;7"--color256_b_8 :: Background256-color256_b_8 = Background256 . code $ "48;5;8"--color256_b_9 :: Background256-color256_b_9 = Background256 . code $ "48;5;9"--color256_b_10 :: Background256-color256_b_10 = Background256 . code $ "48;5;10"--color256_b_11 :: Background256-color256_b_11 = Background256 . code $ "48;5;11"--color256_b_12 :: Background256-color256_b_12 = Background256 . code $ "48;5;12"--color256_b_13 :: Background256-color256_b_13 = Background256 . code $ "48;5;13"--color256_b_14 :: Background256-color256_b_14 = Background256 . code $ "48;5;14"--color256_b_15 :: Background256-color256_b_15 = Background256 . code $ "48;5;15"--color256_b_16 :: Background256-color256_b_16 = Background256 . code $ "48;5;16"--color256_b_17 :: Background256-color256_b_17 = Background256 . code $ "48;5;17"--color256_b_18 :: Background256-color256_b_18 = Background256 . code $ "48;5;18"--color256_b_19 :: Background256-color256_b_19 = Background256 . code $ "48;5;19"--color256_b_20 :: Background256-color256_b_20 = Background256 . code $ "48;5;20"--color256_b_21 :: Background256-color256_b_21 = Background256 . code $ "48;5;21"--color256_b_22 :: Background256-color256_b_22 = Background256 . code $ "48;5;22"--color256_b_23 :: Background256-color256_b_23 = Background256 . code $ "48;5;23"--color256_b_24 :: Background256-color256_b_24 = Background256 . code $ "48;5;24"--color256_b_25 :: Background256-color256_b_25 = Background256 . code $ "48;5;25"--color256_b_26 :: Background256-color256_b_26 = Background256 . code $ "48;5;26"--color256_b_27 :: Background256-color256_b_27 = Background256 . code $ "48;5;27"--color256_b_28 :: Background256-color256_b_28 = Background256 . code $ "48;5;28"--color256_b_29 :: Background256-color256_b_29 = Background256 . code $ "48;5;29"--color256_b_30 :: Background256-color256_b_30 = Background256 . code $ "48;5;30"--color256_b_31 :: Background256-color256_b_31 = Background256 . code $ "48;5;31"--color256_b_32 :: Background256-color256_b_32 = Background256 . code $ "48;5;32"--color256_b_33 :: Background256-color256_b_33 = Background256 . code $ "48;5;33"--color256_b_34 :: Background256-color256_b_34 = Background256 . code $ "48;5;34"--color256_b_35 :: Background256-color256_b_35 = Background256 . code $ "48;5;35"--color256_b_36 :: Background256-color256_b_36 = Background256 . code $ "48;5;36"--color256_b_37 :: Background256-color256_b_37 = Background256 . code $ "48;5;37"--color256_b_38 :: Background256-color256_b_38 = Background256 . code $ "48;5;38"--color256_b_39 :: Background256-color256_b_39 = Background256 . code $ "48;5;39"--color256_b_40 :: Background256-color256_b_40 = Background256 . code $ "48;5;40"--color256_b_41 :: Background256-color256_b_41 = Background256 . code $ "48;5;41"--color256_b_42 :: Background256-color256_b_42 = Background256 . code $ "48;5;42"--color256_b_43 :: Background256-color256_b_43 = Background256 . code $ "48;5;43"--color256_b_44 :: Background256-color256_b_44 = Background256 . code $ "48;5;44"--color256_b_45 :: Background256-color256_b_45 = Background256 . code $ "48;5;45"--color256_b_46 :: Background256-color256_b_46 = Background256 . code $ "48;5;46"--color256_b_47 :: Background256-color256_b_47 = Background256 . code $ "48;5;47"--color256_b_48 :: Background256-color256_b_48 = Background256 . code $ "48;5;48"--color256_b_49 :: Background256-color256_b_49 = Background256 . code $ "48;5;49"--color256_b_50 :: Background256-color256_b_50 = Background256 . code $ "48;5;50"--color256_b_51 :: Background256-color256_b_51 = Background256 . code $ "48;5;51"--color256_b_52 :: Background256-color256_b_52 = Background256 . code $ "48;5;52"--color256_b_53 :: Background256-color256_b_53 = Background256 . code $ "48;5;53"--color256_b_54 :: Background256-color256_b_54 = Background256 . code $ "48;5;54"--color256_b_55 :: Background256-color256_b_55 = Background256 . code $ "48;5;55"--color256_b_56 :: Background256-color256_b_56 = Background256 . code $ "48;5;56"--color256_b_57 :: Background256-color256_b_57 = Background256 . code $ "48;5;57"--color256_b_58 :: Background256-color256_b_58 = Background256 . code $ "48;5;58"--color256_b_59 :: Background256-color256_b_59 = Background256 . code $ "48;5;59"--color256_b_60 :: Background256-color256_b_60 = Background256 . code $ "48;5;60"--color256_b_61 :: Background256-color256_b_61 = Background256 . code $ "48;5;61"--color256_b_62 :: Background256-color256_b_62 = Background256 . code $ "48;5;62"--color256_b_63 :: Background256-color256_b_63 = Background256 . code $ "48;5;63"--color256_b_64 :: Background256-color256_b_64 = Background256 . code $ "48;5;64"--color256_b_65 :: Background256-color256_b_65 = Background256 . code $ "48;5;65"--color256_b_66 :: Background256-color256_b_66 = Background256 . code $ "48;5;66"--color256_b_67 :: Background256-color256_b_67 = Background256 . code $ "48;5;67"--color256_b_68 :: Background256-color256_b_68 = Background256 . code $ "48;5;68"--color256_b_69 :: Background256-color256_b_69 = Background256 . code $ "48;5;69"--color256_b_70 :: Background256-color256_b_70 = Background256 . code $ "48;5;70"--color256_b_71 :: Background256-color256_b_71 = Background256 . code $ "48;5;71"--color256_b_72 :: Background256-color256_b_72 = Background256 . code $ "48;5;72"--color256_b_73 :: Background256-color256_b_73 = Background256 . code $ "48;5;73"--color256_b_74 :: Background256-color256_b_74 = Background256 . code $ "48;5;74"--color256_b_75 :: Background256-color256_b_75 = Background256 . code $ "48;5;75"--color256_b_76 :: Background256-color256_b_76 = Background256 . code $ "48;5;76"--color256_b_77 :: Background256-color256_b_77 = Background256 . code $ "48;5;77"--color256_b_78 :: Background256-color256_b_78 = Background256 . code $ "48;5;78"--color256_b_79 :: Background256-color256_b_79 = Background256 . code $ "48;5;79"--color256_b_80 :: Background256-color256_b_80 = Background256 . code $ "48;5;80"--color256_b_81 :: Background256-color256_b_81 = Background256 . code $ "48;5;81"--color256_b_82 :: Background256-color256_b_82 = Background256 . code $ "48;5;82"--color256_b_83 :: Background256-color256_b_83 = Background256 . code $ "48;5;83"--color256_b_84 :: Background256-color256_b_84 = Background256 . code $ "48;5;84"--color256_b_85 :: Background256-color256_b_85 = Background256 . code $ "48;5;85"--color256_b_86 :: Background256-color256_b_86 = Background256 . code $ "48;5;86"--color256_b_87 :: Background256-color256_b_87 = Background256 . code $ "48;5;87"--color256_b_88 :: Background256-color256_b_88 = Background256 . code $ "48;5;88"--color256_b_89 :: Background256-color256_b_89 = Background256 . code $ "48;5;89"--color256_b_90 :: Background256-color256_b_90 = Background256 . code $ "48;5;90"--color256_b_91 :: Background256-color256_b_91 = Background256 . code $ "48;5;91"--color256_b_92 :: Background256-color256_b_92 = Background256 . code $ "48;5;92"--color256_b_93 :: Background256-color256_b_93 = Background256 . code $ "48;5;93"--color256_b_94 :: Background256-color256_b_94 = Background256 . code $ "48;5;94"--color256_b_95 :: Background256-color256_b_95 = Background256 . code $ "48;5;95"--color256_b_96 :: Background256-color256_b_96 = Background256 . code $ "48;5;96"--color256_b_97 :: Background256-color256_b_97 = Background256 . code $ "48;5;97"--color256_b_98 :: Background256-color256_b_98 = Background256 . code $ "48;5;98"--color256_b_99 :: Background256-color256_b_99 = Background256 . code $ "48;5;99"--color256_b_100 :: Background256-color256_b_100 = Background256 . code $ "48;5;100"--color256_b_101 :: Background256-color256_b_101 = Background256 . code $ "48;5;101"--color256_b_102 :: Background256-color256_b_102 = Background256 . code $ "48;5;102"--color256_b_103 :: Background256-color256_b_103 = Background256 . code $ "48;5;103"--color256_b_104 :: Background256-color256_b_104 = Background256 . code $ "48;5;104"--color256_b_105 :: Background256-color256_b_105 = Background256 . code $ "48;5;105"--color256_b_106 :: Background256-color256_b_106 = Background256 . code $ "48;5;106"--color256_b_107 :: Background256-color256_b_107 = Background256 . code $ "48;5;107"--color256_b_108 :: Background256-color256_b_108 = Background256 . code $ "48;5;108"--color256_b_109 :: Background256-color256_b_109 = Background256 . code $ "48;5;109"--color256_b_110 :: Background256-color256_b_110 = Background256 . code $ "48;5;110"--color256_b_111 :: Background256-color256_b_111 = Background256 . code $ "48;5;111"--color256_b_112 :: Background256-color256_b_112 = Background256 . code $ "48;5;112"--color256_b_113 :: Background256-color256_b_113 = Background256 . code $ "48;5;113"--color256_b_114 :: Background256-color256_b_114 = Background256 . code $ "48;5;114"--color256_b_115 :: Background256-color256_b_115 = Background256 . code $ "48;5;115"--color256_b_116 :: Background256-color256_b_116 = Background256 . code $ "48;5;116"--color256_b_117 :: Background256-color256_b_117 = Background256 . code $ "48;5;117"--color256_b_118 :: Background256-color256_b_118 = Background256 . code $ "48;5;118"--color256_b_119 :: Background256-color256_b_119 = Background256 . code $ "48;5;119"--color256_b_120 :: Background256-color256_b_120 = Background256 . code $ "48;5;120"--color256_b_121 :: Background256-color256_b_121 = Background256 . code $ "48;5;121"--color256_b_122 :: Background256-color256_b_122 = Background256 . code $ "48;5;122"--color256_b_123 :: Background256-color256_b_123 = Background256 . code $ "48;5;123"--color256_b_124 :: Background256-color256_b_124 = Background256 . code $ "48;5;124"--color256_b_125 :: Background256-color256_b_125 = Background256 . code $ "48;5;125"--color256_b_126 :: Background256-color256_b_126 = Background256 . code $ "48;5;126"--color256_b_127 :: Background256-color256_b_127 = Background256 . code $ "48;5;127"--color256_b_128 :: Background256-color256_b_128 = Background256 . code $ "48;5;128"--color256_b_129 :: Background256-color256_b_129 = Background256 . code $ "48;5;129"--color256_b_130 :: Background256-color256_b_130 = Background256 . code $ "48;5;130"--color256_b_131 :: Background256-color256_b_131 = Background256 . code $ "48;5;131"--color256_b_132 :: Background256-color256_b_132 = Background256 . code $ "48;5;132"--color256_b_133 :: Background256-color256_b_133 = Background256 . code $ "48;5;133"--color256_b_134 :: Background256-color256_b_134 = Background256 . code $ "48;5;134"--color256_b_135 :: Background256-color256_b_135 = Background256 . code $ "48;5;135"--color256_b_136 :: Background256-color256_b_136 = Background256 . code $ "48;5;136"--color256_b_137 :: Background256-color256_b_137 = Background256 . code $ "48;5;137"--color256_b_138 :: Background256-color256_b_138 = Background256 . code $ "48;5;138"--color256_b_139 :: Background256-color256_b_139 = Background256 . code $ "48;5;139"--color256_b_140 :: Background256-color256_b_140 = Background256 . code $ "48;5;140"--color256_b_141 :: Background256-color256_b_141 = Background256 . code $ "48;5;141"--color256_b_142 :: Background256-color256_b_142 = Background256 . code $ "48;5;142"--color256_b_143 :: Background256-color256_b_143 = Background256 . code $ "48;5;143"--color256_b_144 :: Background256-color256_b_144 = Background256 . code $ "48;5;144"--color256_b_145 :: Background256-color256_b_145 = Background256 . code $ "48;5;145"--color256_b_146 :: Background256-color256_b_146 = Background256 . code $ "48;5;146"--color256_b_147 :: Background256-color256_b_147 = Background256 . code $ "48;5;147"--color256_b_148 :: Background256-color256_b_148 = Background256 . code $ "48;5;148"--color256_b_149 :: Background256-color256_b_149 = Background256 . code $ "48;5;149"--color256_b_150 :: Background256-color256_b_150 = Background256 . code $ "48;5;150"--color256_b_151 :: Background256-color256_b_151 = Background256 . code $ "48;5;151"--color256_b_152 :: Background256-color256_b_152 = Background256 . code $ "48;5;152"--color256_b_153 :: Background256-color256_b_153 = Background256 . code $ "48;5;153"--color256_b_154 :: Background256-color256_b_154 = Background256 . code $ "48;5;154"--color256_b_155 :: Background256-color256_b_155 = Background256 . code $ "48;5;155"--color256_b_156 :: Background256-color256_b_156 = Background256 . code $ "48;5;156"--color256_b_157 :: Background256-color256_b_157 = Background256 . code $ "48;5;157"--color256_b_158 :: Background256-color256_b_158 = Background256 . code $ "48;5;158"--color256_b_159 :: Background256-color256_b_159 = Background256 . code $ "48;5;159"--color256_b_160 :: Background256-color256_b_160 = Background256 . code $ "48;5;160"--color256_b_161 :: Background256-color256_b_161 = Background256 . code $ "48;5;161"--color256_b_162 :: Background256-color256_b_162 = Background256 . code $ "48;5;162"--color256_b_163 :: Background256-color256_b_163 = Background256 . code $ "48;5;163"--color256_b_164 :: Background256-color256_b_164 = Background256 . code $ "48;5;164"--color256_b_165 :: Background256-color256_b_165 = Background256 . code $ "48;5;165"--color256_b_166 :: Background256-color256_b_166 = Background256 . code $ "48;5;166"--color256_b_167 :: Background256-color256_b_167 = Background256 . code $ "48;5;167"--color256_b_168 :: Background256-color256_b_168 = Background256 . code $ "48;5;168"--color256_b_169 :: Background256-color256_b_169 = Background256 . code $ "48;5;169"--color256_b_170 :: Background256-color256_b_170 = Background256 . code $ "48;5;170"--color256_b_171 :: Background256-color256_b_171 = Background256 . code $ "48;5;171"--color256_b_172 :: Background256-color256_b_172 = Background256 . code $ "48;5;172"--color256_b_173 :: Background256-color256_b_173 = Background256 . code $ "48;5;173"--color256_b_174 :: Background256-color256_b_174 = Background256 . code $ "48;5;174"--color256_b_175 :: Background256-color256_b_175 = Background256 . code $ "48;5;175"--color256_b_176 :: Background256-color256_b_176 = Background256 . code $ "48;5;176"--color256_b_177 :: Background256-color256_b_177 = Background256 . code $ "48;5;177"--color256_b_178 :: Background256-color256_b_178 = Background256 . code $ "48;5;178"--color256_b_179 :: Background256-color256_b_179 = Background256 . code $ "48;5;179"--color256_b_180 :: Background256-color256_b_180 = Background256 . code $ "48;5;180"--color256_b_181 :: Background256-color256_b_181 = Background256 . code $ "48;5;181"--color256_b_182 :: Background256-color256_b_182 = Background256 . code $ "48;5;182"--color256_b_183 :: Background256-color256_b_183 = Background256 . code $ "48;5;183"--color256_b_184 :: Background256-color256_b_184 = Background256 . code $ "48;5;184"--color256_b_185 :: Background256-color256_b_185 = Background256 . code $ "48;5;185"--color256_b_186 :: Background256-color256_b_186 = Background256 . code $ "48;5;186"--color256_b_187 :: Background256-color256_b_187 = Background256 . code $ "48;5;187"--color256_b_188 :: Background256-color256_b_188 = Background256 . code $ "48;5;188"--color256_b_189 :: Background256-color256_b_189 = Background256 . code $ "48;5;189"--color256_b_190 :: Background256-color256_b_190 = Background256 . code $ "48;5;190"--color256_b_191 :: Background256-color256_b_191 = Background256 . code $ "48;5;191"--color256_b_192 :: Background256-color256_b_192 = Background256 . code $ "48;5;192"--color256_b_193 :: Background256-color256_b_193 = Background256 . code $ "48;5;193"--color256_b_194 :: Background256-color256_b_194 = Background256 . code $ "48;5;194"--color256_b_195 :: Background256-color256_b_195 = Background256 . code $ "48;5;195"--color256_b_196 :: Background256-color256_b_196 = Background256 . code $ "48;5;196"--color256_b_197 :: Background256-color256_b_197 = Background256 . code $ "48;5;197"--color256_b_198 :: Background256-color256_b_198 = Background256 . code $ "48;5;198"--color256_b_199 :: Background256-color256_b_199 = Background256 . code $ "48;5;199"--color256_b_200 :: Background256-color256_b_200 = Background256 . code $ "48;5;200"--color256_b_201 :: Background256-color256_b_201 = Background256 . code $ "48;5;201"--color256_b_202 :: Background256-color256_b_202 = Background256 . code $ "48;5;202"--color256_b_203 :: Background256-color256_b_203 = Background256 . code $ "48;5;203"--color256_b_204 :: Background256-color256_b_204 = Background256 . code $ "48;5;204"--color256_b_205 :: Background256-color256_b_205 = Background256 . code $ "48;5;205"--color256_b_206 :: Background256-color256_b_206 = Background256 . code $ "48;5;206"--color256_b_207 :: Background256-color256_b_207 = Background256 . code $ "48;5;207"--color256_b_208 :: Background256-color256_b_208 = Background256 . code $ "48;5;208"--color256_b_209 :: Background256-color256_b_209 = Background256 . code $ "48;5;209"--color256_b_210 :: Background256-color256_b_210 = Background256 . code $ "48;5;210"--color256_b_211 :: Background256-color256_b_211 = Background256 . code $ "48;5;211"--color256_b_212 :: Background256-color256_b_212 = Background256 . code $ "48;5;212"--color256_b_213 :: Background256-color256_b_213 = Background256 . code $ "48;5;213"--color256_b_214 :: Background256-color256_b_214 = Background256 . code $ "48;5;214"--color256_b_215 :: Background256-color256_b_215 = Background256 . code $ "48;5;215"--color256_b_216 :: Background256-color256_b_216 = Background256 . code $ "48;5;216"--color256_b_217 :: Background256-color256_b_217 = Background256 . code $ "48;5;217"--color256_b_218 :: Background256-color256_b_218 = Background256 . code $ "48;5;218"--color256_b_219 :: Background256-color256_b_219 = Background256 . code $ "48;5;219"--color256_b_220 :: Background256-color256_b_220 = Background256 . code $ "48;5;220"--color256_b_221 :: Background256-color256_b_221 = Background256 . code $ "48;5;221"--color256_b_222 :: Background256-color256_b_222 = Background256 . code $ "48;5;222"--color256_b_223 :: Background256-color256_b_223 = Background256 . code $ "48;5;223"--color256_b_224 :: Background256-color256_b_224 = Background256 . code $ "48;5;224"--color256_b_225 :: Background256-color256_b_225 = Background256 . code $ "48;5;225"--color256_b_226 :: Background256-color256_b_226 = Background256 . code $ "48;5;226"--color256_b_227 :: Background256-color256_b_227 = Background256 . code $ "48;5;227"--color256_b_228 :: Background256-color256_b_228 = Background256 . code $ "48;5;228"--color256_b_229 :: Background256-color256_b_229 = Background256 . code $ "48;5;229"--color256_b_230 :: Background256-color256_b_230 = Background256 . code $ "48;5;230"--color256_b_231 :: Background256-color256_b_231 = Background256 . code $ "48;5;231"--color256_b_232 :: Background256-color256_b_232 = Background256 . code $ "48;5;232"--color256_b_233 :: Background256-color256_b_233 = Background256 . code $ "48;5;233"--color256_b_234 :: Background256-color256_b_234 = Background256 . code $ "48;5;234"--color256_b_235 :: Background256-color256_b_235 = Background256 . code $ "48;5;235"--color256_b_236 :: Background256-color256_b_236 = Background256 . code $ "48;5;236"--color256_b_237 :: Background256-color256_b_237 = Background256 . code $ "48;5;237"--color256_b_238 :: Background256-color256_b_238 = Background256 . code $ "48;5;238"--color256_b_239 :: Background256-color256_b_239 = Background256 . code $ "48;5;239"--color256_b_240 :: Background256-color256_b_240 = Background256 . code $ "48;5;240"--color256_b_241 :: Background256-color256_b_241 = Background256 . code $ "48;5;241"--color256_b_242 :: Background256-color256_b_242 = Background256 . code $ "48;5;242"--color256_b_243 :: Background256-color256_b_243 = Background256 . code $ "48;5;243"--color256_b_244 :: Background256-color256_b_244 = Background256 . code $ "48;5;244"--color256_b_245 :: Background256-color256_b_245 = Background256 . code $ "48;5;245"--color256_b_246 :: Background256-color256_b_246 = Background256 . code $ "48;5;246"--color256_b_247 :: Background256-color256_b_247 = Background256 . code $ "48;5;247"--color256_b_248 :: Background256-color256_b_248 = Background256 . code $ "48;5;248"--color256_b_249 :: Background256-color256_b_249 = Background256 . code $ "48;5;249"--color256_b_250 :: Background256-color256_b_250 = Background256 . code $ "48;5;250"--color256_b_251 :: Background256-color256_b_251 = Background256 . code $ "48;5;251"--color256_b_252 :: Background256-color256_b_252 = Background256 . code $ "48;5;252"--color256_b_253 :: Background256-color256_b_253 = Background256 . code $ "48;5;253"--color256_b_254 :: Background256-color256_b_254 = Background256 . code $ "48;5;254"--color256_b_255 :: Background256-color256_b_255 = Background256 . code $ "48;5;255"+-- | Handles colors and special effects for text. Internally this+-- module uses the Haskell terminfo library, which links against the+-- UNIX library of the same name, so it should work with a wide+-- variety of UNIX terminals. This module is a layer between terminfo+-- and the rest of Penny, allowing the Chunk internals to be swapped+-- out and replaced. (I know this because this module previously used+-- a home-grown implementation written based on the Xterm+-- configuration; that implementation was swapped out and replaced+-- with terminfo with minimal disruption.)+--+-- However, terminfo is a UNIX thing, so at this time Penny probably+-- would not work on a Windows based system.+--+-- There is an ansi-terminal library on Hackage, which does support+-- Windows. One problem with that though is that ansi-terminal does+-- not appear to support more than 8 colors; Chunk supports 256+-- colors, which is very helpful for Penny.+module Penny.Cabin.Chunk (+  -- * Colors+  Term(..),+  autoTerm,+  termFromEnv,+  Background8,+  Background256,+  Foreground8,+  Foreground256,++  -- * Chunks+  Chunk,+  chunk,+  Width(Width, unWidth),+  chunkWidth,+  printChunks,++  -- * Effects+  Bold(Bold, unBold),+  Underline(Underline, unUnderline),+  Flash(Flash, unFlash),+  Inverse(Inverse, unInverse),++  -- * Style and TextSpec++  -- | A style is a bundle of attributes that describes text+  -- attributes, such as its color and whether it is bold.+  StyleCommon (StyleCommon, bold, underline, flash, inverse),+  Style8 (Style8, foreground8, background8, common8),+  Style256 (Style256, foreground256, background256, common256),+  defaultStyleCommon,+  defaultStyle8,+  defaultStyle256,++  TextSpec (TextSpec, style8, style256),+  defaultTextSpec,++  -- * Specific colors+  -- * 8 color foreground colors+  color8_f_default,+  color8_f_black,+  color8_f_red,+  color8_f_green,+  color8_f_yellow,+  color8_f_blue,+  color8_f_magenta,+  color8_f_cyan,+  color8_f_white,++  -- ** 8 color background colors+  color8_b_default,+  color8_b_black,+  color8_b_red,+  color8_b_green,+  color8_b_yellow,+  color8_b_blue,+  color8_b_magenta,+  color8_b_cyan,+  color8_b_white,++  -- * 256 color foreground colors+  color256_f_default,+  color256_f_0,+  color256_f_1,+  color256_f_2,+  color256_f_3,+  color256_f_4,+  color256_f_5,+  color256_f_6,+  color256_f_7,+  color256_f_8,+  color256_f_9,+  color256_f_10,+  color256_f_11,+  color256_f_12,+  color256_f_13,+  color256_f_14,+  color256_f_15,+  color256_f_16,+  color256_f_17,+  color256_f_18,+  color256_f_19,+  color256_f_20,+  color256_f_21,+  color256_f_22,+  color256_f_23,+  color256_f_24,+  color256_f_25,+  color256_f_26,+  color256_f_27,+  color256_f_28,+  color256_f_29,+  color256_f_30,+  color256_f_31,+  color256_f_32,+  color256_f_33,+  color256_f_34,+  color256_f_35,+  color256_f_36,+  color256_f_37,+  color256_f_38,+  color256_f_39,+  color256_f_40,+  color256_f_41,+  color256_f_42,+  color256_f_43,+  color256_f_44,+  color256_f_45,+  color256_f_46,+  color256_f_47,+  color256_f_48,+  color256_f_49,+  color256_f_50,+  color256_f_51,+  color256_f_52,+  color256_f_53,+  color256_f_54,+  color256_f_55,+  color256_f_56,+  color256_f_57,+  color256_f_58,+  color256_f_59,+  color256_f_60,+  color256_f_61,+  color256_f_62,+  color256_f_63,+  color256_f_64,+  color256_f_65,+  color256_f_66,+  color256_f_67,+  color256_f_68,+  color256_f_69,+  color256_f_70,+  color256_f_71,+  color256_f_72,+  color256_f_73,+  color256_f_74,+  color256_f_75,+  color256_f_76,+  color256_f_77,+  color256_f_78,+  color256_f_79,+  color256_f_80,+  color256_f_81,+  color256_f_82,+  color256_f_83,+  color256_f_84,+  color256_f_85,+  color256_f_86,+  color256_f_87,+  color256_f_88,+  color256_f_89,+  color256_f_90,+  color256_f_91,+  color256_f_92,+  color256_f_93,+  color256_f_94,+  color256_f_95,+  color256_f_96,+  color256_f_97,+  color256_f_98,+  color256_f_99,+  color256_f_100,+  color256_f_101,+  color256_f_102,+  color256_f_103,+  color256_f_104,+  color256_f_105,+  color256_f_106,+  color256_f_107,+  color256_f_108,+  color256_f_109,+  color256_f_110,+  color256_f_111,+  color256_f_112,+  color256_f_113,+  color256_f_114,+  color256_f_115,+  color256_f_116,+  color256_f_117,+  color256_f_118,+  color256_f_119,+  color256_f_120,+  color256_f_121,+  color256_f_122,+  color256_f_123,+  color256_f_124,+  color256_f_125,+  color256_f_126,+  color256_f_127,+  color256_f_128,+  color256_f_129,+  color256_f_130,+  color256_f_131,+  color256_f_132,+  color256_f_133,+  color256_f_134,+  color256_f_135,+  color256_f_136,+  color256_f_137,+  color256_f_138,+  color256_f_139,+  color256_f_140,+  color256_f_141,+  color256_f_142,+  color256_f_143,+  color256_f_144,+  color256_f_145,+  color256_f_146,+  color256_f_147,+  color256_f_148,+  color256_f_149,+  color256_f_150,+  color256_f_151,+  color256_f_152,+  color256_f_153,+  color256_f_154,+  color256_f_155,+  color256_f_156,+  color256_f_157,+  color256_f_158,+  color256_f_159,+  color256_f_160,+  color256_f_161,+  color256_f_162,+  color256_f_163,+  color256_f_164,+  color256_f_165,+  color256_f_166,+  color256_f_167,+  color256_f_168,+  color256_f_169,+  color256_f_170,+  color256_f_171,+  color256_f_172,+  color256_f_173,+  color256_f_174,+  color256_f_175,+  color256_f_176,+  color256_f_177,+  color256_f_178,+  color256_f_179,+  color256_f_180,+  color256_f_181,+  color256_f_182,+  color256_f_183,+  color256_f_184,+  color256_f_185,+  color256_f_186,+  color256_f_187,+  color256_f_188,+  color256_f_189,+  color256_f_190,+  color256_f_191,+  color256_f_192,+  color256_f_193,+  color256_f_194,+  color256_f_195,+  color256_f_196,+  color256_f_197,+  color256_f_198,+  color256_f_199,+  color256_f_200,+  color256_f_201,+  color256_f_202,+  color256_f_203,+  color256_f_204,+  color256_f_205,+  color256_f_206,+  color256_f_207,+  color256_f_208,+  color256_f_209,+  color256_f_210,+  color256_f_211,+  color256_f_212,+  color256_f_213,+  color256_f_214,+  color256_f_215,+  color256_f_216,+  color256_f_217,+  color256_f_218,+  color256_f_219,+  color256_f_220,+  color256_f_221,+  color256_f_222,+  color256_f_223,+  color256_f_224,+  color256_f_225,+  color256_f_226,+  color256_f_227,+  color256_f_228,+  color256_f_229,+  color256_f_230,+  color256_f_231,+  color256_f_232,+  color256_f_233,+  color256_f_234,+  color256_f_235,+  color256_f_236,+  color256_f_237,+  color256_f_238,+  color256_f_239,+  color256_f_240,+  color256_f_241,+  color256_f_242,+  color256_f_243,+  color256_f_244,+  color256_f_245,+  color256_f_246,+  color256_f_247,+  color256_f_248,+  color256_f_249,+  color256_f_250,+  color256_f_251,+  color256_f_252,+  color256_f_253,+  color256_f_254,+  color256_f_255,++  -- ** 256 color background colors+  color256_b_default,+  color256_b_0,+  color256_b_1,+  color256_b_2,+  color256_b_3,+  color256_b_4,+  color256_b_5,+  color256_b_6,+  color256_b_7,+  color256_b_8,+  color256_b_9,+  color256_b_10,+  color256_b_11,+  color256_b_12,+  color256_b_13,+  color256_b_14,+  color256_b_15,+  color256_b_16,+  color256_b_17,+  color256_b_18,+  color256_b_19,+  color256_b_20,+  color256_b_21,+  color256_b_22,+  color256_b_23,+  color256_b_24,+  color256_b_25,+  color256_b_26,+  color256_b_27,+  color256_b_28,+  color256_b_29,+  color256_b_30,+  color256_b_31,+  color256_b_32,+  color256_b_33,+  color256_b_34,+  color256_b_35,+  color256_b_36,+  color256_b_37,+  color256_b_38,+  color256_b_39,+  color256_b_40,+  color256_b_41,+  color256_b_42,+  color256_b_43,+  color256_b_44,+  color256_b_45,+  color256_b_46,+  color256_b_47,+  color256_b_48,+  color256_b_49,+  color256_b_50,+  color256_b_51,+  color256_b_52,+  color256_b_53,+  color256_b_54,+  color256_b_55,+  color256_b_56,+  color256_b_57,+  color256_b_58,+  color256_b_59,+  color256_b_60,+  color256_b_61,+  color256_b_62,+  color256_b_63,+  color256_b_64,+  color256_b_65,+  color256_b_66,+  color256_b_67,+  color256_b_68,+  color256_b_69,+  color256_b_70,+  color256_b_71,+  color256_b_72,+  color256_b_73,+  color256_b_74,+  color256_b_75,+  color256_b_76,+  color256_b_77,+  color256_b_78,+  color256_b_79,+  color256_b_80,+  color256_b_81,+  color256_b_82,+  color256_b_83,+  color256_b_84,+  color256_b_85,+  color256_b_86,+  color256_b_87,+  color256_b_88,+  color256_b_89,+  color256_b_90,+  color256_b_91,+  color256_b_92,+  color256_b_93,+  color256_b_94,+  color256_b_95,+  color256_b_96,+  color256_b_97,+  color256_b_98,+  color256_b_99,+  color256_b_100,+  color256_b_101,+  color256_b_102,+  color256_b_103,+  color256_b_104,+  color256_b_105,+  color256_b_106,+  color256_b_107,+  color256_b_108,+  color256_b_109,+  color256_b_110,+  color256_b_111,+  color256_b_112,+  color256_b_113,+  color256_b_114,+  color256_b_115,+  color256_b_116,+  color256_b_117,+  color256_b_118,+  color256_b_119,+  color256_b_120,+  color256_b_121,+  color256_b_122,+  color256_b_123,+  color256_b_124,+  color256_b_125,+  color256_b_126,+  color256_b_127,+  color256_b_128,+  color256_b_129,+  color256_b_130,+  color256_b_131,+  color256_b_132,+  color256_b_133,+  color256_b_134,+  color256_b_135,+  color256_b_136,+  color256_b_137,+  color256_b_138,+  color256_b_139,+  color256_b_140,+  color256_b_141,+  color256_b_142,+  color256_b_143,+  color256_b_144,+  color256_b_145,+  color256_b_146,+  color256_b_147,+  color256_b_148,+  color256_b_149,+  color256_b_150,+  color256_b_151,+  color256_b_152,+  color256_b_153,+  color256_b_154,+  color256_b_155,+  color256_b_156,+  color256_b_157,+  color256_b_158,+  color256_b_159,+  color256_b_160,+  color256_b_161,+  color256_b_162,+  color256_b_163,+  color256_b_164,+  color256_b_165,+  color256_b_166,+  color256_b_167,+  color256_b_168,+  color256_b_169,+  color256_b_170,+  color256_b_171,+  color256_b_172,+  color256_b_173,+  color256_b_174,+  color256_b_175,+  color256_b_176,+  color256_b_177,+  color256_b_178,+  color256_b_179,+  color256_b_180,+  color256_b_181,+  color256_b_182,+  color256_b_183,+  color256_b_184,+  color256_b_185,+  color256_b_186,+  color256_b_187,+  color256_b_188,+  color256_b_189,+  color256_b_190,+  color256_b_191,+  color256_b_192,+  color256_b_193,+  color256_b_194,+  color256_b_195,+  color256_b_196,+  color256_b_197,+  color256_b_198,+  color256_b_199,+  color256_b_200,+  color256_b_201,+  color256_b_202,+  color256_b_203,+  color256_b_204,+  color256_b_205,+  color256_b_206,+  color256_b_207,+  color256_b_208,+  color256_b_209,+  color256_b_210,+  color256_b_211,+  color256_b_212,+  color256_b_213,+  color256_b_214,+  color256_b_215,+  color256_b_216,+  color256_b_217,+  color256_b_218,+  color256_b_219,+  color256_b_220,+  color256_b_221,+  color256_b_222,+  color256_b_223,+  color256_b_224,+  color256_b_225,+  color256_b_226,+  color256_b_227,+  color256_b_228,+  color256_b_229,+  color256_b_230,+  color256_b_231,+  color256_b_232,+  color256_b_233,+  color256_b_234,+  color256_b_235,+  color256_b_236,+  color256_b_237,+  color256_b_238,+  color256_b_239,+  color256_b_240,+  color256_b_241,+  color256_b_242,+  color256_b_243,+  color256_b_244,+  color256_b_245,+  color256_b_246,+  color256_b_247,+  color256_b_248,+  color256_b_249,+  color256_b_250,+  color256_b_251,+  color256_b_252,+  color256_b_253,+  color256_b_254,+  color256_b_255++  ) where+++import Data.Monoid (Monoid, mempty, mappend, mconcat)+import Data.Text (Text)+import Data.Maybe (fromMaybe)+import qualified Data.Text as X+import qualified System.Console.Terminfo as T+import qualified Penny.Shield as S++--+-- Colors+--++-- | Which terminal definition to use.+data Term+  = Dumb+  -- ^ Using this terminal should always succeed. This suppresses all+  -- colors. Uesful if output is not going to a TTY, or if you just do+  -- not like colors.++  | TermName String+  -- ^ Use the terminal with this given name. You might get this from+  -- the TERM environment variable, or set it explicitly. A runtime+  -- error will result if the terminfo database does not have a+  -- definition for this terminal. If this terminal supports 256+  -- colors, then 256 colors are used. If this terminal supports less+  -- than 256 colors, but at least 8 colors, then 8 colors are+  -- used. Otherwise, no colors are used.+  deriving (Eq, Show)+++-- | Determines which Term to use based on the TERM environment+-- variable, regardless of whether standard output is a+-- terminal. Uses Dumb if TERM is not set.+termFromEnv :: S.Runtime -> Term+termFromEnv rt = case S.term rt of+  Just t -> TermName . S.unTerm $ t+  Nothing -> Dumb++-- | Determines which Term to use based on whether standard output is+-- a terminal. Uses Dumb if standard output is not a terminal;+-- otherwise, uses the TERM environment variable.+autoTerm :: S.Runtime -> Term+autoTerm rt = case S.output rt of+  S.IsTTY -> termFromEnv rt+  S.NotTTY -> Dumb++-- For Background8, Background256, Foreground8, Foreground256: the+-- newtype wraps a Terminfo Color. If Nothing, use the default color.++-- | Background color in an 8 color setting.+newtype Background8 = Background8 { unBackground8 :: Maybe T.Color }+  deriving (Eq, Show, Ord)++-- | Background color in a 256 color setting.+newtype Background256 = Background256 { unBackground256 :: Maybe T.Color }+  deriving (Eq, Show, Ord)++-- | Foreground color in an 8 color setting.+newtype Foreground8 = Foreground8 { unForeground8 :: Maybe T.Color }+  deriving (Eq, Show, Ord)++-- | Foreground color in a 256 color setting.+newtype Foreground256 = Foreground256 { unForeground256 :: Maybe T.Color }+  deriving (Eq, Show, Ord)+++--+-- Chunks+--++-- | A chunk is some textual data coupled with a description of what+-- color the text is, attributes like whether it is bold or+-- underlined, etc. The chunk knows what foreground and background+-- colors and what attributes to use for both an 8 color terminal and+-- a 256 color terminal. To change these attributes and colors, you+-- must make a new chunk.+--+-- There is no way to combine chunks. To print large numbers of+-- chunks, lazily build a list of them and then print them using+-- 'printChunks'.++data Chunk = Chunk TextSpec Text+  deriving (Eq, Show, Ord)++-- | Makes new Chunks.+chunk :: TextSpec -> Text -> Chunk+chunk = Chunk++-- | How wide the text of a chunk is.+newtype Width = Width { unWidth :: Int }+                deriving (Show, Eq, Ord)++instance Monoid Width where+  mempty = Width 0+  mappend (Width w1) (Width w2) = Width $ w1 + w2++chunkWidth :: Chunk -> Width+chunkWidth (Chunk _ t) = Width . X.length $ t++-- | Sends a list of chunks to standard output for printing. Sets up+-- the terminal (this only needs to be done once.) Lazily processes+-- the list of Chunk.+printChunks :: Term -> [Chunk] -> IO ()+printChunks t cs = do+  let setup = case t of+        Dumb -> T.setupTerm "dumb"+        TermName s -> T.setupTerm s+  term <- setup+  mapM_ (printChunk term) cs+  T.runTermOutput term (defaultColors term)+  T.runTermOutput term+    $ case T.getCapability term T.allAttributesOff of+        Nothing -> error $ "Penny.Cabin.Chunk.printChunks: error: "+                   ++ "allAttributesOff failed"+        Just s -> s++printChunk :: T.Terminal -> Chunk -> IO ()+printChunk t (Chunk ts x) =+  T.runTermOutput t+  . mconcat+  $ [defaultColors t, codes, txt]+  where+    codes = getTermCodes t ts+    txt = T.termText . X.unpack $ x++defaultColors :: T.Terminal -> T.TermOutput+defaultColors term =+  fromMaybe mempty (T.getCapability term T.restoreDefaultColors)++--+-- Effects+--+newtype Bold = Bold { unBold :: Bool }+  deriving (Show, Eq, Ord)++newtype Underline = Underline { unUnderline :: Bool }+  deriving (Show, Eq, Ord)++newtype Flash = Flash { unFlash :: Bool }+  deriving (Show, Eq, Ord)++newtype Inverse = Inverse { unInverse :: Bool }+  deriving (Show, Eq, Ord)++--+-- Styles+--++-- | Style elements that apply in both 8 and 256 color+-- terminals. However, the elements are described separately for 8 and+-- 256 color terminals, so that the text appearance can change+-- depending on how many colors a terminal has.+data StyleCommon = StyleCommon+  { bold :: Bold+  , underline :: Underline+  , flash :: Flash+  , inverse :: Inverse+  } deriving (Show, Eq, Ord)++-- | Describes text appearance (foreground and background colors, as+-- well as other attributes such as bold) for an 8 color terminal.+data Style8 = Style8+  { foreground8 :: Foreground8+  , background8 :: Background8+  , common8 :: StyleCommon+  } deriving (Show, Eq, Ord)++-- | Describes text appearance (foreground and background colors, as+-- well as other attributes such as bold) for a 256 color terminal.+data Style256 = Style256+  { foreground256 :: Foreground256+  , background256 :: Background256+  , common256 :: StyleCommon+  } deriving (Show, Eq, Ord)++-- | Has all bold, flash, underline, and inverse turned off.+defaultStyleCommon :: StyleCommon+defaultStyleCommon = StyleCommon+  { bold = Bold False+  , underline = Underline False+  , flash = Flash False+  , inverse = Inverse False+  }++-- | Uses the default terminal colors (which will vary depending on+-- the terminal).+defaultStyle8 :: Style8+defaultStyle8 = Style8+  { foreground8 = color8_f_default+  , background8 = color8_b_default+  , common8 = defaultStyleCommon+  }++-- | Uses the default terminal colors (which will vary depending on+-- the terminal).+defaultStyle256 :: Style256+defaultStyle256 = Style256+  { foreground256 = color256_f_default+  , background256 = color256_b_default+  , common256 = defaultStyleCommon+  }++--+-- TextSpec+--++-- | The TextSpec bundles together the styles for the 8 and 256 color+-- terminals, so that the text can be portrayed on any terminal.+data TextSpec = TextSpec+  { style8 :: Style8+  , style256 :: Style256+  } deriving (Show, Eq, Ord)++-- | A TextSpec with the default colors on 8 and 256 color terminals,+-- with all attributes turned off.+defaultTextSpec :: TextSpec+defaultTextSpec = TextSpec+  { style8 = defaultStyle8+  , style256 = defaultStyle256+  }++--+-- Internal+--++commonAttrs :: T.Terminal -> StyleCommon -> T.TermOutput+commonAttrs t s =+  let a = T.Attributes+        { T.standoutAttr = False+        , T.underlineAttr = unUnderline . underline $ s+        , T.reverseAttr = unInverse . inverse $ s+        , T.blinkAttr = unFlash . flash $ s+        , T.dimAttr = False+        , T.boldAttr = unBold . bold $ s+        , T.invisibleAttr = False+        , T.protectedAttr = False+        }+  in case T.getCapability t (T.setAttributes) of+      Nothing -> error $ "Penny.Cabin.Chunk: commonAttrs: "+                 ++ "capability failed; should never happen"+      Just f -> f a+++-- | Gets the right set of terminal codes to apply the desired+-- highlighting, bold, underlining, etc. Be sure to apply the+-- attributes first (bold, underlining, etc) and then the+-- colors. Setting the colors first and then the attributes seems to+-- reset the colors, giving blank output.+getTermCodes+  :: T.Terminal+  -> TextSpec+  -> T.TermOutput+getTermCodes t ts = fromMaybe mempty $ do+  cols <- T.getCapability t T.termColors+  let TextSpec s8 s256 = ts+      Style8 f8 b8 c8 = s8+      Style256 f256 b256 c256 = s256+  setFg <- T.getCapability t T.setForegroundColor+  setBg <- T.getCapability t T.setBackgroundColor+  (fg, bg, cm) <- case () of+    _ | cols >= 256 -> Just $ ( unForeground256 f256+                              , unBackground256 b256+                              , c256 )+      | cols >= 8 -> Just ( unForeground8 f8+                         , unBackground8 b8+                         , c8)+      | otherwise -> Nothing+  let oFg = maybe mempty setFg fg+      oBg = maybe mempty setBg bg+      oCm = commonAttrs t cm+  return $ mconcat [oCm, oFg, oBg]+++--+-- Color basement+--+color8_f_default :: Foreground8+color8_f_default = Foreground8 Nothing++color8_f_black :: Foreground8+color8_f_black = Foreground8 $ Just T.Black++color8_f_red :: Foreground8+color8_f_red = Foreground8 $ Just T.Red++color8_f_green :: Foreground8+color8_f_green = Foreground8 $ Just T.Green++color8_f_yellow :: Foreground8+color8_f_yellow = Foreground8 $ Just T.Yellow++color8_f_blue :: Foreground8+color8_f_blue = Foreground8 $ Just T.Blue++color8_f_magenta :: Foreground8+color8_f_magenta = Foreground8 $ Just T.Magenta++color8_f_cyan :: Foreground8+color8_f_cyan = Foreground8 $ Just T.Cyan++color8_f_white :: Foreground8+color8_f_white = Foreground8 $ Just T.White++color8_b_default :: Background8+color8_b_default = Background8 Nothing++color8_b_black :: Background8+color8_b_black = Background8 $ Just T.Black++color8_b_red :: Background8+color8_b_red = Background8 $ Just T.Red++color8_b_green :: Background8+color8_b_green = Background8 $ Just T.Green++color8_b_yellow :: Background8+color8_b_yellow = Background8 $ Just T.Yellow++color8_b_blue :: Background8+color8_b_blue = Background8 $ Just T.Blue++color8_b_magenta :: Background8+color8_b_magenta = Background8 $ Just T.Magenta++color8_b_cyan :: Background8+color8_b_cyan = Background8 $ Just T.Cyan++color8_b_white :: Background8+color8_b_white = Background8 $ Just T.White++color256_f_default :: Foreground256+color256_f_default = Foreground256 Nothing++color256_f_0 :: Foreground256+color256_f_0 = Foreground256 (Just (T.ColorNumber 0))++color256_f_1 :: Foreground256+color256_f_1 = Foreground256 (Just (T.ColorNumber 1))++color256_f_2 :: Foreground256+color256_f_2 = Foreground256 (Just (T.ColorNumber 2))++color256_f_3 :: Foreground256+color256_f_3 = Foreground256 (Just (T.ColorNumber 3))++color256_f_4 :: Foreground256+color256_f_4 = Foreground256 (Just (T.ColorNumber 4))++color256_f_5 :: Foreground256+color256_f_5 = Foreground256 (Just (T.ColorNumber 5))++color256_f_6 :: Foreground256+color256_f_6 = Foreground256 (Just (T.ColorNumber 6))++color256_f_7 :: Foreground256+color256_f_7 = Foreground256 (Just (T.ColorNumber 7))++color256_f_8 :: Foreground256+color256_f_8 = Foreground256 (Just (T.ColorNumber 8))++color256_f_9 :: Foreground256+color256_f_9 = Foreground256 (Just (T.ColorNumber 9))++color256_f_10 :: Foreground256+color256_f_10 = Foreground256 (Just (T.ColorNumber 10))++color256_f_11 :: Foreground256+color256_f_11 = Foreground256 (Just (T.ColorNumber 11))++color256_f_12 :: Foreground256+color256_f_12 = Foreground256 (Just (T.ColorNumber 12))++color256_f_13 :: Foreground256+color256_f_13 = Foreground256 (Just (T.ColorNumber 13))++color256_f_14 :: Foreground256+color256_f_14 = Foreground256 (Just (T.ColorNumber 14))++color256_f_15 :: Foreground256+color256_f_15 = Foreground256 (Just (T.ColorNumber 15))++color256_f_16 :: Foreground256+color256_f_16 = Foreground256 (Just (T.ColorNumber 16))++color256_f_17 :: Foreground256+color256_f_17 = Foreground256 (Just (T.ColorNumber 17))++color256_f_18 :: Foreground256+color256_f_18 = Foreground256 (Just (T.ColorNumber 18))++color256_f_19 :: Foreground256+color256_f_19 = Foreground256 (Just (T.ColorNumber 19))++color256_f_20 :: Foreground256+color256_f_20 = Foreground256 (Just (T.ColorNumber 20))++color256_f_21 :: Foreground256+color256_f_21 = Foreground256 (Just (T.ColorNumber 21))++color256_f_22 :: Foreground256+color256_f_22 = Foreground256 (Just (T.ColorNumber 22))++color256_f_23 :: Foreground256+color256_f_23 = Foreground256 (Just (T.ColorNumber 23))++color256_f_24 :: Foreground256+color256_f_24 = Foreground256 (Just (T.ColorNumber 24))++color256_f_25 :: Foreground256+color256_f_25 = Foreground256 (Just (T.ColorNumber 25))++color256_f_26 :: Foreground256+color256_f_26 = Foreground256 (Just (T.ColorNumber 26))++color256_f_27 :: Foreground256+color256_f_27 = Foreground256 (Just (T.ColorNumber 27))++color256_f_28 :: Foreground256+color256_f_28 = Foreground256 (Just (T.ColorNumber 28))++color256_f_29 :: Foreground256+color256_f_29 = Foreground256 (Just (T.ColorNumber 29))++color256_f_30 :: Foreground256+color256_f_30 = Foreground256 (Just (T.ColorNumber 30))++color256_f_31 :: Foreground256+color256_f_31 = Foreground256 (Just (T.ColorNumber 31))++color256_f_32 :: Foreground256+color256_f_32 = Foreground256 (Just (T.ColorNumber 32))++color256_f_33 :: Foreground256+color256_f_33 = Foreground256 (Just (T.ColorNumber 33))++color256_f_34 :: Foreground256+color256_f_34 = Foreground256 (Just (T.ColorNumber 34))++color256_f_35 :: Foreground256+color256_f_35 = Foreground256 (Just (T.ColorNumber 35))++color256_f_36 :: Foreground256+color256_f_36 = Foreground256 (Just (T.ColorNumber 36))++color256_f_37 :: Foreground256+color256_f_37 = Foreground256 (Just (T.ColorNumber 37))++color256_f_38 :: Foreground256+color256_f_38 = Foreground256 (Just (T.ColorNumber 38))++color256_f_39 :: Foreground256+color256_f_39 = Foreground256 (Just (T.ColorNumber 39))++color256_f_40 :: Foreground256+color256_f_40 = Foreground256 (Just (T.ColorNumber 40))++color256_f_41 :: Foreground256+color256_f_41 = Foreground256 (Just (T.ColorNumber 41))++color256_f_42 :: Foreground256+color256_f_42 = Foreground256 (Just (T.ColorNumber 42))++color256_f_43 :: Foreground256+color256_f_43 = Foreground256 (Just (T.ColorNumber 43))++color256_f_44 :: Foreground256+color256_f_44 = Foreground256 (Just (T.ColorNumber 44))++color256_f_45 :: Foreground256+color256_f_45 = Foreground256 (Just (T.ColorNumber 45))++color256_f_46 :: Foreground256+color256_f_46 = Foreground256 (Just (T.ColorNumber 46))++color256_f_47 :: Foreground256+color256_f_47 = Foreground256 (Just (T.ColorNumber 47))++color256_f_48 :: Foreground256+color256_f_48 = Foreground256 (Just (T.ColorNumber 48))++color256_f_49 :: Foreground256+color256_f_49 = Foreground256 (Just (T.ColorNumber 49))++color256_f_50 :: Foreground256+color256_f_50 = Foreground256 (Just (T.ColorNumber 50))++color256_f_51 :: Foreground256+color256_f_51 = Foreground256 (Just (T.ColorNumber 51))++color256_f_52 :: Foreground256+color256_f_52 = Foreground256 (Just (T.ColorNumber 52))++color256_f_53 :: Foreground256+color256_f_53 = Foreground256 (Just (T.ColorNumber 53))++color256_f_54 :: Foreground256+color256_f_54 = Foreground256 (Just (T.ColorNumber 54))++color256_f_55 :: Foreground256+color256_f_55 = Foreground256 (Just (T.ColorNumber 55))++color256_f_56 :: Foreground256+color256_f_56 = Foreground256 (Just (T.ColorNumber 56))++color256_f_57 :: Foreground256+color256_f_57 = Foreground256 (Just (T.ColorNumber 57))++color256_f_58 :: Foreground256+color256_f_58 = Foreground256 (Just (T.ColorNumber 58))++color256_f_59 :: Foreground256+color256_f_59 = Foreground256 (Just (T.ColorNumber 59))++color256_f_60 :: Foreground256+color256_f_60 = Foreground256 (Just (T.ColorNumber 60))++color256_f_61 :: Foreground256+color256_f_61 = Foreground256 (Just (T.ColorNumber 61))++color256_f_62 :: Foreground256+color256_f_62 = Foreground256 (Just (T.ColorNumber 62))++color256_f_63 :: Foreground256+color256_f_63 = Foreground256 (Just (T.ColorNumber 63))++color256_f_64 :: Foreground256+color256_f_64 = Foreground256 (Just (T.ColorNumber 64))++color256_f_65 :: Foreground256+color256_f_65 = Foreground256 (Just (T.ColorNumber 65))++color256_f_66 :: Foreground256+color256_f_66 = Foreground256 (Just (T.ColorNumber 66))++color256_f_67 :: Foreground256+color256_f_67 = Foreground256 (Just (T.ColorNumber 67))++color256_f_68 :: Foreground256+color256_f_68 = Foreground256 (Just (T.ColorNumber 68))++color256_f_69 :: Foreground256+color256_f_69 = Foreground256 (Just (T.ColorNumber 69))++color256_f_70 :: Foreground256+color256_f_70 = Foreground256 (Just (T.ColorNumber 70))++color256_f_71 :: Foreground256+color256_f_71 = Foreground256 (Just (T.ColorNumber 71))++color256_f_72 :: Foreground256+color256_f_72 = Foreground256 (Just (T.ColorNumber 72))++color256_f_73 :: Foreground256+color256_f_73 = Foreground256 (Just (T.ColorNumber 73))++color256_f_74 :: Foreground256+color256_f_74 = Foreground256 (Just (T.ColorNumber 74))++color256_f_75 :: Foreground256+color256_f_75 = Foreground256 (Just (T.ColorNumber 75))++color256_f_76 :: Foreground256+color256_f_76 = Foreground256 (Just (T.ColorNumber 76))++color256_f_77 :: Foreground256+color256_f_77 = Foreground256 (Just (T.ColorNumber 77))++color256_f_78 :: Foreground256+color256_f_78 = Foreground256 (Just (T.ColorNumber 78))++color256_f_79 :: Foreground256+color256_f_79 = Foreground256 (Just (T.ColorNumber 79))++color256_f_80 :: Foreground256+color256_f_80 = Foreground256 (Just (T.ColorNumber 80))++color256_f_81 :: Foreground256+color256_f_81 = Foreground256 (Just (T.ColorNumber 81))++color256_f_82 :: Foreground256+color256_f_82 = Foreground256 (Just (T.ColorNumber 82))++color256_f_83 :: Foreground256+color256_f_83 = Foreground256 (Just (T.ColorNumber 83))++color256_f_84 :: Foreground256+color256_f_84 = Foreground256 (Just (T.ColorNumber 84))++color256_f_85 :: Foreground256+color256_f_85 = Foreground256 (Just (T.ColorNumber 85))++color256_f_86 :: Foreground256+color256_f_86 = Foreground256 (Just (T.ColorNumber 86))++color256_f_87 :: Foreground256+color256_f_87 = Foreground256 (Just (T.ColorNumber 87))++color256_f_88 :: Foreground256+color256_f_88 = Foreground256 (Just (T.ColorNumber 88))++color256_f_89 :: Foreground256+color256_f_89 = Foreground256 (Just (T.ColorNumber 89))++color256_f_90 :: Foreground256+color256_f_90 = Foreground256 (Just (T.ColorNumber 90))++color256_f_91 :: Foreground256+color256_f_91 = Foreground256 (Just (T.ColorNumber 91))++color256_f_92 :: Foreground256+color256_f_92 = Foreground256 (Just (T.ColorNumber 92))++color256_f_93 :: Foreground256+color256_f_93 = Foreground256 (Just (T.ColorNumber 93))++color256_f_94 :: Foreground256+color256_f_94 = Foreground256 (Just (T.ColorNumber 94))++color256_f_95 :: Foreground256+color256_f_95 = Foreground256 (Just (T.ColorNumber 95))++color256_f_96 :: Foreground256+color256_f_96 = Foreground256 (Just (T.ColorNumber 96))++color256_f_97 :: Foreground256+color256_f_97 = Foreground256 (Just (T.ColorNumber 97))++color256_f_98 :: Foreground256+color256_f_98 = Foreground256 (Just (T.ColorNumber 98))++color256_f_99 :: Foreground256+color256_f_99 = Foreground256 (Just (T.ColorNumber 99))++color256_f_100 :: Foreground256+color256_f_100 = Foreground256 (Just (T.ColorNumber 100))++color256_f_101 :: Foreground256+color256_f_101 = Foreground256 (Just (T.ColorNumber 101))++color256_f_102 :: Foreground256+color256_f_102 = Foreground256 (Just (T.ColorNumber 102))++color256_f_103 :: Foreground256+color256_f_103 = Foreground256 (Just (T.ColorNumber 103))++color256_f_104 :: Foreground256+color256_f_104 = Foreground256 (Just (T.ColorNumber 104))++color256_f_105 :: Foreground256+color256_f_105 = Foreground256 (Just (T.ColorNumber 105))++color256_f_106 :: Foreground256+color256_f_106 = Foreground256 (Just (T.ColorNumber 106))++color256_f_107 :: Foreground256+color256_f_107 = Foreground256 (Just (T.ColorNumber 107))++color256_f_108 :: Foreground256+color256_f_108 = Foreground256 (Just (T.ColorNumber 108))++color256_f_109 :: Foreground256+color256_f_109 = Foreground256 (Just (T.ColorNumber 109))++color256_f_110 :: Foreground256+color256_f_110 = Foreground256 (Just (T.ColorNumber 110))++color256_f_111 :: Foreground256+color256_f_111 = Foreground256 (Just (T.ColorNumber 111))++color256_f_112 :: Foreground256+color256_f_112 = Foreground256 (Just (T.ColorNumber 112))++color256_f_113 :: Foreground256+color256_f_113 = Foreground256 (Just (T.ColorNumber 113))++color256_f_114 :: Foreground256+color256_f_114 = Foreground256 (Just (T.ColorNumber 114))++color256_f_115 :: Foreground256+color256_f_115 = Foreground256 (Just (T.ColorNumber 115))++color256_f_116 :: Foreground256+color256_f_116 = Foreground256 (Just (T.ColorNumber 116))++color256_f_117 :: Foreground256+color256_f_117 = Foreground256 (Just (T.ColorNumber 117))++color256_f_118 :: Foreground256+color256_f_118 = Foreground256 (Just (T.ColorNumber 118))++color256_f_119 :: Foreground256+color256_f_119 = Foreground256 (Just (T.ColorNumber 119))++color256_f_120 :: Foreground256+color256_f_120 = Foreground256 (Just (T.ColorNumber 120))++color256_f_121 :: Foreground256+color256_f_121 = Foreground256 (Just (T.ColorNumber 121))++color256_f_122 :: Foreground256+color256_f_122 = Foreground256 (Just (T.ColorNumber 122))++color256_f_123 :: Foreground256+color256_f_123 = Foreground256 (Just (T.ColorNumber 123))++color256_f_124 :: Foreground256+color256_f_124 = Foreground256 (Just (T.ColorNumber 124))++color256_f_125 :: Foreground256+color256_f_125 = Foreground256 (Just (T.ColorNumber 125))++color256_f_126 :: Foreground256+color256_f_126 = Foreground256 (Just (T.ColorNumber 126))++color256_f_127 :: Foreground256+color256_f_127 = Foreground256 (Just (T.ColorNumber 127))++color256_f_128 :: Foreground256+color256_f_128 = Foreground256 (Just (T.ColorNumber 128))++color256_f_129 :: Foreground256+color256_f_129 = Foreground256 (Just (T.ColorNumber 129))++color256_f_130 :: Foreground256+color256_f_130 = Foreground256 (Just (T.ColorNumber 130))++color256_f_131 :: Foreground256+color256_f_131 = Foreground256 (Just (T.ColorNumber 131))++color256_f_132 :: Foreground256+color256_f_132 = Foreground256 (Just (T.ColorNumber 132))++color256_f_133 :: Foreground256+color256_f_133 = Foreground256 (Just (T.ColorNumber 133))++color256_f_134 :: Foreground256+color256_f_134 = Foreground256 (Just (T.ColorNumber 134))++color256_f_135 :: Foreground256+color256_f_135 = Foreground256 (Just (T.ColorNumber 135))++color256_f_136 :: Foreground256+color256_f_136 = Foreground256 (Just (T.ColorNumber 136))++color256_f_137 :: Foreground256+color256_f_137 = Foreground256 (Just (T.ColorNumber 137))++color256_f_138 :: Foreground256+color256_f_138 = Foreground256 (Just (T.ColorNumber 138))++color256_f_139 :: Foreground256+color256_f_139 = Foreground256 (Just (T.ColorNumber 139))++color256_f_140 :: Foreground256+color256_f_140 = Foreground256 (Just (T.ColorNumber 140))++color256_f_141 :: Foreground256+color256_f_141 = Foreground256 (Just (T.ColorNumber 141))++color256_f_142 :: Foreground256+color256_f_142 = Foreground256 (Just (T.ColorNumber 142))++color256_f_143 :: Foreground256+color256_f_143 = Foreground256 (Just (T.ColorNumber 143))++color256_f_144 :: Foreground256+color256_f_144 = Foreground256 (Just (T.ColorNumber 144))++color256_f_145 :: Foreground256+color256_f_145 = Foreground256 (Just (T.ColorNumber 145))++color256_f_146 :: Foreground256+color256_f_146 = Foreground256 (Just (T.ColorNumber 146))++color256_f_147 :: Foreground256+color256_f_147 = Foreground256 (Just (T.ColorNumber 147))++color256_f_148 :: Foreground256+color256_f_148 = Foreground256 (Just (T.ColorNumber 148))++color256_f_149 :: Foreground256+color256_f_149 = Foreground256 (Just (T.ColorNumber 149))++color256_f_150 :: Foreground256+color256_f_150 = Foreground256 (Just (T.ColorNumber 150))++color256_f_151 :: Foreground256+color256_f_151 = Foreground256 (Just (T.ColorNumber 151))++color256_f_152 :: Foreground256+color256_f_152 = Foreground256 (Just (T.ColorNumber 152))++color256_f_153 :: Foreground256+color256_f_153 = Foreground256 (Just (T.ColorNumber 153))++color256_f_154 :: Foreground256+color256_f_154 = Foreground256 (Just (T.ColorNumber 154))++color256_f_155 :: Foreground256+color256_f_155 = Foreground256 (Just (T.ColorNumber 155))++color256_f_156 :: Foreground256+color256_f_156 = Foreground256 (Just (T.ColorNumber 156))++color256_f_157 :: Foreground256+color256_f_157 = Foreground256 (Just (T.ColorNumber 157))++color256_f_158 :: Foreground256+color256_f_158 = Foreground256 (Just (T.ColorNumber 158))++color256_f_159 :: Foreground256+color256_f_159 = Foreground256 (Just (T.ColorNumber 159))++color256_f_160 :: Foreground256+color256_f_160 = Foreground256 (Just (T.ColorNumber 160))++color256_f_161 :: Foreground256+color256_f_161 = Foreground256 (Just (T.ColorNumber 161))++color256_f_162 :: Foreground256+color256_f_162 = Foreground256 (Just (T.ColorNumber 162))++color256_f_163 :: Foreground256+color256_f_163 = Foreground256 (Just (T.ColorNumber 163))++color256_f_164 :: Foreground256+color256_f_164 = Foreground256 (Just (T.ColorNumber 164))++color256_f_165 :: Foreground256+color256_f_165 = Foreground256 (Just (T.ColorNumber 165))++color256_f_166 :: Foreground256+color256_f_166 = Foreground256 (Just (T.ColorNumber 166))++color256_f_167 :: Foreground256+color256_f_167 = Foreground256 (Just (T.ColorNumber 167))++color256_f_168 :: Foreground256+color256_f_168 = Foreground256 (Just (T.ColorNumber 168))++color256_f_169 :: Foreground256+color256_f_169 = Foreground256 (Just (T.ColorNumber 169))++color256_f_170 :: Foreground256+color256_f_170 = Foreground256 (Just (T.ColorNumber 170))++color256_f_171 :: Foreground256+color256_f_171 = Foreground256 (Just (T.ColorNumber 171))++color256_f_172 :: Foreground256+color256_f_172 = Foreground256 (Just (T.ColorNumber 172))++color256_f_173 :: Foreground256+color256_f_173 = Foreground256 (Just (T.ColorNumber 173))++color256_f_174 :: Foreground256+color256_f_174 = Foreground256 (Just (T.ColorNumber 174))++color256_f_175 :: Foreground256+color256_f_175 = Foreground256 (Just (T.ColorNumber 175))++color256_f_176 :: Foreground256+color256_f_176 = Foreground256 (Just (T.ColorNumber 176))++color256_f_177 :: Foreground256+color256_f_177 = Foreground256 (Just (T.ColorNumber 177))++color256_f_178 :: Foreground256+color256_f_178 = Foreground256 (Just (T.ColorNumber 178))++color256_f_179 :: Foreground256+color256_f_179 = Foreground256 (Just (T.ColorNumber 179))++color256_f_180 :: Foreground256+color256_f_180 = Foreground256 (Just (T.ColorNumber 180))++color256_f_181 :: Foreground256+color256_f_181 = Foreground256 (Just (T.ColorNumber 181))++color256_f_182 :: Foreground256+color256_f_182 = Foreground256 (Just (T.ColorNumber 182))++color256_f_183 :: Foreground256+color256_f_183 = Foreground256 (Just (T.ColorNumber 183))++color256_f_184 :: Foreground256+color256_f_184 = Foreground256 (Just (T.ColorNumber 184))++color256_f_185 :: Foreground256+color256_f_185 = Foreground256 (Just (T.ColorNumber 185))++color256_f_186 :: Foreground256+color256_f_186 = Foreground256 (Just (T.ColorNumber 186))++color256_f_187 :: Foreground256+color256_f_187 = Foreground256 (Just (T.ColorNumber 187))++color256_f_188 :: Foreground256+color256_f_188 = Foreground256 (Just (T.ColorNumber 188))++color256_f_189 :: Foreground256+color256_f_189 = Foreground256 (Just (T.ColorNumber 189))++color256_f_190 :: Foreground256+color256_f_190 = Foreground256 (Just (T.ColorNumber 190))++color256_f_191 :: Foreground256+color256_f_191 = Foreground256 (Just (T.ColorNumber 191))++color256_f_192 :: Foreground256+color256_f_192 = Foreground256 (Just (T.ColorNumber 192))++color256_f_193 :: Foreground256+color256_f_193 = Foreground256 (Just (T.ColorNumber 193))++color256_f_194 :: Foreground256+color256_f_194 = Foreground256 (Just (T.ColorNumber 194))++color256_f_195 :: Foreground256+color256_f_195 = Foreground256 (Just (T.ColorNumber 195))++color256_f_196 :: Foreground256+color256_f_196 = Foreground256 (Just (T.ColorNumber 196))++color256_f_197 :: Foreground256+color256_f_197 = Foreground256 (Just (T.ColorNumber 197))++color256_f_198 :: Foreground256+color256_f_198 = Foreground256 (Just (T.ColorNumber 198))++color256_f_199 :: Foreground256+color256_f_199 = Foreground256 (Just (T.ColorNumber 199))++color256_f_200 :: Foreground256+color256_f_200 = Foreground256 (Just (T.ColorNumber 200))++color256_f_201 :: Foreground256+color256_f_201 = Foreground256 (Just (T.ColorNumber 201))++color256_f_202 :: Foreground256+color256_f_202 = Foreground256 (Just (T.ColorNumber 202))++color256_f_203 :: Foreground256+color256_f_203 = Foreground256 (Just (T.ColorNumber 203))++color256_f_204 :: Foreground256+color256_f_204 = Foreground256 (Just (T.ColorNumber 204))++color256_f_205 :: Foreground256+color256_f_205 = Foreground256 (Just (T.ColorNumber 205))++color256_f_206 :: Foreground256+color256_f_206 = Foreground256 (Just (T.ColorNumber 206))++color256_f_207 :: Foreground256+color256_f_207 = Foreground256 (Just (T.ColorNumber 207))++color256_f_208 :: Foreground256+color256_f_208 = Foreground256 (Just (T.ColorNumber 208))++color256_f_209 :: Foreground256+color256_f_209 = Foreground256 (Just (T.ColorNumber 209))++color256_f_210 :: Foreground256+color256_f_210 = Foreground256 (Just (T.ColorNumber 210))++color256_f_211 :: Foreground256+color256_f_211 = Foreground256 (Just (T.ColorNumber 211))++color256_f_212 :: Foreground256+color256_f_212 = Foreground256 (Just (T.ColorNumber 212))++color256_f_213 :: Foreground256+color256_f_213 = Foreground256 (Just (T.ColorNumber 213))++color256_f_214 :: Foreground256+color256_f_214 = Foreground256 (Just (T.ColorNumber 214))++color256_f_215 :: Foreground256+color256_f_215 = Foreground256 (Just (T.ColorNumber 215))++color256_f_216 :: Foreground256+color256_f_216 = Foreground256 (Just (T.ColorNumber 216))++color256_f_217 :: Foreground256+color256_f_217 = Foreground256 (Just (T.ColorNumber 217))++color256_f_218 :: Foreground256+color256_f_218 = Foreground256 (Just (T.ColorNumber 218))++color256_f_219 :: Foreground256+color256_f_219 = Foreground256 (Just (T.ColorNumber 219))++color256_f_220 :: Foreground256+color256_f_220 = Foreground256 (Just (T.ColorNumber 220))++color256_f_221 :: Foreground256+color256_f_221 = Foreground256 (Just (T.ColorNumber 221))++color256_f_222 :: Foreground256+color256_f_222 = Foreground256 (Just (T.ColorNumber 222))++color256_f_223 :: Foreground256+color256_f_223 = Foreground256 (Just (T.ColorNumber 223))++color256_f_224 :: Foreground256+color256_f_224 = Foreground256 (Just (T.ColorNumber 224))++color256_f_225 :: Foreground256+color256_f_225 = Foreground256 (Just (T.ColorNumber 225))++color256_f_226 :: Foreground256+color256_f_226 = Foreground256 (Just (T.ColorNumber 226))++color256_f_227 :: Foreground256+color256_f_227 = Foreground256 (Just (T.ColorNumber 227))++color256_f_228 :: Foreground256+color256_f_228 = Foreground256 (Just (T.ColorNumber 228))++color256_f_229 :: Foreground256+color256_f_229 = Foreground256 (Just (T.ColorNumber 229))++color256_f_230 :: Foreground256+color256_f_230 = Foreground256 (Just (T.ColorNumber 230))++color256_f_231 :: Foreground256+color256_f_231 = Foreground256 (Just (T.ColorNumber 231))++color256_f_232 :: Foreground256+color256_f_232 = Foreground256 (Just (T.ColorNumber 232))++color256_f_233 :: Foreground256+color256_f_233 = Foreground256 (Just (T.ColorNumber 233))++color256_f_234 :: Foreground256+color256_f_234 = Foreground256 (Just (T.ColorNumber 234))++color256_f_235 :: Foreground256+color256_f_235 = Foreground256 (Just (T.ColorNumber 235))++color256_f_236 :: Foreground256+color256_f_236 = Foreground256 (Just (T.ColorNumber 236))++color256_f_237 :: Foreground256+color256_f_237 = Foreground256 (Just (T.ColorNumber 237))++color256_f_238 :: Foreground256+color256_f_238 = Foreground256 (Just (T.ColorNumber 238))++color256_f_239 :: Foreground256+color256_f_239 = Foreground256 (Just (T.ColorNumber 239))++color256_f_240 :: Foreground256+color256_f_240 = Foreground256 (Just (T.ColorNumber 240))++color256_f_241 :: Foreground256+color256_f_241 = Foreground256 (Just (T.ColorNumber 241))++color256_f_242 :: Foreground256+color256_f_242 = Foreground256 (Just (T.ColorNumber 242))++color256_f_243 :: Foreground256+color256_f_243 = Foreground256 (Just (T.ColorNumber 243))++color256_f_244 :: Foreground256+color256_f_244 = Foreground256 (Just (T.ColorNumber 244))++color256_f_245 :: Foreground256+color256_f_245 = Foreground256 (Just (T.ColorNumber 245))++color256_f_246 :: Foreground256+color256_f_246 = Foreground256 (Just (T.ColorNumber 246))++color256_f_247 :: Foreground256+color256_f_247 = Foreground256 (Just (T.ColorNumber 247))++color256_f_248 :: Foreground256+color256_f_248 = Foreground256 (Just (T.ColorNumber 248))++color256_f_249 :: Foreground256+color256_f_249 = Foreground256 (Just (T.ColorNumber 249))++color256_f_250 :: Foreground256+color256_f_250 = Foreground256 (Just (T.ColorNumber 250))++color256_f_251 :: Foreground256+color256_f_251 = Foreground256 (Just (T.ColorNumber 251))++color256_f_252 :: Foreground256+color256_f_252 = Foreground256 (Just (T.ColorNumber 252))++color256_f_253 :: Foreground256+color256_f_253 = Foreground256 (Just (T.ColorNumber 253))++color256_f_254 :: Foreground256+color256_f_254 = Foreground256 (Just (T.ColorNumber 254))++color256_f_255 :: Foreground256+color256_f_255 = Foreground256 (Just (T.ColorNumber 255))++color256_b_default :: Background256+color256_b_default = Background256 Nothing++color256_b_0 :: Background256+color256_b_0 = Background256 (Just (T.ColorNumber 0))++color256_b_1 :: Background256+color256_b_1 = Background256 (Just (T.ColorNumber 1))++color256_b_2 :: Background256+color256_b_2 = Background256 (Just (T.ColorNumber 2))++color256_b_3 :: Background256+color256_b_3 = Background256 (Just (T.ColorNumber 3))++color256_b_4 :: Background256+color256_b_4 = Background256 (Just (T.ColorNumber 4))++color256_b_5 :: Background256+color256_b_5 = Background256 (Just (T.ColorNumber 5))++color256_b_6 :: Background256+color256_b_6 = Background256 (Just (T.ColorNumber 6))++color256_b_7 :: Background256+color256_b_7 = Background256 (Just (T.ColorNumber 7))++color256_b_8 :: Background256+color256_b_8 = Background256 (Just (T.ColorNumber 8))++color256_b_9 :: Background256+color256_b_9 = Background256 (Just (T.ColorNumber 9))++color256_b_10 :: Background256+color256_b_10 = Background256 (Just (T.ColorNumber 10))++color256_b_11 :: Background256+color256_b_11 = Background256 (Just (T.ColorNumber 11))++color256_b_12 :: Background256+color256_b_12 = Background256 (Just (T.ColorNumber 12))++color256_b_13 :: Background256+color256_b_13 = Background256 (Just (T.ColorNumber 13))++color256_b_14 :: Background256+color256_b_14 = Background256 (Just (T.ColorNumber 14))++color256_b_15 :: Background256+color256_b_15 = Background256 (Just (T.ColorNumber 15))++color256_b_16 :: Background256+color256_b_16 = Background256 (Just (T.ColorNumber 16))++color256_b_17 :: Background256+color256_b_17 = Background256 (Just (T.ColorNumber 17))++color256_b_18 :: Background256+color256_b_18 = Background256 (Just (T.ColorNumber 18))++color256_b_19 :: Background256+color256_b_19 = Background256 (Just (T.ColorNumber 19))++color256_b_20 :: Background256+color256_b_20 = Background256 (Just (T.ColorNumber 20))++color256_b_21 :: Background256+color256_b_21 = Background256 (Just (T.ColorNumber 21))++color256_b_22 :: Background256+color256_b_22 = Background256 (Just (T.ColorNumber 22))++color256_b_23 :: Background256+color256_b_23 = Background256 (Just (T.ColorNumber 23))++color256_b_24 :: Background256+color256_b_24 = Background256 (Just (T.ColorNumber 24))++color256_b_25 :: Background256+color256_b_25 = Background256 (Just (T.ColorNumber 25))++color256_b_26 :: Background256+color256_b_26 = Background256 (Just (T.ColorNumber 26))++color256_b_27 :: Background256+color256_b_27 = Background256 (Just (T.ColorNumber 27))++color256_b_28 :: Background256+color256_b_28 = Background256 (Just (T.ColorNumber 28))++color256_b_29 :: Background256+color256_b_29 = Background256 (Just (T.ColorNumber 29))++color256_b_30 :: Background256+color256_b_30 = Background256 (Just (T.ColorNumber 30))++color256_b_31 :: Background256+color256_b_31 = Background256 (Just (T.ColorNumber 31))++color256_b_32 :: Background256+color256_b_32 = Background256 (Just (T.ColorNumber 32))++color256_b_33 :: Background256+color256_b_33 = Background256 (Just (T.ColorNumber 33))++color256_b_34 :: Background256+color256_b_34 = Background256 (Just (T.ColorNumber 34))++color256_b_35 :: Background256+color256_b_35 = Background256 (Just (T.ColorNumber 35))++color256_b_36 :: Background256+color256_b_36 = Background256 (Just (T.ColorNumber 36))++color256_b_37 :: Background256+color256_b_37 = Background256 (Just (T.ColorNumber 37))++color256_b_38 :: Background256+color256_b_38 = Background256 (Just (T.ColorNumber 38))++color256_b_39 :: Background256+color256_b_39 = Background256 (Just (T.ColorNumber 39))++color256_b_40 :: Background256+color256_b_40 = Background256 (Just (T.ColorNumber 40))++color256_b_41 :: Background256+color256_b_41 = Background256 (Just (T.ColorNumber 41))++color256_b_42 :: Background256+color256_b_42 = Background256 (Just (T.ColorNumber 42))++color256_b_43 :: Background256+color256_b_43 = Background256 (Just (T.ColorNumber 43))++color256_b_44 :: Background256+color256_b_44 = Background256 (Just (T.ColorNumber 44))++color256_b_45 :: Background256+color256_b_45 = Background256 (Just (T.ColorNumber 45))++color256_b_46 :: Background256+color256_b_46 = Background256 (Just (T.ColorNumber 46))++color256_b_47 :: Background256+color256_b_47 = Background256 (Just (T.ColorNumber 47))++color256_b_48 :: Background256+color256_b_48 = Background256 (Just (T.ColorNumber 48))++color256_b_49 :: Background256+color256_b_49 = Background256 (Just (T.ColorNumber 49))++color256_b_50 :: Background256+color256_b_50 = Background256 (Just (T.ColorNumber 50))++color256_b_51 :: Background256+color256_b_51 = Background256 (Just (T.ColorNumber 51))++color256_b_52 :: Background256+color256_b_52 = Background256 (Just (T.ColorNumber 52))++color256_b_53 :: Background256+color256_b_53 = Background256 (Just (T.ColorNumber 53))++color256_b_54 :: Background256+color256_b_54 = Background256 (Just (T.ColorNumber 54))++color256_b_55 :: Background256+color256_b_55 = Background256 (Just (T.ColorNumber 55))++color256_b_56 :: Background256+color256_b_56 = Background256 (Just (T.ColorNumber 56))++color256_b_57 :: Background256+color256_b_57 = Background256 (Just (T.ColorNumber 57))++color256_b_58 :: Background256+color256_b_58 = Background256 (Just (T.ColorNumber 58))++color256_b_59 :: Background256+color256_b_59 = Background256 (Just (T.ColorNumber 59))++color256_b_60 :: Background256+color256_b_60 = Background256 (Just (T.ColorNumber 60))++color256_b_61 :: Background256+color256_b_61 = Background256 (Just (T.ColorNumber 61))++color256_b_62 :: Background256+color256_b_62 = Background256 (Just (T.ColorNumber 62))++color256_b_63 :: Background256+color256_b_63 = Background256 (Just (T.ColorNumber 63))++color256_b_64 :: Background256+color256_b_64 = Background256 (Just (T.ColorNumber 64))++color256_b_65 :: Background256+color256_b_65 = Background256 (Just (T.ColorNumber 65))++color256_b_66 :: Background256+color256_b_66 = Background256 (Just (T.ColorNumber 66))++color256_b_67 :: Background256+color256_b_67 = Background256 (Just (T.ColorNumber 67))++color256_b_68 :: Background256+color256_b_68 = Background256 (Just (T.ColorNumber 68))++color256_b_69 :: Background256+color256_b_69 = Background256 (Just (T.ColorNumber 69))++color256_b_70 :: Background256+color256_b_70 = Background256 (Just (T.ColorNumber 70))++color256_b_71 :: Background256+color256_b_71 = Background256 (Just (T.ColorNumber 71))++color256_b_72 :: Background256+color256_b_72 = Background256 (Just (T.ColorNumber 72))++color256_b_73 :: Background256+color256_b_73 = Background256 (Just (T.ColorNumber 73))++color256_b_74 :: Background256+color256_b_74 = Background256 (Just (T.ColorNumber 74))++color256_b_75 :: Background256+color256_b_75 = Background256 (Just (T.ColorNumber 75))++color256_b_76 :: Background256+color256_b_76 = Background256 (Just (T.ColorNumber 76))++color256_b_77 :: Background256+color256_b_77 = Background256 (Just (T.ColorNumber 77))++color256_b_78 :: Background256+color256_b_78 = Background256 (Just (T.ColorNumber 78))++color256_b_79 :: Background256+color256_b_79 = Background256 (Just (T.ColorNumber 79))++color256_b_80 :: Background256+color256_b_80 = Background256 (Just (T.ColorNumber 80))++color256_b_81 :: Background256+color256_b_81 = Background256 (Just (T.ColorNumber 81))++color256_b_82 :: Background256+color256_b_82 = Background256 (Just (T.ColorNumber 82))++color256_b_83 :: Background256+color256_b_83 = Background256 (Just (T.ColorNumber 83))++color256_b_84 :: Background256+color256_b_84 = Background256 (Just (T.ColorNumber 84))++color256_b_85 :: Background256+color256_b_85 = Background256 (Just (T.ColorNumber 85))++color256_b_86 :: Background256+color256_b_86 = Background256 (Just (T.ColorNumber 86))++color256_b_87 :: Background256+color256_b_87 = Background256 (Just (T.ColorNumber 87))++color256_b_88 :: Background256+color256_b_88 = Background256 (Just (T.ColorNumber 88))++color256_b_89 :: Background256+color256_b_89 = Background256 (Just (T.ColorNumber 89))++color256_b_90 :: Background256+color256_b_90 = Background256 (Just (T.ColorNumber 90))++color256_b_91 :: Background256+color256_b_91 = Background256 (Just (T.ColorNumber 91))++color256_b_92 :: Background256+color256_b_92 = Background256 (Just (T.ColorNumber 92))++color256_b_93 :: Background256+color256_b_93 = Background256 (Just (T.ColorNumber 93))++color256_b_94 :: Background256+color256_b_94 = Background256 (Just (T.ColorNumber 94))++color256_b_95 :: Background256+color256_b_95 = Background256 (Just (T.ColorNumber 95))++color256_b_96 :: Background256+color256_b_96 = Background256 (Just (T.ColorNumber 96))++color256_b_97 :: Background256+color256_b_97 = Background256 (Just (T.ColorNumber 97))++color256_b_98 :: Background256+color256_b_98 = Background256 (Just (T.ColorNumber 98))++color256_b_99 :: Background256+color256_b_99 = Background256 (Just (T.ColorNumber 99))++color256_b_100 :: Background256+color256_b_100 = Background256 (Just (T.ColorNumber 100))++color256_b_101 :: Background256+color256_b_101 = Background256 (Just (T.ColorNumber 101))++color256_b_102 :: Background256+color256_b_102 = Background256 (Just (T.ColorNumber 102))++color256_b_103 :: Background256+color256_b_103 = Background256 (Just (T.ColorNumber 103))++color256_b_104 :: Background256+color256_b_104 = Background256 (Just (T.ColorNumber 104))++color256_b_105 :: Background256+color256_b_105 = Background256 (Just (T.ColorNumber 105))++color256_b_106 :: Background256+color256_b_106 = Background256 (Just (T.ColorNumber 106))++color256_b_107 :: Background256+color256_b_107 = Background256 (Just (T.ColorNumber 107))++color256_b_108 :: Background256+color256_b_108 = Background256 (Just (T.ColorNumber 108))++color256_b_109 :: Background256+color256_b_109 = Background256 (Just (T.ColorNumber 109))++color256_b_110 :: Background256+color256_b_110 = Background256 (Just (T.ColorNumber 110))++color256_b_111 :: Background256+color256_b_111 = Background256 (Just (T.ColorNumber 111))++color256_b_112 :: Background256+color256_b_112 = Background256 (Just (T.ColorNumber 112))++color256_b_113 :: Background256+color256_b_113 = Background256 (Just (T.ColorNumber 113))++color256_b_114 :: Background256+color256_b_114 = Background256 (Just (T.ColorNumber 114))++color256_b_115 :: Background256+color256_b_115 = Background256 (Just (T.ColorNumber 115))++color256_b_116 :: Background256+color256_b_116 = Background256 (Just (T.ColorNumber 116))++color256_b_117 :: Background256+color256_b_117 = Background256 (Just (T.ColorNumber 117))++color256_b_118 :: Background256+color256_b_118 = Background256 (Just (T.ColorNumber 118))++color256_b_119 :: Background256+color256_b_119 = Background256 (Just (T.ColorNumber 119))++color256_b_120 :: Background256+color256_b_120 = Background256 (Just (T.ColorNumber 120))++color256_b_121 :: Background256+color256_b_121 = Background256 (Just (T.ColorNumber 121))++color256_b_122 :: Background256+color256_b_122 = Background256 (Just (T.ColorNumber 122))++color256_b_123 :: Background256+color256_b_123 = Background256 (Just (T.ColorNumber 123))++color256_b_124 :: Background256+color256_b_124 = Background256 (Just (T.ColorNumber 124))++color256_b_125 :: Background256+color256_b_125 = Background256 (Just (T.ColorNumber 125))++color256_b_126 :: Background256+color256_b_126 = Background256 (Just (T.ColorNumber 126))++color256_b_127 :: Background256+color256_b_127 = Background256 (Just (T.ColorNumber 127))++color256_b_128 :: Background256+color256_b_128 = Background256 (Just (T.ColorNumber 128))++color256_b_129 :: Background256+color256_b_129 = Background256 (Just (T.ColorNumber 129))++color256_b_130 :: Background256+color256_b_130 = Background256 (Just (T.ColorNumber 130))++color256_b_131 :: Background256+color256_b_131 = Background256 (Just (T.ColorNumber 131))++color256_b_132 :: Background256+color256_b_132 = Background256 (Just (T.ColorNumber 132))++color256_b_133 :: Background256+color256_b_133 = Background256 (Just (T.ColorNumber 133))++color256_b_134 :: Background256+color256_b_134 = Background256 (Just (T.ColorNumber 134))++color256_b_135 :: Background256+color256_b_135 = Background256 (Just (T.ColorNumber 135))++color256_b_136 :: Background256+color256_b_136 = Background256 (Just (T.ColorNumber 136))++color256_b_137 :: Background256+color256_b_137 = Background256 (Just (T.ColorNumber 137))++color256_b_138 :: Background256+color256_b_138 = Background256 (Just (T.ColorNumber 138))++color256_b_139 :: Background256+color256_b_139 = Background256 (Just (T.ColorNumber 139))++color256_b_140 :: Background256+color256_b_140 = Background256 (Just (T.ColorNumber 140))++color256_b_141 :: Background256+color256_b_141 = Background256 (Just (T.ColorNumber 141))++color256_b_142 :: Background256+color256_b_142 = Background256 (Just (T.ColorNumber 142))++color256_b_143 :: Background256+color256_b_143 = Background256 (Just (T.ColorNumber 143))++color256_b_144 :: Background256+color256_b_144 = Background256 (Just (T.ColorNumber 144))++color256_b_145 :: Background256+color256_b_145 = Background256 (Just (T.ColorNumber 145))++color256_b_146 :: Background256+color256_b_146 = Background256 (Just (T.ColorNumber 146))++color256_b_147 :: Background256+color256_b_147 = Background256 (Just (T.ColorNumber 147))++color256_b_148 :: Background256+color256_b_148 = Background256 (Just (T.ColorNumber 148))++color256_b_149 :: Background256+color256_b_149 = Background256 (Just (T.ColorNumber 149))++color256_b_150 :: Background256+color256_b_150 = Background256 (Just (T.ColorNumber 150))++color256_b_151 :: Background256+color256_b_151 = Background256 (Just (T.ColorNumber 151))++color256_b_152 :: Background256+color256_b_152 = Background256 (Just (T.ColorNumber 152))++color256_b_153 :: Background256+color256_b_153 = Background256 (Just (T.ColorNumber 153))++color256_b_154 :: Background256+color256_b_154 = Background256 (Just (T.ColorNumber 154))++color256_b_155 :: Background256+color256_b_155 = Background256 (Just (T.ColorNumber 155))++color256_b_156 :: Background256+color256_b_156 = Background256 (Just (T.ColorNumber 156))++color256_b_157 :: Background256+color256_b_157 = Background256 (Just (T.ColorNumber 157))++color256_b_158 :: Background256+color256_b_158 = Background256 (Just (T.ColorNumber 158))++color256_b_159 :: Background256+color256_b_159 = Background256 (Just (T.ColorNumber 159))++color256_b_160 :: Background256+color256_b_160 = Background256 (Just (T.ColorNumber 160))++color256_b_161 :: Background256+color256_b_161 = Background256 (Just (T.ColorNumber 161))++color256_b_162 :: Background256+color256_b_162 = Background256 (Just (T.ColorNumber 162))++color256_b_163 :: Background256+color256_b_163 = Background256 (Just (T.ColorNumber 163))++color256_b_164 :: Background256+color256_b_164 = Background256 (Just (T.ColorNumber 164))++color256_b_165 :: Background256+color256_b_165 = Background256 (Just (T.ColorNumber 165))++color256_b_166 :: Background256+color256_b_166 = Background256 (Just (T.ColorNumber 166))++color256_b_167 :: Background256+color256_b_167 = Background256 (Just (T.ColorNumber 167))++color256_b_168 :: Background256+color256_b_168 = Background256 (Just (T.ColorNumber 168))++color256_b_169 :: Background256+color256_b_169 = Background256 (Just (T.ColorNumber 169))++color256_b_170 :: Background256+color256_b_170 = Background256 (Just (T.ColorNumber 170))++color256_b_171 :: Background256+color256_b_171 = Background256 (Just (T.ColorNumber 171))++color256_b_172 :: Background256+color256_b_172 = Background256 (Just (T.ColorNumber 172))++color256_b_173 :: Background256+color256_b_173 = Background256 (Just (T.ColorNumber 173))++color256_b_174 :: Background256+color256_b_174 = Background256 (Just (T.ColorNumber 174))++color256_b_175 :: Background256+color256_b_175 = Background256 (Just (T.ColorNumber 175))++color256_b_176 :: Background256+color256_b_176 = Background256 (Just (T.ColorNumber 176))++color256_b_177 :: Background256+color256_b_177 = Background256 (Just (T.ColorNumber 177))++color256_b_178 :: Background256+color256_b_178 = Background256 (Just (T.ColorNumber 178))++color256_b_179 :: Background256+color256_b_179 = Background256 (Just (T.ColorNumber 179))++color256_b_180 :: Background256+color256_b_180 = Background256 (Just (T.ColorNumber 180))++color256_b_181 :: Background256+color256_b_181 = Background256 (Just (T.ColorNumber 181))++color256_b_182 :: Background256+color256_b_182 = Background256 (Just (T.ColorNumber 182))++color256_b_183 :: Background256+color256_b_183 = Background256 (Just (T.ColorNumber 183))++color256_b_184 :: Background256+color256_b_184 = Background256 (Just (T.ColorNumber 184))++color256_b_185 :: Background256+color256_b_185 = Background256 (Just (T.ColorNumber 185))++color256_b_186 :: Background256+color256_b_186 = Background256 (Just (T.ColorNumber 186))++color256_b_187 :: Background256+color256_b_187 = Background256 (Just (T.ColorNumber 187))++color256_b_188 :: Background256+color256_b_188 = Background256 (Just (T.ColorNumber 188))++color256_b_189 :: Background256+color256_b_189 = Background256 (Just (T.ColorNumber 189))++color256_b_190 :: Background256+color256_b_190 = Background256 (Just (T.ColorNumber 190))++color256_b_191 :: Background256+color256_b_191 = Background256 (Just (T.ColorNumber 191))++color256_b_192 :: Background256+color256_b_192 = Background256 (Just (T.ColorNumber 192))++color256_b_193 :: Background256+color256_b_193 = Background256 (Just (T.ColorNumber 193))++color256_b_194 :: Background256+color256_b_194 = Background256 (Just (T.ColorNumber 194))++color256_b_195 :: Background256+color256_b_195 = Background256 (Just (T.ColorNumber 195))++color256_b_196 :: Background256+color256_b_196 = Background256 (Just (T.ColorNumber 196))++color256_b_197 :: Background256+color256_b_197 = Background256 (Just (T.ColorNumber 197))++color256_b_198 :: Background256+color256_b_198 = Background256 (Just (T.ColorNumber 198))++color256_b_199 :: Background256+color256_b_199 = Background256 (Just (T.ColorNumber 199))++color256_b_200 :: Background256+color256_b_200 = Background256 (Just (T.ColorNumber 200))++color256_b_201 :: Background256+color256_b_201 = Background256 (Just (T.ColorNumber 201))++color256_b_202 :: Background256+color256_b_202 = Background256 (Just (T.ColorNumber 202))++color256_b_203 :: Background256+color256_b_203 = Background256 (Just (T.ColorNumber 203))++color256_b_204 :: Background256+color256_b_204 = Background256 (Just (T.ColorNumber 204))++color256_b_205 :: Background256+color256_b_205 = Background256 (Just (T.ColorNumber 205))++color256_b_206 :: Background256+color256_b_206 = Background256 (Just (T.ColorNumber 206))++color256_b_207 :: Background256+color256_b_207 = Background256 (Just (T.ColorNumber 207))++color256_b_208 :: Background256+color256_b_208 = Background256 (Just (T.ColorNumber 208))++color256_b_209 :: Background256+color256_b_209 = Background256 (Just (T.ColorNumber 209))++color256_b_210 :: Background256+color256_b_210 = Background256 (Just (T.ColorNumber 210))++color256_b_211 :: Background256+color256_b_211 = Background256 (Just (T.ColorNumber 211))++color256_b_212 :: Background256+color256_b_212 = Background256 (Just (T.ColorNumber 212))++color256_b_213 :: Background256+color256_b_213 = Background256 (Just (T.ColorNumber 213))++color256_b_214 :: Background256+color256_b_214 = Background256 (Just (T.ColorNumber 214))++color256_b_215 :: Background256+color256_b_215 = Background256 (Just (T.ColorNumber 215))++color256_b_216 :: Background256+color256_b_216 = Background256 (Just (T.ColorNumber 216))++color256_b_217 :: Background256+color256_b_217 = Background256 (Just (T.ColorNumber 217))++color256_b_218 :: Background256+color256_b_218 = Background256 (Just (T.ColorNumber 218))++color256_b_219 :: Background256+color256_b_219 = Background256 (Just (T.ColorNumber 219))++color256_b_220 :: Background256+color256_b_220 = Background256 (Just (T.ColorNumber 220))++color256_b_221 :: Background256+color256_b_221 = Background256 (Just (T.ColorNumber 221))++color256_b_222 :: Background256+color256_b_222 = Background256 (Just (T.ColorNumber 222))++color256_b_223 :: Background256+color256_b_223 = Background256 (Just (T.ColorNumber 223))++color256_b_224 :: Background256+color256_b_224 = Background256 (Just (T.ColorNumber 224))++color256_b_225 :: Background256+color256_b_225 = Background256 (Just (T.ColorNumber 225))++color256_b_226 :: Background256+color256_b_226 = Background256 (Just (T.ColorNumber 226))++color256_b_227 :: Background256+color256_b_227 = Background256 (Just (T.ColorNumber 227))++color256_b_228 :: Background256+color256_b_228 = Background256 (Just (T.ColorNumber 228))++color256_b_229 :: Background256+color256_b_229 = Background256 (Just (T.ColorNumber 229))++color256_b_230 :: Background256+color256_b_230 = Background256 (Just (T.ColorNumber 230))++color256_b_231 :: Background256+color256_b_231 = Background256 (Just (T.ColorNumber 231))++color256_b_232 :: Background256+color256_b_232 = Background256 (Just (T.ColorNumber 232))++color256_b_233 :: Background256+color256_b_233 = Background256 (Just (T.ColorNumber 233))++color256_b_234 :: Background256+color256_b_234 = Background256 (Just (T.ColorNumber 234))++color256_b_235 :: Background256+color256_b_235 = Background256 (Just (T.ColorNumber 235))++color256_b_236 :: Background256+color256_b_236 = Background256 (Just (T.ColorNumber 236))++color256_b_237 :: Background256+color256_b_237 = Background256 (Just (T.ColorNumber 237))++color256_b_238 :: Background256+color256_b_238 = Background256 (Just (T.ColorNumber 238))++color256_b_239 :: Background256+color256_b_239 = Background256 (Just (T.ColorNumber 239))++color256_b_240 :: Background256+color256_b_240 = Background256 (Just (T.ColorNumber 240))++color256_b_241 :: Background256+color256_b_241 = Background256 (Just (T.ColorNumber 241))++color256_b_242 :: Background256+color256_b_242 = Background256 (Just (T.ColorNumber 242))++color256_b_243 :: Background256+color256_b_243 = Background256 (Just (T.ColorNumber 243))++color256_b_244 :: Background256+color256_b_244 = Background256 (Just (T.ColorNumber 244))++color256_b_245 :: Background256+color256_b_245 = Background256 (Just (T.ColorNumber 245))++color256_b_246 :: Background256+color256_b_246 = Background256 (Just (T.ColorNumber 246))++color256_b_247 :: Background256+color256_b_247 = Background256 (Just (T.ColorNumber 247))++color256_b_248 :: Background256+color256_b_248 = Background256 (Just (T.ColorNumber 248))++color256_b_249 :: Background256+color256_b_249 = Background256 (Just (T.ColorNumber 249))++color256_b_250 :: Background256+color256_b_250 = Background256 (Just (T.ColorNumber 250))++color256_b_251 :: Background256+color256_b_251 = Background256 (Just (T.ColorNumber 251))++color256_b_252 :: Background256+color256_b_252 = Background256 (Just (T.ColorNumber 252))++color256_b_253 :: Background256+color256_b_253 = Background256 (Just (T.ColorNumber 253))++color256_b_254 :: Background256+color256_b_254 = Background256 (Just (T.ColorNumber 254))++color256_b_255 :: Background256+color256_b_255 = Background256 (Just (T.ColorNumber 255))