fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(corrections assignment): add convenience to table header

Browse Source 
links look ugly in table headers so as a workaround we use an icon
instead for a much needed link in the corrections assignment table
This commit is contained in:
Steffen Jost 2019-07-25 07:48:12 +02:00
parent d838d36239
commit 56c2fccb84
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Utils/Icon.hs
View File

@ -45,6 +45,7 @@ data Icon
| IconExamRegisterFalse | IconExamRegisterFalse
| IconCommentTrue | IconCommentTrue
| IconCommentFalse | IconCommentFalse
| IconLink
| IconFileDownload | IconFileDownload
| IconFileZip | IconFileZip
| IconFileCSV | IconFileCSV
@ -71,6 +72,7 @@ iconText = \case
IconExamRegisterFalse -> "calendar-times" IconExamRegisterFalse -> "calendar-times"
IconCommentTrue -> "comment-alt" IconCommentTrue -> "comment-alt"
IconCommentFalse -> "comment-slash" -- comment-alt-slash is not available for free IconCommentFalse -> "comment-slash" -- comment-alt-slash is not available for free
IconLink -> "link"
IconFileDownload -> "file-download" IconFileDownload -> "file-download"
IconFileZip -> "file-archive" IconFileZip -> "file-archive"
IconFileCSV -> "file-csv" IconFileCSV -> "file-csv"

6
templates/corrections-overview.hamlet
View File

@ -56,8 +56,10 @@
$# Always iterate over orderedSheetNames for consistent sorting! Newest first, except in this table $# Always iterate over orderedSheetNames for consistent sorting! Newest first, except in this table
$forall shn <- orderedSheetNames $forall shn <- orderedSheetNames
<th .table__th colspan=5>#{shn} <th .table__th colspan=5>
$# ^{simpleLinkI (SomeMessage MsgMenuCorrectors) (CSheetR tid ssh csh shn SCorrR)} $# Links currently look ugly in table headers; used an icon as a workaround:
^{simpleLink (toWidget iconLink) (CSheetR tid ssh csh shn SShowR)}
#{shn}
<tr .table__row .table__row--head> <tr .table__row .table__row--head>
<th .table__th>_{MsgNrSubmissionsTotal} <th .table__th>_{MsgNrSubmissionsTotal}
<th .table__th>_{MsgNrSubmissionsNotCorrected} <th .table__th>_{MsgNrSubmissionsNotCorrected}