From 35c6a1b569c46584f4ebc1cc700a33d87072e8c4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Thu, 26 Mar 2026 20:34:39 +0100 Subject: Add back links to selected content headers --- src/Main.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index cc6a5c6..5697bbe 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -138,8 +138,9 @@ setup = do H.ul ! A.id "peer_list" $ return () H.div ! A.id "conversation" ! A.class_ "selected-content" $ do - H.h2 ! A.id "msg_header" $ do - return () + H.h2 $ do + H.span ! A.id "msg_header" $ return () + H.a ! A.href "#" ! A.class_ "back-button" $ "back" H.div ! A.id "msg_list" $ do H.ul $ return () H.form ! A.id "msg_form" ! A.action "javascript:void(0);" $ do @@ -151,6 +152,7 @@ setup = do "Peer: " H.span ! A.id "peer_name_value" $ do return () + H.a ! A.href "#" ! A.class_ "back-button" $ "back" H.div ! A.class_ "content" $ do H.div ! A.id "peer_address" $ do H.span ! A.class_ "label" $ "Address:" @@ -167,6 +169,7 @@ setup = do H.div ! A.id "account_details" ! A.class_ "selected-content" $ do H.h2 $ do "Your account" + H.a ! A.href "#" ! A.class_ "back-button" $ "back" H.div ! A.class_ "content" $ do H.div ! A.class_ "notice" $ do "All data are stored locally in browser storage.\ -- cgit v1.2.3