Bottom navigation
Four destinations
open System
open FSharp.ViewEngine
open Acme.Components.Primitives
open Acme.Components.Application
open type Html
open type Svg
open type Datastar
let bottomNavigationExample =
BottomNavigation.create "example-bottom-navigation" "Primary navigation" [
BottomNavigationItem.create "/components/application" "Home"
BottomNavigationItem.create "/components/collection" "Accounts"
BottomNavigationItem.create "/components/metric" "Reports"
BottomNavigationItem.create "/components/theming" "Settings" ]
|> BottomNavigation.withCurrent "/components/collection"
|> BottomNavigation.render idThree destinations
open System
open FSharp.ViewEngine
open Acme.Components.Primitives
open Acme.Components.Application
open type Html
open type Svg
open type Datastar
let compactBottomNavigationExample =
BottomNavigation.create "compact-bottom-navigation" "Workspace navigation" [
BottomNavigationItem.create "/components/application" "Home"
BottomNavigationItem.create "/components/calendar" "Schedule"
BottomNavigationItem.create "/components/media-library" "Media" ]
|> BottomNavigation.withCurrent "/components/calendar"
|> BottomNavigation.render id