setop
/
elm-sortable-table
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix bug with unsortable columns

This commit is contained in:
Evan Czaplicki 2016-07-20 19:10:52 -07:00
parent cf9ceb18d1
commit 84fe913e4d
1 changed files with 17 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Table.elm
View File

@ -450,31 +450,27 @@ view (Config { toId, toMsg, columns, customizations }) state data =
toHeaderInfo : State -> (State -> msg) -> ColumnData data msg -> ( String, Status, Attribute msg )
toHeaderInfo (State sortName isReversed) toMsg { name, sorter } =
let
(status, newIsReversed) =
case sorter of
None ->
( Unsortable, False )
( name, Unsortable, onClick sortName isReversed toMsg )
Increasing _ ->
( Sortable (name == sortName), False )
( name, Sortable (name == sortName), onClick name False toMsg )
Decreasing _ ->
( Sortable (name == sortName), False )
( name, Sortable (name == sortName), onClick name False toMsg )
IncOrDec _ ->
if name == sortName then
( Reversible (Just isReversed), not isReversed )
( name, Reversible (Just isReversed), onClick name (not isReversed) toMsg )
else
( Reversible Nothing, False )
( name, Reversible Nothing, onClick name False toMsg )
DecOrInc _ ->
if name == sortName then
( Reversible (Just isReversed), not isReversed )
( name, Reversible (Just isReversed), onClick name (not isReversed) toMsg )
else
( Reversible Nothing, False )
in
( name, status, onClick name newIsReversed toMsg )
( name, Reversible Nothing, onClick name False toMsg )
onClick : String -> Bool -> (State -> msg) -> Attribute msg