implement hamburger-type nav menumain

1 files changed, 6 insertions, 3 deletions

diff --git a/theme.scm b/theme.scm
index 1c5be1a..e3b4a09 100644
--- a/theme.scm
+++ b/theme.scm
@@ -39,9 +39,12 @@
        (body
         (header (span ,(assq-ref (site-default-metadata site) 'author))
                 (nav (ul (li (a (@ (href "/")) "Home"))
-                         (li (a (@ (href "/now")) "Now"))
-                         (li (a (@ (href "/blog")) "Blog"))
-                         (li (a (@ (href "/games.html")) "Games")))))
+                         (li (details (summary "Pages")
+                                      (ul 
+                                       (li (a (@ (href "/now")) "Now"))
+                                       (li (a (@ (href "/blog")) "Blog"))
+                                       (li (a (@ (href "/games.html")) "Games"))
+                                       ))))))
         (main
          ,body))))))