Feature/text fixes (#173)

* remove admin stylesheet link * add z-pool-tool to footer --------- Co-authored-by: Timo Huber <[email protected]>
uzh · Aug 2, 2023 · ea05bb4 · ea05bb4
1 parent 24a7355
commit ea05bb4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 7 deletions.
diff --git a/pool/web/view/layout/layout.ml b/pool/web/view/layout/layout.ml
@@ -26,8 +26,6 @@ module Tenant = struct
       (match tenant.styles with
        | Some _ -> [ `GlobalStylesheet; `TenantStylesheet ]
        | None -> [ `GlobalStylesheet ])
-      |> (fun global ->
-           if user_is_admin user then global @ [ `AdminStylesheet ] else global)
       |> CCList.map css_link_tag
     in
     let scripts =

diff --git a/pool/web/view/layout/layout_utils.ml b/pool/web/view/layout/layout_utils.ml
@@ -3,7 +3,6 @@ open Tyxml.Html
 let assets = function
   | `GlobalStylesheet -> "/assets/index.css"
   | `TenantStylesheet -> "/custom/assets/index.css"
-  | `AdminStylesheet -> "/assets/admin.css"
   | `IndexJs -> "/assets/index.js"
   | `AdminJs -> "/assets/admin.js"
   | `RootFavicon -> "/assets/images/favicon.png"
@@ -29,9 +28,7 @@ let js_script_tag (file : [ `IndexJs | `AdminJs ]) =
   script ~a:[ a_src source_path; a_defer () ] (txt "")
 ;;
 
-let css_link_tag
-  (file : [ `AdminStylesheet | `GlobalStylesheet | `TenantStylesheet ])
-  =
+let css_link_tag (file : [ `GlobalStylesheet | `TenantStylesheet ]) =
   link
     ~rel:[ `Stylesheet ]
     ~href:(Http_utils.externalized_path_with_version (assets file))
@@ -63,7 +60,7 @@ module App = struct
   ;;
 
   let footer title =
-    let version = Version.to_string in
+    let version = Format.asprintf "Z-Pool-Tool %s" Version.to_string in
     let title = span [ txt title ] in
     let content = [ title; span [ txt "|" ]; txt version ] in
     footer