fix: update to correct NeoBrutalismCSS CDN and class names
- Switch CDN to jsdelivr (matches design spec) - Use nb-card, nb-card-title, nb-button default, nb-checkbox, nb-navbar-link - Add Google Fonts import for Lexend Mega - Style all route links as nb-button default buttons - Fix navbar to use nb-navbar-brand and nb-navbar-nav - Update style.css for new NB version compatibility
This commit is contained in:
@@ -17,7 +17,7 @@ import Effectful
|
||||
|
||||
import Sis.Database
|
||||
import Sis.Route
|
||||
import Sis.Style
|
||||
import Sis.Style (nbBoxClass, nbButtonDefaultClass, nbInputClass, nbLabelClass, nbBadgeClass, nbHeadingClass, nbContainerClass, nbListItemClass, colorRed, colorYellow, colorGreen)
|
||||
import Sis.Types
|
||||
import Sis.View.Layout
|
||||
import Web.Hyperbole
|
||||
@@ -52,7 +52,7 @@ instance (DB :> es, IOE :> es) => HyperView ActivityPage es where
|
||||
activityView :: ActivityLogPage -> View ActivityPage ()
|
||||
activityView log = do
|
||||
el @ att "class" nbContainerClass @ att "style" "max-width:960px;margin:0 auto" $ do
|
||||
el @ att "class" nbFontHeading1Class $ text "Activity Log"
|
||||
el @ att "class" nbHeadingClass $ text "Activity Log"
|
||||
if null (alpEntries log)
|
||||
then el @ att "style" "opacity:0.5" $ text "No activity recorded yet."
|
||||
else el @ att "class" nbBoxClass $ mapM_ entryRow (alpEntries log)
|
||||
@@ -60,12 +60,12 @@ activityView log = do
|
||||
then el @ att "style" "margin-top:1rem;display:flex;gap:0.5rem;justify-content:center" $ do
|
||||
let totalPages = (alpTotal log + alpPerPage log - 1) `div` alpPerPage log
|
||||
if alpPage log > 1
|
||||
then button (GoToPage (alpPage log - 1)) @ att "class" nbButtonClass $ text "Previous"
|
||||
then button (GoToPage (alpPage log - 1)) @ att "class" nbButtonDefaultClass $ text "Previous"
|
||||
else none
|
||||
el @ att "style" "align-self:center" $
|
||||
text ("Page " <> T.pack (show (alpPage log)) <> " of " <> T.pack (show totalPages))
|
||||
if alpPage log < totalPages
|
||||
then button (GoToPage (alpPage log + 1)) @ att "class" nbButtonClass $ text "Next"
|
||||
then button (GoToPage (alpPage log + 1)) @ att "class" nbButtonDefaultClass $ text "Next"
|
||||
else none
|
||||
else none
|
||||
|
||||
|
||||
Reference in New Issue
Block a user