mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-04-05 10:59:33 +00:00
46b784cc33
The option "contents" has been removed from the search bar. This field is not intended to be used alone, but rather in conjunction with other fields. Otherwise it may be really slow on large databases. The "name" option has been removed from the search menu. This doesn't provide anything better over the "Names" field, that search more fields, including item names.
746 lines
23 KiB
Elm
746 lines
23 KiB
Elm
module Comp.SearchMenu exposing
|
|
( Model
|
|
, Msg(..)
|
|
, NextState
|
|
, getItemSearch
|
|
, init
|
|
, update
|
|
, view
|
|
)
|
|
|
|
import Api
|
|
import Api.Model.Equipment exposing (Equipment)
|
|
import Api.Model.EquipmentList exposing (EquipmentList)
|
|
import Api.Model.FolderList exposing (FolderList)
|
|
import Api.Model.IdName exposing (IdName)
|
|
import Api.Model.ItemSearch exposing (ItemSearch)
|
|
import Api.Model.ReferenceList exposing (ReferenceList)
|
|
import Api.Model.Tag exposing (Tag)
|
|
import Api.Model.TagList exposing (TagList)
|
|
import Comp.DatePicker
|
|
import Comp.Dropdown exposing (isDropdownChangeMsg)
|
|
import Data.Direction exposing (Direction)
|
|
import Data.Flags exposing (Flags)
|
|
import Data.Icons as Icons
|
|
import Data.UiSettings exposing (UiSettings)
|
|
import DatePicker exposing (DatePicker)
|
|
import Html exposing (..)
|
|
import Html.Attributes exposing (..)
|
|
import Html.Events exposing (onCheck, onClick, onInput)
|
|
import Http
|
|
import Util.Html exposing (KeyCode(..))
|
|
import Util.Maybe
|
|
import Util.Tag
|
|
import Util.Update
|
|
|
|
|
|
|
|
-- Data Model
|
|
|
|
|
|
type alias Model =
|
|
{ tagInclModel : Comp.Dropdown.Model Tag
|
|
, tagExclModel : Comp.Dropdown.Model Tag
|
|
, directionModel : Comp.Dropdown.Model Direction
|
|
, orgModel : Comp.Dropdown.Model IdName
|
|
, corrPersonModel : Comp.Dropdown.Model IdName
|
|
, concPersonModel : Comp.Dropdown.Model IdName
|
|
, concEquipmentModel : Comp.Dropdown.Model Equipment
|
|
, folderModel : Comp.Dropdown.Model IdName
|
|
, inboxCheckbox : Bool
|
|
, fromDateModel : DatePicker
|
|
, fromDate : Maybe Int
|
|
, untilDateModel : DatePicker
|
|
, untilDate : Maybe Int
|
|
, fromDueDateModel : DatePicker
|
|
, fromDueDate : Maybe Int
|
|
, untilDueDateModel : DatePicker
|
|
, untilDueDate : Maybe Int
|
|
, nameModel : Maybe String
|
|
, allNameModel : Maybe String
|
|
, fulltextModel : Maybe String
|
|
, datePickerInitialized : Bool
|
|
, showNameHelp : Bool
|
|
}
|
|
|
|
|
|
init : Model
|
|
init =
|
|
{ tagInclModel = Util.Tag.makeDropdownModel
|
|
, tagExclModel = Util.Tag.makeDropdownModel
|
|
, directionModel =
|
|
Comp.Dropdown.makeSingleList
|
|
{ makeOption =
|
|
\entry ->
|
|
{ value = Data.Direction.toString entry
|
|
, text = Data.Direction.toString entry
|
|
, additional = ""
|
|
}
|
|
, options = Data.Direction.all
|
|
, placeholder = "Choose a direction…"
|
|
, selected = Nothing
|
|
}
|
|
, orgModel =
|
|
Comp.Dropdown.makeModel
|
|
{ multiple = False
|
|
, searchable = \n -> n > 5
|
|
, makeOption = \e -> { value = e.id, text = e.name, additional = "" }
|
|
, labelColor = \_ -> \_ -> ""
|
|
, placeholder = "Choose an organization"
|
|
}
|
|
, corrPersonModel =
|
|
Comp.Dropdown.makeSingle
|
|
{ makeOption = \e -> { value = e.id, text = e.name, additional = "" }
|
|
, placeholder = "Choose a person"
|
|
}
|
|
, concPersonModel =
|
|
Comp.Dropdown.makeSingle
|
|
{ makeOption = \e -> { value = e.id, text = e.name, additional = "" }
|
|
, placeholder = "Choose a person"
|
|
}
|
|
, concEquipmentModel =
|
|
Comp.Dropdown.makeModel
|
|
{ multiple = False
|
|
, searchable = \n -> n > 5
|
|
, makeOption = \e -> { value = e.id, text = e.name, additional = "" }
|
|
, labelColor = \_ -> \_ -> ""
|
|
, placeholder = "Choose an equipment"
|
|
}
|
|
, folderModel =
|
|
Comp.Dropdown.makeModel
|
|
{ multiple = False
|
|
, searchable = \n -> n > 5
|
|
, makeOption = \e -> { value = e.id, text = e.name, additional = "" }
|
|
, labelColor = \_ -> \_ -> ""
|
|
, placeholder = "Only items in folder"
|
|
}
|
|
, inboxCheckbox = False
|
|
, fromDateModel = Comp.DatePicker.emptyModel
|
|
, fromDate = Nothing
|
|
, untilDateModel = Comp.DatePicker.emptyModel
|
|
, untilDate = Nothing
|
|
, fromDueDateModel = Comp.DatePicker.emptyModel
|
|
, fromDueDate = Nothing
|
|
, untilDueDateModel = Comp.DatePicker.emptyModel
|
|
, untilDueDate = Nothing
|
|
, nameModel = Nothing
|
|
, allNameModel = Nothing
|
|
, fulltextModel = Nothing
|
|
, datePickerInitialized = False
|
|
, showNameHelp = False
|
|
}
|
|
|
|
|
|
type Msg
|
|
= Init
|
|
| TagIncMsg (Comp.Dropdown.Msg Tag)
|
|
| TagExcMsg (Comp.Dropdown.Msg Tag)
|
|
| DirectionMsg (Comp.Dropdown.Msg Direction)
|
|
| OrgMsg (Comp.Dropdown.Msg IdName)
|
|
| CorrPersonMsg (Comp.Dropdown.Msg IdName)
|
|
| ConcPersonMsg (Comp.Dropdown.Msg IdName)
|
|
| ConcEquipmentMsg (Comp.Dropdown.Msg Equipment)
|
|
| FromDateMsg Comp.DatePicker.Msg
|
|
| UntilDateMsg Comp.DatePicker.Msg
|
|
| FromDueDateMsg Comp.DatePicker.Msg
|
|
| UntilDueDateMsg Comp.DatePicker.Msg
|
|
| ToggleInbox
|
|
| GetTagsResp (Result Http.Error TagList)
|
|
| GetOrgResp (Result Http.Error ReferenceList)
|
|
| GetEquipResp (Result Http.Error EquipmentList)
|
|
| GetPersonResp (Result Http.Error ReferenceList)
|
|
| SetName String
|
|
| SetAllName String
|
|
| SetFulltext String
|
|
| ResetForm
|
|
| KeyUpMsg (Maybe KeyCode)
|
|
| ToggleNameHelp
|
|
| FolderMsg (Comp.Dropdown.Msg IdName)
|
|
| GetFolderResp (Result Http.Error FolderList)
|
|
|
|
|
|
getDirection : Model -> Maybe Direction
|
|
getDirection model =
|
|
let
|
|
selection =
|
|
Comp.Dropdown.getSelected model.directionModel
|
|
in
|
|
case selection of
|
|
[ d ] ->
|
|
Just d
|
|
|
|
_ ->
|
|
Nothing
|
|
|
|
|
|
getItemSearch : Model -> ItemSearch
|
|
getItemSearch model =
|
|
let
|
|
e =
|
|
Api.Model.ItemSearch.empty
|
|
|
|
amendWildcards s =
|
|
if String.startsWith "\"" s && String.endsWith "\"" s then
|
|
String.dropLeft 1 s
|
|
|> String.dropRight 1
|
|
|
|
else if String.contains "*" s then
|
|
s
|
|
|
|
else
|
|
"*" ++ s ++ "*"
|
|
in
|
|
{ e
|
|
| tagsInclude = Comp.Dropdown.getSelected model.tagInclModel |> List.map .id
|
|
, tagsExclude = Comp.Dropdown.getSelected model.tagExclModel |> List.map .id
|
|
, corrPerson = Comp.Dropdown.getSelected model.corrPersonModel |> List.map .id |> List.head
|
|
, corrOrg = Comp.Dropdown.getSelected model.orgModel |> List.map .id |> List.head
|
|
, concPerson = Comp.Dropdown.getSelected model.concPersonModel |> List.map .id |> List.head
|
|
, concEquip = Comp.Dropdown.getSelected model.concEquipmentModel |> List.map .id |> List.head
|
|
, folder = Comp.Dropdown.getSelected model.folderModel |> List.map .id |> List.head
|
|
, direction = Comp.Dropdown.getSelected model.directionModel |> List.head |> Maybe.map Data.Direction.toString
|
|
, inbox = model.inboxCheckbox
|
|
, dateFrom = model.fromDate
|
|
, dateUntil = model.untilDate
|
|
, dueDateFrom = model.fromDueDate
|
|
, dueDateUntil = model.untilDueDate
|
|
, name =
|
|
model.nameModel
|
|
|> Maybe.map amendWildcards
|
|
, allNames =
|
|
model.allNameModel
|
|
|> Maybe.map amendWildcards
|
|
, fullText = model.fulltextModel
|
|
}
|
|
|
|
|
|
|
|
-- Update
|
|
|
|
|
|
type alias NextState =
|
|
{ modelCmd : ( Model, Cmd Msg )
|
|
, stateChange : Bool
|
|
}
|
|
|
|
|
|
noChange : ( Model, Cmd Msg ) -> NextState
|
|
noChange p =
|
|
NextState p False
|
|
|
|
|
|
update : Flags -> UiSettings -> Msg -> Model -> NextState
|
|
update flags settings msg model =
|
|
case msg of
|
|
Init ->
|
|
let
|
|
( dp, dpc ) =
|
|
Comp.DatePicker.init
|
|
|
|
( mdp, cdp ) =
|
|
if model.datePickerInitialized then
|
|
( model, Cmd.none )
|
|
|
|
else
|
|
( { model
|
|
| untilDateModel = dp
|
|
, fromDateModel = dp
|
|
, untilDueDateModel = dp
|
|
, fromDueDateModel = dp
|
|
, datePickerInitialized = True
|
|
}
|
|
, Cmd.batch
|
|
[ Cmd.map UntilDateMsg dpc
|
|
, Cmd.map FromDateMsg dpc
|
|
, Cmd.map UntilDueDateMsg dpc
|
|
, Cmd.map FromDueDateMsg dpc
|
|
]
|
|
)
|
|
in
|
|
noChange
|
|
( mdp
|
|
, Cmd.batch
|
|
[ Api.getTags flags "" GetTagsResp
|
|
, Api.getOrgLight flags GetOrgResp
|
|
, Api.getEquipments flags "" GetEquipResp
|
|
, Api.getPersonsLight flags GetPersonResp
|
|
, Api.getFolders flags "" False GetFolderResp
|
|
, cdp
|
|
]
|
|
)
|
|
|
|
ResetForm ->
|
|
let
|
|
next =
|
|
update flags settings Init init
|
|
in
|
|
{ next | stateChange = True }
|
|
|
|
GetTagsResp (Ok tags) ->
|
|
let
|
|
tagList =
|
|
Comp.Dropdown.SetOptions tags.items
|
|
in
|
|
noChange <|
|
|
Util.Update.andThen1
|
|
[ update flags settings (TagIncMsg tagList) >> .modelCmd
|
|
, update flags settings (TagExcMsg tagList) >> .modelCmd
|
|
]
|
|
model
|
|
|
|
GetTagsResp (Err _) ->
|
|
noChange ( model, Cmd.none )
|
|
|
|
GetEquipResp (Ok equips) ->
|
|
let
|
|
opts =
|
|
Comp.Dropdown.SetOptions equips.items
|
|
in
|
|
update flags settings (ConcEquipmentMsg opts) model
|
|
|
|
GetEquipResp (Err _) ->
|
|
noChange ( model, Cmd.none )
|
|
|
|
GetOrgResp (Ok orgs) ->
|
|
let
|
|
opts =
|
|
Comp.Dropdown.SetOptions orgs.items
|
|
in
|
|
update flags settings (OrgMsg opts) model
|
|
|
|
GetOrgResp (Err _) ->
|
|
noChange ( model, Cmd.none )
|
|
|
|
GetPersonResp (Ok ps) ->
|
|
let
|
|
opts =
|
|
Comp.Dropdown.SetOptions ps.items
|
|
in
|
|
noChange <|
|
|
Util.Update.andThen1
|
|
[ update flags settings (CorrPersonMsg opts) >> .modelCmd
|
|
, update flags settings (ConcPersonMsg opts) >> .modelCmd
|
|
]
|
|
model
|
|
|
|
GetPersonResp (Err _) ->
|
|
noChange ( model, Cmd.none )
|
|
|
|
TagIncMsg m ->
|
|
let
|
|
( m2, c2 ) =
|
|
Comp.Dropdown.update m model.tagInclModel
|
|
in
|
|
NextState
|
|
( { model | tagInclModel = m2 }
|
|
, Cmd.map TagIncMsg c2
|
|
)
|
|
(isDropdownChangeMsg m)
|
|
|
|
TagExcMsg m ->
|
|
let
|
|
( m2, c2 ) =
|
|
Comp.Dropdown.update m model.tagExclModel
|
|
in
|
|
NextState
|
|
( { model | tagExclModel = m2 }
|
|
, Cmd.map TagExcMsg c2
|
|
)
|
|
(isDropdownChangeMsg m)
|
|
|
|
DirectionMsg m ->
|
|
let
|
|
( m2, c2 ) =
|
|
Comp.Dropdown.update m model.directionModel
|
|
in
|
|
NextState
|
|
( { model | directionModel = m2 }
|
|
, Cmd.map DirectionMsg c2
|
|
)
|
|
(isDropdownChangeMsg m)
|
|
|
|
OrgMsg m ->
|
|
let
|
|
( m2, c2 ) =
|
|
Comp.Dropdown.update m model.orgModel
|
|
in
|
|
NextState
|
|
( { model | orgModel = m2 }
|
|
, Cmd.map OrgMsg c2
|
|
)
|
|
(isDropdownChangeMsg m)
|
|
|
|
CorrPersonMsg m ->
|
|
let
|
|
( m2, c2 ) =
|
|
Comp.Dropdown.update m model.corrPersonModel
|
|
in
|
|
NextState
|
|
( { model | corrPersonModel = m2 }
|
|
, Cmd.map CorrPersonMsg c2
|
|
)
|
|
(isDropdownChangeMsg m)
|
|
|
|
ConcPersonMsg m ->
|
|
let
|
|
( m2, c2 ) =
|
|
Comp.Dropdown.update m model.concPersonModel
|
|
in
|
|
NextState
|
|
( { model | concPersonModel = m2 }
|
|
, Cmd.map ConcPersonMsg c2
|
|
)
|
|
(isDropdownChangeMsg m)
|
|
|
|
ConcEquipmentMsg m ->
|
|
let
|
|
( m2, c2 ) =
|
|
Comp.Dropdown.update m model.concEquipmentModel
|
|
in
|
|
NextState
|
|
( { model | concEquipmentModel = m2 }
|
|
, Cmd.map ConcEquipmentMsg c2
|
|
)
|
|
(isDropdownChangeMsg m)
|
|
|
|
ToggleInbox ->
|
|
let
|
|
current =
|
|
model.inboxCheckbox
|
|
in
|
|
NextState ( { model | inboxCheckbox = not current }, Cmd.none ) True
|
|
|
|
FromDateMsg m ->
|
|
let
|
|
( dp, event ) =
|
|
Comp.DatePicker.updateDefault m model.fromDateModel
|
|
|
|
nextDate =
|
|
case event of
|
|
DatePicker.Picked date ->
|
|
Just (Comp.DatePicker.startOfDay date)
|
|
|
|
_ ->
|
|
Nothing
|
|
in
|
|
NextState
|
|
( { model | fromDateModel = dp, fromDate = nextDate }
|
|
, Cmd.none
|
|
)
|
|
(model.fromDate /= nextDate)
|
|
|
|
UntilDateMsg m ->
|
|
let
|
|
( dp, event ) =
|
|
Comp.DatePicker.updateDefault m model.untilDateModel
|
|
|
|
nextDate =
|
|
case event of
|
|
DatePicker.Picked date ->
|
|
Just (Comp.DatePicker.endOfDay date)
|
|
|
|
_ ->
|
|
Nothing
|
|
in
|
|
NextState
|
|
( { model | untilDateModel = dp, untilDate = nextDate }
|
|
, Cmd.none
|
|
)
|
|
(model.untilDate /= nextDate)
|
|
|
|
FromDueDateMsg m ->
|
|
let
|
|
( dp, event ) =
|
|
Comp.DatePicker.updateDefault m model.fromDueDateModel
|
|
|
|
nextDate =
|
|
case event of
|
|
DatePicker.Picked date ->
|
|
Just (Comp.DatePicker.startOfDay date)
|
|
|
|
_ ->
|
|
Nothing
|
|
in
|
|
NextState
|
|
( { model | fromDueDateModel = dp, fromDueDate = nextDate }
|
|
, Cmd.none
|
|
)
|
|
(model.fromDueDate /= nextDate)
|
|
|
|
UntilDueDateMsg m ->
|
|
let
|
|
( dp, event ) =
|
|
Comp.DatePicker.updateDefault m model.untilDueDateModel
|
|
|
|
nextDate =
|
|
case event of
|
|
DatePicker.Picked date ->
|
|
Just (Comp.DatePicker.endOfDay date)
|
|
|
|
_ ->
|
|
Nothing
|
|
in
|
|
NextState
|
|
( { model | untilDueDateModel = dp, untilDueDate = nextDate }
|
|
, Cmd.none
|
|
)
|
|
(model.untilDueDate /= nextDate)
|
|
|
|
SetName str ->
|
|
let
|
|
next =
|
|
Util.Maybe.fromString str
|
|
in
|
|
NextState
|
|
( { model | nameModel = next }
|
|
, Cmd.none
|
|
)
|
|
False
|
|
|
|
SetAllName str ->
|
|
let
|
|
next =
|
|
Util.Maybe.fromString str
|
|
in
|
|
NextState
|
|
( { model | allNameModel = next }
|
|
, Cmd.none
|
|
)
|
|
False
|
|
|
|
SetFulltext str ->
|
|
let
|
|
next =
|
|
Util.Maybe.fromString str
|
|
in
|
|
NextState
|
|
( { model | fulltextModel = next }
|
|
, Cmd.none
|
|
)
|
|
False
|
|
|
|
KeyUpMsg (Just Enter) ->
|
|
NextState ( model, Cmd.none ) True
|
|
|
|
KeyUpMsg _ ->
|
|
NextState ( model, Cmd.none ) False
|
|
|
|
ToggleNameHelp ->
|
|
NextState ( { model | showNameHelp = not model.showNameHelp }, Cmd.none ) False
|
|
|
|
GetFolderResp (Ok fs) ->
|
|
let
|
|
opts =
|
|
List.filter .isMember fs.items
|
|
|> List.map (\e -> IdName e.id e.name)
|
|
|> Comp.Dropdown.SetOptions
|
|
in
|
|
update flags settings (FolderMsg opts) model
|
|
|
|
GetFolderResp (Err _) ->
|
|
noChange ( model, Cmd.none )
|
|
|
|
FolderMsg lm ->
|
|
let
|
|
( m2, c2 ) =
|
|
Comp.Dropdown.update lm model.folderModel
|
|
in
|
|
NextState
|
|
( { model | folderModel = m2 }
|
|
, Cmd.map FolderMsg c2
|
|
)
|
|
(isDropdownChangeMsg lm)
|
|
|
|
|
|
|
|
-- View
|
|
|
|
|
|
view : Flags -> UiSettings -> Model -> Html Msg
|
|
view flags settings model =
|
|
let
|
|
formHeader icon headline =
|
|
div [ class "ui small dividing header" ]
|
|
[ icon
|
|
, div [ class "content" ]
|
|
[ text headline
|
|
]
|
|
]
|
|
|
|
formHeaderHelp icon headline tagger =
|
|
div [ class "ui small dividing header" ]
|
|
[ a
|
|
[ class "right-float"
|
|
, href "#"
|
|
, onClick tagger
|
|
]
|
|
[ i [ class "small grey help link icon" ] []
|
|
]
|
|
, icon
|
|
, div [ class "content" ]
|
|
[ text headline
|
|
]
|
|
]
|
|
|
|
nameIcon =
|
|
i [ class "left align icon" ] []
|
|
in
|
|
div [ class "ui form" ]
|
|
[ div [ class "inline field" ]
|
|
[ div [ class "ui checkbox" ]
|
|
[ input
|
|
[ type_ "checkbox"
|
|
, onCheck (\_ -> ToggleInbox)
|
|
, checked model.inboxCheckbox
|
|
]
|
|
[]
|
|
, label []
|
|
[ text "Only New"
|
|
]
|
|
]
|
|
]
|
|
, formHeaderHelp nameIcon "Names" ToggleNameHelp
|
|
, span
|
|
[ classList
|
|
[ ( "small-info", True )
|
|
, ( "invisible hidden", not model.showNameHelp )
|
|
]
|
|
]
|
|
[ text "Use wildcards "
|
|
, code [] [ text "*" ]
|
|
, text " at beginning or end. Added automatically if not "
|
|
, text "present and not quoted. Press "
|
|
, em [] [ text "Enter" ]
|
|
, text " to start searching."
|
|
]
|
|
, div [ class "field" ]
|
|
[ label [] [ text "Names" ]
|
|
, input
|
|
[ type_ "text"
|
|
, onInput SetAllName
|
|
, Util.Html.onKeyUpCode KeyUpMsg
|
|
, model.allNameModel |> Maybe.withDefault "" |> value
|
|
]
|
|
[]
|
|
, span
|
|
[ classList
|
|
[ ( "small-info", True )
|
|
, ( "invisible hidden", not model.showNameHelp )
|
|
]
|
|
]
|
|
[ text "Looks in correspondents, concerned entities, item name and notes."
|
|
]
|
|
]
|
|
, formHeader (Icons.folderIcon "") "Folder"
|
|
, div [ class "field" ]
|
|
[ label [] [ text "Folder" ]
|
|
, Html.map FolderMsg (Comp.Dropdown.view settings model.folderModel)
|
|
]
|
|
, formHeader (Icons.tagsIcon "") "Tags"
|
|
, div [ class "field" ]
|
|
[ label [] [ text "Include (and)" ]
|
|
, Html.map TagIncMsg (Comp.Dropdown.view settings model.tagInclModel)
|
|
]
|
|
, div [ class "field" ]
|
|
[ label [] [ text "Exclude (or)" ]
|
|
, Html.map TagExcMsg (Comp.Dropdown.view settings model.tagExclModel)
|
|
]
|
|
, formHeader (Icons.searchIcon "") "Content"
|
|
, div
|
|
[ classList
|
|
[ ( "field", True )
|
|
, ( "invisible hidden", not flags.config.fullTextSearchEnabled )
|
|
]
|
|
]
|
|
[ label [] [ text "Content Search" ]
|
|
, input
|
|
[ type_ "text"
|
|
, onInput SetFulltext
|
|
, Util.Html.onKeyUpCode KeyUpMsg
|
|
, model.fulltextModel |> Maybe.withDefault "" |> value
|
|
]
|
|
[]
|
|
, span [ class "small-info" ]
|
|
[ text "Fulltext search in document contents and notes."
|
|
]
|
|
]
|
|
, formHeader (Icons.correspondentIcon "")
|
|
(case getDirection model of
|
|
Just Data.Direction.Incoming ->
|
|
"Sender"
|
|
|
|
Just Data.Direction.Outgoing ->
|
|
"Recipient"
|
|
|
|
Nothing ->
|
|
"Correspondent"
|
|
)
|
|
, div [ class "field" ]
|
|
[ label [] [ text "Organization" ]
|
|
, Html.map OrgMsg (Comp.Dropdown.view settings model.orgModel)
|
|
]
|
|
, div [ class "field" ]
|
|
[ label [] [ text "Person" ]
|
|
, Html.map CorrPersonMsg (Comp.Dropdown.view settings model.corrPersonModel)
|
|
]
|
|
, formHeader Icons.concernedIcon "Concerned"
|
|
, div [ class "field" ]
|
|
[ label [] [ text "Person" ]
|
|
, Html.map ConcPersonMsg (Comp.Dropdown.view settings model.concPersonModel)
|
|
]
|
|
, div [ class "field" ]
|
|
[ label [] [ text "Equipment" ]
|
|
, Html.map ConcEquipmentMsg (Comp.Dropdown.view settings model.concEquipmentModel)
|
|
]
|
|
, formHeader (Icons.dateIcon "") "Date"
|
|
, div [ class "fields" ]
|
|
[ div [ class "field" ]
|
|
[ label []
|
|
[ text "From"
|
|
]
|
|
, Html.map FromDateMsg
|
|
(Comp.DatePicker.viewTimeDefault
|
|
model.fromDate
|
|
model.fromDateModel
|
|
)
|
|
]
|
|
, div [ class "field" ]
|
|
[ label []
|
|
[ text "To"
|
|
]
|
|
, Html.map UntilDateMsg
|
|
(Comp.DatePicker.viewTimeDefault
|
|
model.untilDate
|
|
model.untilDateModel
|
|
)
|
|
]
|
|
]
|
|
, formHeader (Icons.dueDateIcon "") "Due Date"
|
|
, div [ class "fields" ]
|
|
[ div [ class "field" ]
|
|
[ label []
|
|
[ text "Due From"
|
|
]
|
|
, Html.map FromDueDateMsg
|
|
(Comp.DatePicker.viewTimeDefault
|
|
model.fromDueDate
|
|
model.fromDueDateModel
|
|
)
|
|
]
|
|
, div [ class "field" ]
|
|
[ label []
|
|
[ text "Due To"
|
|
]
|
|
, Html.map UntilDueDateMsg
|
|
(Comp.DatePicker.viewTimeDefault
|
|
model.untilDueDate
|
|
model.untilDueDateModel
|
|
)
|
|
]
|
|
]
|
|
, formHeader (Icons.directionIcon "") "Direction"
|
|
, div [ class "field" ]
|
|
[ Html.map DirectionMsg (Comp.Dropdown.view settings model.directionModel)
|
|
]
|
|
]
|