diff --git a/src/App/Page/Navigation.purs b/src/App/Page/Navigation.purs
index 20da4aa..45363ed 100644
--- a/src/App/Page/Navigation.purs
+++ b/src/App/Page/Navigation.purs
@@ -179,14 +179,20 @@ render { logged, active, admin } =
          , HE.onClick (\_ -> action)
          ] [ (HH.text str) ]
 
+  dropdown_section_primary t
+    = HH.p [HP.classes $ C.has_background_info <> C.has_text_light <> C.navbar_item] [HH.text t]
+  dropdown_section_secondary t
+    = HH.p [HP.classes $ C.has_background_warning <> C.navbar_item] [HH.text t]
   code_dropdown =
     dropdown "Source code"
-      [ dropdown_element "https://git.baguette.netlib.re/Baguette/authd" "authentication daemon"
-      , dropdown_element "https://git.baguette.netlib.re/Baguette/dnsmanager" "dnsmanager server"
+      [ dropdown_section_primary "Main parts of this service"
+      , dropdown_element "https://git.baguette.netlib.re/Baguette/authd" "authentication daemon"
+      , dropdown_element "https://git.baguette.netlib.re/Baguette/dnsmanager" "dnsmanager daemon"
+      , dropdown_element "https://git.baguette.netlib.re/Baguette/dnsmanager-webclient" "dnsmanager web client"
       , dropdown_separator
-      , dropdown_element
-          "https://git.baguette.netlib.re/karchnu/halogen-websocket-ipc-playzone/src/branch/dev"
-          "(temporary repo) dnsmanager website"
+      , dropdown_section_secondary "A few more links (for nerds)"
+      , dropdown_element "https://git.baguette.netlib.re/Baguette/libipc" "libIPC: communication library"
+      , dropdown_element "https://git.baguette.netlib.re/Baguette/dodb.cr" "DoDB: document-oriented database"
       ]
 
   --btn c action str
diff --git a/src/CSSClasses.purs b/src/CSSClasses.purs
index 0564690..98176ba 100644
--- a/src/CSSClasses.purs
+++ b/src/CSSClasses.purs
@@ -35,6 +35,7 @@ has_background_danger        = [HH.ClassName "has-background-danger"]        ::
 has_background_danger_light  = [HH.ClassName "has-background-danger-light"]  :: Array HH.ClassName
 has_background_dark          = [HH.ClassName "has-background-dark"]          :: Array HH.ClassName
 has_background_info_dark     = [HH.ClassName "has-background-info-dark"]     :: Array HH.ClassName
+has_background_info          = [HH.ClassName "has-background-info"]          :: Array HH.ClassName
 has_background_info_light    = [HH.ClassName "has-background-info-light"]    :: Array HH.ClassName
 has_background_link_dark     = [HH.ClassName "has-background-link-dark"]     :: Array HH.ClassName
 has_background_link_light    = [HH.ClassName "has-background-link-light"]    :: Array HH.ClassName