13 lines
707 B
Plaintext
13 lines
707 B
Plaintext
$newline never
|
|
<th .table__th *{attrs} :isSortable:.sortable :isSorted SortAsc:.sorted-asc :isSorted SortDesc:.sorted-desc :is _Just sortableKey:uw-hide-column-header=#{maybe "" toPathPiece sortableKey} :cellSize /= 1:colspan=#{cellSize}>
|
|
$maybe flag <- sortableKey
|
|
$case directions
|
|
$of [SortAsc]
|
|
<a .table__th-link rel=nofollow href=^{tblLink' $ setParams (wIdent "sorting") (map toPathPiece (SortingSetting flag SortDesc : piSorting')) . substPi}>
|
|
^{widget}
|
|
$of _
|
|
<a .table__th-link rel=nofollow href=^{tblLink' $ setParams (wIdent "sorting") (map toPathPiece (SortingSetting flag SortAsc : piSorting')) . substPi}>
|
|
^{widget}
|
|
$nothing
|
|
^{widget}
|