Add placeholders for empty definitions #277

nfdi4plants · Mar 10, 2023 · 1ad927f · 1ad927f
1 parent ff2cd16
commit 1ad927f
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 13 deletions.
diff --git a/src/Client/Modals/BuildingBlockDetailsModal.fs b/src/Client/Modals/BuildingBlockDetailsModal.fs
@@ -52,15 +52,18 @@ let private rowIndicesToReadable (rowIndices:int []) =
         $"{rowIndices.[0]}"
 
 let private infoIcon (txt:string) =
-    span [
-        Style [Color NFDIColors.Yellow.Base; (*OverflowY OverflowOptions.Visible*)]
-        Class ("has-tooltip-right has-tooltip-multiline")
-        Props.Custom ("data-tooltip", txt)
-    ] [
-        Fa.i [
-            Fa.Solid.InfoCircle
-        ] []
-    ]
+    if txt = "" then
+        str "No defintion found"
+    else
+        span [
+            Style [Color NFDIColors.Yellow.Base; (*OverflowY OverflowOptions.Visible*)]
+            Class ("has-tooltip-right has-tooltip-multiline")
+            Props.Custom ("data-tooltip", txt)
+        ] [
+            Fa.i [
+                Fa.Solid.InfoCircle
+            ] []
+        ]
 
 [<Literal>]
 let private userSpecificTermMsg = "This Term was not found in the database."

diff --git a/src/Client/Pages/BuildingBlock/SearchComponent.fs b/src/Client/Pages/BuildingBlock/SearchComponent.fs
@@ -290,7 +290,7 @@ module private AutocompleteComponents =
                         prop.children [
                             Bulma.content [
                                 Html.b "Definition: "
-                                Html.p term.Description
+                                Html.p (if term.Description = "" then "No definition found" else term.Description)
                             ]
                         ]
                     ]

diff --git a/src/Client/SidebarComponents/AutocompleteSearch.fs b/src/Client/SidebarComponents/AutocompleteSearch.fs
@@ -225,7 +225,7 @@ let createAutocompleteSuggestions
                         td [ColSpan 4] [
                             Content.content [] [
                                 b [] [ str "Definition: " ]
-                                str sugg.TooltipText
+                                str (if sugg.TooltipText = "" then "No definition found" else sugg.TooltipText)
                             ]
                         ]
                     ]

diff --git a/src/Client/Update.fs b/src/Client/Update.fs
@@ -768,9 +768,9 @@ let update (msg : Msg) (model : Model) : Model * Cmd<Msg> =
 
     let logg (msg:Msg) (model: Model) : Model =
         if matchMsgToLog msg then
-
+            let l = 62
             let txt = $"{msg.ToString()}"
-            let txt = if txt.Length > 62 then txt.Substring(0, 62) +  ".." else txt
+            let txt = if txt.Length > l then txt.Substring(0, l) +  ".." else txt
             let nextState = {
                 model.DevState with
                     Log = (LogItem.ofStringNow "Info" txt)::model.DevState.Log