Highlight search menu tabs that contain data

Refs: #966
This commit is contained in:
eikek
2021-08-16 22:13:53 +02:00
parent 7f6bb6994d
commit f1445e797b
5 changed files with 145 additions and 61 deletions

View File

@ -154,14 +154,21 @@ tabState settings openTabs cfmodel toggle tab =
_ ->
False
state =
if hidden then
TB.Hidden
else if Set.member tab.name openTabs then
folded =
if Set.member tab.name openTabs then
TB.Open
else
TB.Closed
state =
{ folded = folded
, look =
if hidden then
TB.Hidden
else
TB.Normal
}
in
( state, toggle tab )