TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 02:48:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Remove old ui code in frontend

Browse Source
This commit is contained in:
Eike Kettner
2021-03-09 20:16:05 +01:00
parent ee694dc719
commit b95338e744
90 changed files with 50 additions and 11038 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
modules/webapp/src/main/elm/Comp/FolderManage.elm
View File

@ -4,7 +4,6 @@ module Comp.FolderManage exposing
, empty
, init
, update
, view
, view2
)
@ -20,7 +19,6 @@ import Comp.MenuBar as MB
import Data.Flags exposing (Flags)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onCheck, onClick, onInput)
import Http
import Styles as S
@ -139,13 +137,13 @@ update flags msg model =
UserListResp (Ok ul) ->
( { model | users = ul.items }, Cmd.none )
UserListResp (Err err) ->
UserListResp (Err _) ->
( model, Cmd.none )
FolderListResp (Ok sl) ->
( { model | folders = sl.items }, Cmd.none )
FolderListResp (Err err) ->
FolderListResp (Err _) ->
( model, Cmd.none )
FolderDetailResp (Ok sd) ->
@ -153,7 +151,7 @@ update flags msg model =
, Cmd.none
)
FolderDetailResp (Err err) ->
FolderDetailResp (Err _) ->
( model, Cmd.none )
InitNewFolder ->
@ -167,80 +165,6 @@ update flags msg model =
--- View
view : Flags -> Model -> Html Msg
view flags model =
case model.detailModel of
Just dm ->
viewDetail flags dm
Nothing ->
viewTable model
viewDetail : Flags -> Comp.FolderDetail.Model -> Html Msg
viewDetail flags detailModel =
div []
[ Html.map DetailMsg (Comp.FolderDetail.view flags detailModel)
]
viewTable : Model -> Html Msg
viewTable model =
div []
[ div [ class "ui secondary menu" ]
[ div [ class "horizontally fitted item" ]
[ div [ class "ui icon input" ]
[ input
[ type_ "text"
, onInput SetQuery
, value model.query
, placeholder "Search…"
]
[]
, i [ class "ui search icon" ]
[]
]
]
, div [ class "item" ]
[ div [ class "ui checkbox" ]
[ input
[ type_ "checkbox"
, onCheck (\_ -> ToggleOwningOnly)
, checked model.owningOnly
]
[]
, label [] [ text "Show owning folders only" ]
]
]
, div [ class "right menu" ]
[ div [ class "item" ]
[ a
[ class "ui primary button"
, href "#"
, onClick InitNewFolder
]
[ i [ class "plus icon" ] []
, text "New Folder"
]
]
]
]
, Html.map TableMsg (Comp.FolderTable.view model.tableModel model.folders)
, div
[ classList
[ ( "ui dimmer", True )
, ( "active", model.loading )
]
]
[ div [ class "ui loader" ] []
]
]
--- View2