diff --git a/Foundation.hs b/Foundation.hs index b1df6e2..7a8b9c0 100644 --- a/Foundation.hs +++ b/Foundation.hs @@ -11,6 +11,7 @@ import Settings (widgetFile, Extra (..), GoogleAuth (..)) import Settings.Development (development) import Settings.StaticFiles import qualified System.Random.MWC as MWC +import Text.Blaze import Text.Hamlet (hamletFile) import Text.Jasmine (minifym) import Types @@ -153,6 +154,12 @@ instance Yesod App where maximumContentLength _ (Just UploadHaddockR{}) = Just 100000000 maximumContentLength _ _ = Just 2000000 +instance ToMarkup (Route App) where + toMarkup c = case c of + AllSnapshotsR{} -> "Snapshots" + UploadStackageR{} -> "Upload" + AuthR (LoginR{}) -> "Login" + -- How to run database actions. instance YesodPersist App where type YesodPersistBackend App = SqlBackend diff --git a/Handler/Home.hs b/Handler/Home.hs index 469f4e2..97a5873 100644 --- a/Handler/Home.hs +++ b/Handler/Home.hs @@ -13,8 +13,8 @@ import Yesod.GitRepo (grContent) -- The majority of the code you will write in Yesod lives in these handler -- functions. You can spread them across multiple files if you are so -- inclined, or create a single monolithic file. -getHomeR' :: Handler Html -getHomeR' = contentHelper "Stackage Server" wcHomepage +getHomeR :: Handler Html +getHomeR = contentHelper "Stackage Server" wcHomepage getAuthorsR :: Handler Html getAuthorsR = contentHelper "Library Authors" wcAuthors @@ -27,15 +27,11 @@ contentHelper title accessor = do homepage <- getYesod >>= fmap accessor . liftIO . grContent . websiteContent defaultLayout $ do setTitle title - $(combineStylesheets 'StaticR - [ css_bootstrap_modified_css - , css_bootstrap_responsive_modified_css - ]) toWidget homepage -- FIXME remove this and switch to above getHomeR' when new homepage is ready -getHomeR :: Handler Html -getHomeR = do +getHomeR' :: Handler Html +getHomeR' = do windowsLatest <- linkFor "unstable-ghc78hp-inclusive" restLatest <- linkFor "unstable-ghc78-inclusive" defaultLayout $ do diff --git a/design/logo.svg b/design/logo.svg index c3872c5..2099c1a 100644 --- a/design/logo.svg +++ b/design/logo.svg @@ -597,9 +597,9 @@ borderopacity="1" inkscape:pageopacity="1" inkscape:pageshadow="2" - inkscape:zoom="1.4142136" - inkscape:cx="506.30836" - inkscape:cy="262.58608" + inkscape:zoom="1" + inkscape:cx="86.502676" + inkscape:cy="171.32119" inkscape:document-units="px" inkscape:current-layer="layer1" showgrid="false" @@ -607,7 +607,7 @@ fit-margin-left="0" fit-margin-right="0" fit-margin-bottom="0" - inkscape:window-width="2880" + inkscape:window-width="1440" inkscape:window-height="1760" inkscape:window-x="0" inkscape:window-y="40" @@ -620,7 +620,7 @@ image/svg+xml - + @@ -1093,18 +1093,6 @@ y="126.88701" rx="9" ry="9" /> - S + S diff --git a/static/img/stackage.png b/static/img/stackage.png index 1ad3870..cf84e9b 100644 Binary files a/static/img/stackage.png and b/static/img/stackage.png differ diff --git a/templates/all-snapshots.hamlet b/templates/all-snapshots.hamlet index 94de511..3495ebf 100644 --- a/templates/all-snapshots.hamlet +++ b/templates/all-snapshots.hamlet @@ -1,14 +1,15 @@
-

Snapshots - $forall stackages <- groups - $forall (_, _, uploaded, _, _) <- take 1 stackages -

- #{uploaded} -