Update docs generation

nfdi4plants · Jun 8, 2022 · e041f20 · e041f20
1 parent c8965da
commit e041f20
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 5 deletions.
diff --git a/src/generators/index.fsx b/src/generators/index.fsx
@@ -32,7 +32,6 @@ let generate' (ctx : SiteContents) (_: string) =
     let landingPage = docs0 |> Seq.tryFind(fun x -> x.title = "Index")
     match landingPage with
     | Some docs -> 
-        printfn "found!"
         Layout.layout ctx docs.title [
             docs |> Layout.docsLayout
         ]

diff --git a/src/generators/layout.fsx b/src/generators/layout.fsx
@@ -30,12 +30,17 @@ let injectWebsocketCode (webpage:string) =
     let index = webpage.IndexOf head
     webpage.Insert ( (index + head.Length + 1),websocketScript)
 
-let layout (ctx : SiteContents) active bodyCnt =
+let layout (ctx : SiteContents) (activePageTitle: string) bodyCnt =
     let siteInfo = ctx.TryGetValue<Globalloader.SiteInfo> ()
     let ttl =
-      siteInfo
-      |> Option.map (fun si -> si.title)
-      |> Option.defaultValue ""
+        siteInfo
+        |> Option.map (fun si ->
+            if activePageTitle <> "" then
+                si.title + " - " + activePageTitle
+            else
+                si.title
+        )
+        |> Option.defaultValue ""
 
     html [Class "has-navbar-fixed-top"; HtmlProperties.Style [CSSProperties.Custom("scroll-behavior", "smooth")]] [
         head [] [
@@ -132,6 +137,7 @@ let docsLayout (docs: Docsloader.Docs) =
         // Edit this page link
         div [] [
             a [
+                Target "_blank"
                 Href $"https://github.com/nfdi4plants/nfdi4plants.github.io/tree/main/src/{docs.file}"; 
                 HtmlProperties.Style [MarginLeft "auto"; Display "block"; CSSProperties.Width "130px"]
             ] [!! "✏️ Edit this page"]