Prepare ui to handle content search

modules/webapp/src/main/elm/Comp/FixedDropdown.elm

@@ -9,6 +9,7 @@ module Comp.FixedDropdown exposing
     , update
     , view
     , viewString
+    , viewStyled
     )
 
 import Html exposing (..)
@@ -69,11 +70,12 @@ update msg model =
             ( model, Just item.id )
 
 
-view : Maybe (Item a) -> Model a -> Html (Msg a)
-view selected model =
+viewStyled : String -> Maybe (Item a) -> Model a -> Html (Msg a)
+viewStyled classes selected model =
     div
         [ classList
             [ ( "ui selection dropdown", True )
+            , ( classes, True )
             , ( "open", model.menuOpen )
             ]
         , onClick ToggleMenu
@@ -102,6 +104,11 @@ view selected model =
         ]
 
 
+view : Maybe (Item a) -> Model a -> Html (Msg a)
+view selected model =
+    viewStyled "" selected model
+
+
 viewString : Maybe String -> Model String -> Html (Msg String)
 viewString selected model =
     view (Maybe.map (\s -> Item s s) selected) model

modules/webapp/src/main/elm/Comp/SearchMenu.elm

@@ -504,8 +504,8 @@ update flags settings msg model =
 -- View
 
 
-view : UiSettings -> Model -> Html Msg
-view settings model =
+view : Flags -> UiSettings -> Model -> Html Msg
+view flags settings model =
     let
         formHeader icon headline =
             div [ class "ui small dividing header" ]
@@ -532,7 +532,12 @@ view settings model =
                     ]
                 ]
             ]
-        , div [ class "field" ]
+        , div
+            [ classList
+                [ ( "field", True )
+                , ( "invisible hidden", not flags.config.fullTextSearchEnabled )
+                ]
+            ]
             [ label [] [ text "Content Search" ]
             , input
                 [ type_ "text"