ui: at depth 0 call account "All" (and fix register)

hledger-ui/Hledger/UI/AccountsScreen.hs

@@ -86,7 +86,7 @@ asInit d reset ui@UIState{
     displayitem ((fullacct, shortacct, indent), bal) =
       AccountsScreenItem{asItemIndentLevel        = indent
                         ,asItemAccountName        = fullacct
-                        ,asItemDisplayAccountName = if flat_ ropts' then fullacct else shortacct
+                        ,asItemDisplayAccountName = replaceHiddenAccountsNameWith "All" $ if flat_ ropts' then fullacct else shortacct
                         ,asItemRenderedAmounts    = map showAmountWithoutPrice amts -- like showMixedAmountOneLineWithoutPrice
                         }
       where

hledger-ui/Hledger/UI/RegisterScreen.hs

@@ -44,7 +44,7 @@ registerScreen = RegisterScreen{
   ,rsAccount = ""
   }
 
-rsSetAccount a scr@RegisterScreen{} = scr{rsAccount=a}
+rsSetAccount a scr@RegisterScreen{} = scr{rsAccount=replaceHiddenAccountsNameWith "*" a}
 rsSetAccount _ scr = scr
 
 rsInit :: Day -> Bool -> UIState -> UIState
@@ -107,7 +107,7 @@ rsDraw UIState{aopts=UIOpts{cliopts_=CliOpts{reportopts_=ropts}}
     -- Minibuffer e -> [minibuffer e, maincontent]
     _          -> [maincontent]
   where
-    toplabel = withAttr ("border" <> "bold") (str $ T.unpack rsAccount)
+    toplabel = withAttr ("border" <> "bold") (str $ T.unpack $ replaceHiddenAccountsNameWith "All" rsAccount)
             <+> togglefilters
             <+> str " transactions"
             <+> borderQueryStr (query_ ropts)

hledger-ui/Hledger/UI/TransactionScreen.hs

@@ -66,7 +66,7 @@ tsDraw UIState{aopts=UIOpts{cliopts_=CliOpts{reportopts_=ropts}}
       <+> str (" of "++show (length nts))
       <+> togglefilters
       <+> borderQueryStr (query_ ropts)
-      <+> str (" in "++T.unpack acct++")")
+      <+> str (" in "++T.unpack (replaceHiddenAccountsNameWith "All" acct)++")")
     togglefilters =
       case concat [
            if cleared_ ropts then ["cleared"] else []

hledger-ui/Hledger/UI/UIUtils.hs

@@ -104,6 +104,16 @@ borderKeysStr keydescs =
     -- sep = str " | "
     sep = str " "
 
+-- temporary shenanigans:
+
+-- | Convert the special account name "*" (from balance report with depth limit 0) to something clearer.
+replaceHiddenAccountsNameWith :: AccountName -> AccountName -> AccountName
+replaceHiddenAccountsNameWith anew a | a == hiddenAccountsName = anew
+                                     | a == "*"                = anew
+                                     | otherwise               = a
+
+hiddenAccountsName = "..." -- for now
+
 -- generic
 
 topBottomBorderWithLabel :: Widget -> Widget -> Widget