Work in progress

branding/src/main/elm/brandingManagement.html

@@ -12,7 +12,8 @@
    <main></main>
    <script>
      var main = document.querySelector("main");
-     var app  = Elm.Branding.embed(main);
+     const flags = contextPath;
+     var app  = Elm.Branding.embed(main, flags);
      app.ports.check.subscribe(function(word) {
        window.print();
      });

branding/src/main/elm/sources/ApiCall.elm

@@ -0,0 +1,22 @@
+module ApiCall exposing (..)
+import DataTypes exposing (..)
+
+import Http exposing (..)
+import JsonDecoder exposing (..)
+
+getSettings : Model -> Cmd Msg
+getSettings model =
+  let
+    url     = (model.contextPath ++ "/secure/api/branding")
+    headers = []
+    req = request {
+        method          = "GET"
+      , headers         = []
+      , url             = url
+      , body            = emptyBody
+      , expect          = expectJson decodeSettings
+      , timeout         = Nothing
+      , withCredentials = False
+      }
+  in
+    send GetSettings req