From 817fc8d9ec08782f903474c8b4f3c0fbd602ee4d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20S=C3=BC=C3=9F?= Date: Fri, 14 Oct 2016 20:54:25 +0200 Subject: [PATCH] Highlighting active selection in the sidebar --- hledger-web/Handler/Common.hs | 4 ++-- hledger-web/static/hledger.css | 5 +++++ 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/hledger-web/Handler/Common.hs b/hledger-web/Handler/Common.hs index cef07c884..16530a8bc 100644 --- a/hledger-web/Handler/Common.hs +++ b/hledger-web/Handler/Common.hs @@ -175,7 +175,7 @@ balanceReportAsHtml _ vd@VD{..} (items',total) = itemAsHtml _ (acct, adisplay, aindent, abal) = [hamlet|
  • \#{indent} - #{adisplay} + #{adisplay} $if hassubs only #{mixedAmountAsHtml abal} @@ -186,7 +186,7 @@ balanceReportAsHtml _ vd@VD{..} (items',total) = -- numpostings = maybe 0 (length.apostings) $ ledgerAccount l acct depthclass = "depth"++show aindent inacctclass = case inacctmatcher of - Just m' -> if m' `matchesAccount` acct then "inacct" else "notinacct" + Just m' -> if m' `matchesAccount` acct then "inacct" else "" Nothing -> "" :: String indent = preEscapedString $ concat $ replicate (2 * (1+aindent)) " " acctquery = (RegisterR, [("q", T.pack $ accountQuery acct)]) diff --git a/hledger-web/static/hledger.css b/hledger-web/static/hledger.css index 0ad6bb4fa..f389c2bc8 100644 --- a/hledger-web/static/hledger.css +++ b/hledger-web/static/hledger.css @@ -145,6 +145,11 @@ ul { border-top: 1px solid black; } +#sidebar-menu .main-menu .inacct { + font-weight: bold; + color: #11427D; +} + .transactionsreport .nonhead { border: none !important; }