Work in progress

RaphaelGauthier · Aug 21, 2023 · a24a7c4 · a24a7c4
1 parent e54fdac
commit a24a7c4
Show file tree

Hide file tree

Showing 6 changed files with 363 additions and 45 deletions.
diff --git a/webapp/sources/rudder/rudder-web/src/main/elm/sources/FileManager/Model.elm b/webapp/sources/rudder/rudder-web/src/main/elm/sources/FileManager/Model.elm
@@ -13,6 +13,18 @@ type alias Flags =
   , hasWriteRights : Bool
   }
 
+type ViewMode = ListView | GridView
+
+type SortBy = FileName | FileSize | FileDate | FileRights
+
+type SortOrder = Asc | Desc
+
+type alias Filters =
+  { filter : String
+  , sortBy : SortBy
+  , sortOrder : SortOrder
+  }
+
 type alias Model =
   { api: String
   , thumbnailsUrl: String
@@ -41,6 +53,8 @@ type alias Model =
   , clipboardFiles: List FileMeta
   , uploadQueue: List File
   , hasWriteRights: Bool
+  , viewMode : ViewMode
+  , filters  : Filters
   }
 
 type alias FileMeta =
@@ -51,6 +65,10 @@ type alias FileMeta =
   , rights: String
   }
 
+type alias TreeItem =
+  { name : String
+  , childs : List String
+  }
 type Msg
   = EnvMsg EnvMsg
   | ChooseFiles
@@ -70,6 +88,8 @@ type Msg
   | Delete
   | UpdateApiPath String
   | None
+  | ChangeViewMode ViewMode
+  | UpdateFilters Filters
 
 type EnvMsg
   = Open ()

diff --git a/webapp/sources/rudder/rudder-web/src/main/elm/sources/FileManager/Update.elm b/webapp/sources/rudder/rudder-web/src/main/elm/sources/FileManager/Update.elm
@@ -43,6 +43,8 @@ initModel { api, thumbnailsUrl, downloadsUrl, dir, hasWriteRights } =
   , clipboardFiles = []
   , uploadQueue = []
   , hasWriteRights = hasWriteRights
+  , viewMode = GridView
+  , filters = Filters "" FileName Asc
   }
 
 update : Msg -> Model -> (Model, Cmd Msg)
@@ -125,4 +127,8 @@ update msg model = case msg of
   Delete -> ({ model | showContextMenu = False, load = True }, delete model.api  model.dir model.selected)
   UpdateApiPath apiPath -> ({model | api = apiPath, downloadsUrl =  apiPath } , listDirectory apiPath "")
 
+  ChangeViewMode viewMode -> ({model | viewMode = viewMode}, Cmd.none)
+
+  UpdateFilters filters -> ({model | filters = filters}, Cmd.none)
+
   None -> (model, Cmd.none)