diff --git a/Theme.hs b/Theme.hs
--- a/Theme.hs
+++ b/Theme.hs
@@ -15,9 +15,9 @@
theme :: Theme
theme = Theme
- { themeName = "bootstrap-theme"
- , _themeTemplate = pageTemplate
- , themeDataDir = getDataDir
+ { themeName = "bootstrap-theme"
+ , themeStyles = [defaultStyle]
+ , themeDataDir = getDataDir
}
genNavBar :: GenXML (Clck ClckURL)
@@ -44,14 +44,14 @@
mkNavBarItem (NBLink (NamedLink ttl lnk)) =
<% ttl %>
-pageTemplate :: ( EmbedAsChild (ClckT ClckURL (ServerPartT IO)) headers
+defaultTemplate :: ( EmbedAsChild (ClckT ClckURL (ServerPartT IO)) headers
, EmbedAsChild (ClckT ClckURL (ServerPartT IO)) body
) =>
T.Text
-> headers
-> body
-> XMLGenT (ClckT ClckURL (ServerPartT IO)) XML
-pageTemplate ttl hdr bdy =
+defaultTemplate ttl hdr bdy =
<% ttl %>
@@ -83,3 +83,11 @@
+
+defaultStyle :: ThemeStyle
+defaultStyle = ThemeStyle
+ { themeStyleName = "default"
+ , themeStyleDescription = "default view"
+ , themeStylePreview = Nothing
+ , themeStyleTemplate = defaultTemplate
+ }
diff --git a/clckwrks-theme-bootstrap.cabal b/clckwrks-theme-bootstrap.cabal
--- a/clckwrks-theme-bootstrap.cabal
+++ b/clckwrks-theme-bootstrap.cabal
@@ -1,5 +1,5 @@
name: clckwrks-theme-bootstrap
-version: 0.2.14
+version: 0.3.0
synopsis: simple bootstrap based template for clckwrks
homepage: http://www.clckwrks.com/
license: BSD3
@@ -31,6 +31,6 @@
exposed-modules: Theme
Paths_clckwrks_theme_bootstrap
build-depends: base > 4 && <5,
- clckwrks >= 0.18 && < 0.21,
+ clckwrks >= 0.21 && < 0.22,
hsp >= 0.9 && < 0.11,
text == 0.11.*