Mirrors/go-inbucket
1
0
Fork 0
mirror of https://github.com/jhillyerd/inbucket.git synced 2025-12-18 10:07:02 +00:00
Code Issues Releases Wiki Activity

ui: Easy renames and refactors

Browse Source
This commit is contained in:
James Hillyerd
2018-11-18 18:52:14 -08:00
parent 0ed0cd2d64
commit 5be2b57a12
11 changed files with 150 additions and 164 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
ui/src/Views/Page.elm
View File

@@ -89,13 +89,10 @@ navbarLink session page route linkContent =
navbarRecent : Session -> ActivePage -> FrameControls msg -> Html msg
navbarRecent session page controls =
let
recentItemLink mailbox =
a [ Route.href session.key (Route.Mailbox mailbox) ] [ text mailbox ]
active =
page == Mailbox
-- Navbar tab title, is current mailbox when active.
-- Recent tab title is the name of the current mailbox when active.
title =
if active then
controls.recentActive
@@ -103,20 +100,23 @@ navbarRecent session page controls =
else
"Recent Mailboxes"
-- Items to show in recent list, doesn't include active mailbox.
items =
-- Mailboxes to show in recent list, doesn't include active mailbox.
recentMailboxes =
if active then
List.tail controls.recentOptions |> Maybe.withDefault []
else
controls.recentOptions
recentLink mailbox =
a [ Route.href session.key (Route.Mailbox mailbox) ] [ text mailbox ]
in
li
[ id "navbar-recent"
, classList [ ( "navbar-dropdown", True ), ( "navbar-active", active ) ]
]
[ span [] [ text title ]
, div [ class "navbar-dropdown-content" ] (List.map recentItemLink items)
, div [ class "navbar-dropdown-content" ] (List.map recentLink recentMailboxes)
]