diff --git a/examples/docs/src/Main.elm b/examples/docs/src/Main.elm index 5baf4137..c9657c29 100644 --- a/examples/docs/src/Main.elm +++ b/examples/docs/src/Main.elm @@ -174,73 +174,6 @@ update msg model = ( { model | showMobileMenu = not model.showMobileMenu }, Cmd.none ) -pageView : - Int - -> Model - -> List ( PagePath Pages.PathKey, GlobalMetadata.Metadata ) - -> { path : PagePath Pages.PathKey, frontmatter : Metadata } - -> ( MarkdownRenderer.TableOfContents, List (Element Msg) ) - -> { title : String, body : Element Msg } -pageView stars model siteMetadata page viewForPage = - case page.frontmatter of - Metadata.Doc metadata -> - { title = metadata.title - , body = - [ Element.row [] - [ DocSidebar.view page.path siteMetadata - |> Element.el [ Element.width (Element.fillPortion 2), Element.alignTop, Element.height Element.fill ] - , Element.column [ Element.width (Element.fillPortion 8), Element.padding 35, Element.spacing 15 ] - [ Palette.heading 1 [ Element.text metadata.title ] - , Element.column [ Element.spacing 20 ] - [ tocView (Tuple.first viewForPage) - , Element.column - [ Element.padding 50 - , Element.spacing 30 - , Element.Region.mainContent - ] - (Tuple.second viewForPage) - ] - ] - ] - ] - |> Element.textColumn - [ Element.width Element.fill - , Element.height Element.fill - ] - } - - _ -> - Debug.todo "" - - -{-| - - - --} -head : PagePath Pages.PathKey -> Metadata -> List (Head.Tag Pages.PathKey) -head currentPath metadata = - case metadata of - Metadata.Doc meta -> - Seo.summary - { canonicalUrlOverride = Nothing - , siteName = "elm-pages" - , image = - { url = images.iconPng - , alt = "elm pages logo" - , dimensions = Nothing - , mimeType = Nothing - } - , locale = Nothing - , description = siteTagline - , title = meta.title - } - |> Seo.website - - _ -> - Debug.todo "" - - canonicalSiteUrl : String canonicalSiteUrl = "https://elm-pages.com"