TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-05 22:55:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Execute search when loading page

Browse Source
This commit is contained in:
Eike Kettner 2020-06-17 21:57:26 +02:00
parent 4028b7979e
commit bc20e9a9bb
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
modules/webapp/src/main/elm/Page/Home/Update.elm
View File

@ -9,13 +9,18 @@ import Page exposing (Page(..))
import Page.Home.Data exposing (..) import Page.Home.Data exposing (..)
import Throttle import Throttle
import Time import Time
import Util.Update
update : Nav.Key -> Flags -> UiSettings -> Msg -> Model -> ( Model, Cmd Msg, Sub Msg ) update : Nav.Key -> Flags -> UiSettings -> Msg -> Model -> ( Model, Cmd Msg, Sub Msg )
update key flags settings msg model = update key flags settings msg model =
case msg of case msg of
Init -> Init ->
update key flags settings (SearchMenuMsg Comp.SearchMenu.Init) model Util.Update.andThen2
[ update key flags settings (SearchMenuMsg Comp.SearchMenu.Init)
, doSearch flags settings
]
model
ResetSearch -> ResetSearch ->
let let