Add colors to source code links.
This commit is contained in:
parent
b13d323e96
commit
85cda46d63
@ -160,7 +160,6 @@ render { logged, active, admin } =
|
|||||||
= HH.div [HP.classes $ C.navbar_item <> C.has_dropdown <> C.is_hoverable]
|
= HH.div [HP.classes $ C.navbar_item <> C.has_dropdown <> C.is_hoverable]
|
||||||
[ dropdown_title title, HH.div [HP.classes C.navbar_dropdown] dropdown_elements ]
|
[ dropdown_title title, HH.div [HP.classes C.navbar_dropdown] dropdown_elements ]
|
||||||
dropdown_title str = HH.a [HP.classes C.navbar_link] [HH.text str]
|
dropdown_title str = HH.a [HP.classes C.navbar_link] [HH.text str]
|
||||||
dropdown_element link str = HH.a [HP.classes C.navbar_item, HP.href link] [HH.text str]
|
|
||||||
dropdown_separator = HH.hr [HP.classes C.navbar_divider]
|
dropdown_separator = HH.hr [HP.classes C.navbar_divider]
|
||||||
|
|
||||||
--nav_button_strong str action = btn C.is_primary action (HH.strong [] [ HH.text str ])
|
--nav_button_strong str action = btn C.is_primary action (HH.strong [] [ HH.text str ])
|
||||||
@ -179,6 +178,10 @@ render { logged, active, admin } =
|
|||||||
, HE.onClick (\_ -> action)
|
, HE.onClick (\_ -> action)
|
||||||
] [ (HH.text str) ]
|
] [ (HH.text str) ]
|
||||||
|
|
||||||
|
dropdown_element classes link str = HH.a [HP.classes (C.navbar_item <> classes), HP.href link] [HH.text str]
|
||||||
|
dropdown_element_primary link str = dropdown_element C.has_background_info_light link str
|
||||||
|
dropdown_element_secondary link str = dropdown_element C.has_background_warning_light link str
|
||||||
|
|
||||||
dropdown_section_primary t
|
dropdown_section_primary t
|
||||||
= HH.p [HP.classes $ C.has_background_info <> C.has_text_light <> C.navbar_item] [HH.text t]
|
= HH.p [HP.classes $ C.has_background_info <> C.has_text_light <> C.navbar_item] [HH.text t]
|
||||||
dropdown_section_secondary t
|
dropdown_section_secondary t
|
||||||
@ -186,13 +189,13 @@ render { logged, active, admin } =
|
|||||||
code_dropdown =
|
code_dropdown =
|
||||||
dropdown "Source code"
|
dropdown "Source code"
|
||||||
[ dropdown_section_primary "Main parts of this service"
|
[ dropdown_section_primary "Main parts of this service"
|
||||||
, dropdown_element "https://git.baguette.netlib.re/Baguette/authd" "authentication daemon"
|
, dropdown_element_primary "https://git.baguette.netlib.re/Baguette/authd" "authentication daemon"
|
||||||
, dropdown_element "https://git.baguette.netlib.re/Baguette/dnsmanager" "dnsmanager daemon"
|
, dropdown_element_primary "https://git.baguette.netlib.re/Baguette/dnsmanager" "dnsmanager daemon"
|
||||||
, dropdown_element "https://git.baguette.netlib.re/Baguette/dnsmanager-webclient" "dnsmanager web client"
|
, dropdown_element_primary "https://git.baguette.netlib.re/Baguette/dnsmanager-webclient" "dnsmanager web client"
|
||||||
, dropdown_separator
|
, dropdown_separator
|
||||||
, dropdown_section_secondary "A few more links (for nerds)"
|
, dropdown_section_secondary "A few more links (for nerds)"
|
||||||
, dropdown_element "https://git.baguette.netlib.re/Baguette/libipc" "libIPC: communication library"
|
, dropdown_element_secondary "https://git.baguette.netlib.re/Baguette/libipc" "libIPC: communication library"
|
||||||
, dropdown_element "https://git.baguette.netlib.re/Baguette/dodb.cr" "DoDB: document-oriented database"
|
, dropdown_element_secondary "https://git.baguette.netlib.re/Baguette/dodb.cr" "DoDB: document-oriented database"
|
||||||
]
|
]
|
||||||
|
|
||||||
--btn c action str
|
--btn c action str
|
||||||
|
Loading…
Reference in New Issue
Block a user