Fix some icons

This commit is contained in:
Eike Kettner 2020-06-09 21:10:49 +02:00
parent f2c5135ef4
commit a3b482fa13
3 changed files with 124 additions and 18 deletions

View File

@ -1820,7 +1820,7 @@ renderEditForm settings model =
[ div [ class "ui form" ]
[ div [ class "field" ]
[ label []
[ i [ class "tags icon" ] []
[ Icons.tagsIcon
, text "Tags"
]
, Html.map TagDropdownMsg (Comp.Dropdown.view settings model.tagModel)
@ -1838,11 +1838,17 @@ renderEditForm settings model =
]
]
, div [ class "field" ]
[ label [] [ text "Direction" ]
[ label []
[ Icons.directionIcon
, text "Direction"
]
, Html.map DirDropdownMsg (Comp.Dropdown.view settings model.directionModel)
]
, div [ class " field" ]
[ label [] [ text "Date" ]
[ label []
[ Icons.dateIcon
, text "Date"
]
, div [ class "ui action input" ]
[ Html.map ItemDatePickerMsg
(Comp.DatePicker.viewTime
@ -1857,7 +1863,10 @@ renderEditForm settings model =
, renderItemDateSuggestions model
]
, div [ class " field" ]
[ label [] [ text "Due Date" ]
[ label []
[ Icons.dueDateIcon
, text "Due Date"
]
, div [ class "ui action input" ]
[ Html.map DueDatePickerMsg
(Comp.DatePicker.viewTime
@ -1871,30 +1880,42 @@ renderEditForm settings model =
, renderDueDateSuggestions model
]
, h4 [ class "ui dividing header" ]
[ i [ class "tiny envelope outline icon" ] []
[ Icons.correspondentIcon
, text "Correspondent"
]
, div [ class "field" ]
[ label [] [ text "Organization" ]
[ label []
[ Icons.organizationIcon
, text "Organization"
]
, Html.map OrgDropdownMsg (Comp.Dropdown.view settings model.corrOrgModel)
, renderOrgSuggestions model
]
, div [ class "field" ]
[ label [] [ text "Person" ]
[ label []
[ Icons.personIcon
, text "Person"
]
, Html.map CorrPersonMsg (Comp.Dropdown.view settings model.corrPersonModel)
, renderCorrPersonSuggestions model
]
, h4 [ class "ui dividing header" ]
[ i [ class "tiny comment outline icon" ] []
[ Icons.concernedIcon
, text "Concerning"
]
, div [ class "field" ]
[ label [] [ text "Person" ]
[ label []
[ Icons.personIcon
, text "Person"
]
, Html.map ConcPersonMsg (Comp.Dropdown.view settings model.concPersonModel)
, renderConcPersonSuggestions model
]
, div [ class "field" ]
[ label [] [ text "Equipment" ]
[ label []
[ Icons.equipmentIcon
, text "Equipment"
]
, Html.map ConcEquipMsg (Comp.Dropdown.view settings model.concEquipModel)
, renderConcEquipSuggestions model
]

View File

@ -5,10 +5,24 @@ module Data.Icons exposing
, concernedIcon
, correspondent
, correspondentIcon
, date
, dateIcon
, direction
, directionIcon
, dueDate
, dueDateIcon
, editNotes
, editNotesIcon
, equipment
, equipmentIcon
, organization
, organizationIcon
, person
, personIcon
, tag
, tagIcon
, tags
, tagsIcon
)
import Html exposing (Html, i)
@ -35,6 +49,16 @@ correspondentIcon =
i [ class correspondent ] []
date : String
date =
"calendar outline icon"
dateIcon : Html msg
dateIcon =
i [ class date ] []
dueDate : String
dueDate =
"bell icon"
@ -63,3 +87,63 @@ addFiles =
addFilesIcon : Html msg
addFilesIcon =
i [ class addFiles ] []
tag : String
tag =
"tag icon"
tagIcon : Html msg
tagIcon =
i [ class tag ] []
tags : String
tags =
"tags icon"
tagsIcon : Html msg
tagsIcon =
i [ class tags ] []
direction : String
direction =
"exchange icon"
directionIcon : Html msg
directionIcon =
i [ class direction ] []
person : String
person =
"user icon"
personIcon : Html msg
personIcon =
i [ class person ] []
organization : String
organization =
"factory icon"
organizationIcon : Html msg
organizationIcon =
i [ class organization ] []
equipment : String
equipment =
"box icon"
equipmentIcon : Html msg
equipmentIcon =
i [ class equipment ] []

View File

@ -4,6 +4,7 @@ import Comp.EquipmentManage
import Comp.OrgManage
import Comp.PersonManage
import Comp.TagManage
import Data.Icons as Icons
import Data.UiSettings exposing (UiSettings)
import Html exposing (..)
import Html.Attributes exposing (..)
@ -25,28 +26,28 @@ view settings model =
[ classActive (model.currentTab == Just TagTab) "link icon item"
, onClick (SetTab TagTab)
]
[ i [ class "tag icon" ] []
[ Icons.tagIcon
, text "Tag"
]
, div
[ classActive (model.currentTab == Just EquipTab) "link icon item"
, onClick (SetTab EquipTab)
]
[ i [ class "box icon" ] []
[ Icons.equipmentIcon
, text "Equipment"
]
, div
[ classActive (model.currentTab == Just OrgTab) "link icon item"
, onClick (SetTab OrgTab)
]
[ i [ class "factory icon" ] []
[ Icons.organizationIcon
, text "Organization"
]
, div
[ classActive (model.currentTab == Just PersonTab) "link icon item"
, onClick (SetTab PersonTab)
]
[ i [ class "user icon" ] []
[ Icons.personIcon
, text "Person"
]
]
@ -77,7 +78,7 @@ view settings model =
viewTags : Model -> List (Html Msg)
viewTags model =
[ h2 [ class "ui header" ]
[ i [ class "ui tag icon" ] []
[ Icons.tagIcon
, div [ class "content" ]
[ text "Tags"
]
@ -89,7 +90,7 @@ viewTags model =
viewEquip : Model -> List (Html Msg)
viewEquip model =
[ h2 [ class "ui header" ]
[ i [ class "ui box icon" ] []
[ Icons.equipmentIcon
, div [ class "content" ]
[ text "Equipment"
]
@ -101,7 +102,7 @@ viewEquip model =
viewOrg : UiSettings -> Model -> List (Html Msg)
viewOrg settings model =
[ h2 [ class "ui header" ]
[ i [ class "ui factory icon" ] []
[ Icons.organizationIcon
, div [ class "content" ]
[ text "Organizations"
]
@ -113,7 +114,7 @@ viewOrg settings model =
viewPerson : UiSettings -> Model -> List (Html Msg)
viewPerson settings model =
[ h2 [ class "ui header" ]
[ i [ class "ui user icon" ] []
[ Icons.personIcon
, div [ class "content" ]
[ text "Person"
]