slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Highlighting active selection in the sidebar

Browse Source
This commit is contained in:
Dominik Süß 2016-10-14 20:54:25 +02:00 committed by Simon Michael
parent 55b507bf30
commit 817fc8d9ec
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-web/Handler/Common.hs
View File

@ -175,7 +175,7 @@ balanceReportAsHtml _ vd@VD{..} (items',total) =
itemAsHtml _ (acct, adisplay, aindent, abal) = [hamlet| itemAsHtml _ (acct, adisplay, aindent, abal) = [hamlet|
<li> <li>
\#{indent} \#{indent}
<a href="@?{acctquery}" title="Show transactions affecting this account and subaccounts">#{adisplay} <a href="@?{acctquery}" .#{inacctclass} title="Show transactions affecting this account and subaccounts">#{adisplay}
$if hassubs $if hassubs
<a href="@?{acctonlyquery}" .only title="Show transactions affecting this account but not subaccounts">only <a href="@?{acctonlyquery}" .only title="Show transactions affecting this account but not subaccounts">only
<span .balance>#{mixedAmountAsHtml abal} <span .balance>#{mixedAmountAsHtml abal}
@ -186,7 +186,7 @@ balanceReportAsHtml _ vd@VD{..} (items',total) =
-- numpostings = maybe 0 (length.apostings) $ ledgerAccount l acct -- numpostings = maybe 0 (length.apostings) $ ledgerAccount l acct
depthclass = "depth"++show aindent depthclass = "depth"++show aindent
inacctclass = case inacctmatcher of 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 Nothing -> "" :: String
indent = preEscapedString $ concat $ replicate (2 * (1+aindent)) "&nbsp;" indent = preEscapedString $ concat $ replicate (2 * (1+aindent)) "&nbsp;"
acctquery = (RegisterR, [("q", T.pack $ accountQuery acct)]) acctquery = (RegisterR, [("q", T.pack $ accountQuery acct)])

5
hledger-web/static/hledger.css
View File

@ -145,6 +145,11 @@ ul {
border-top: 1px solid black; border-top: 1px solid black;
} }
#sidebar-menu .main-menu .inacct {
font-weight: bold;
color: #11427D;
}
.transactionsreport .nonhead { .transactionsreport .nonhead {
border: none !important; border: none !important;
} }