diff --git a/src/Vervis/Handler/Home.hs b/src/Vervis/Handler/Home.hs index d81282b..73f901f 100644 --- a/src/Vervis/Handler/Home.hs +++ b/src/Vervis/Handler/Home.hs @@ -83,12 +83,18 @@ intro = do personalOverview :: Entity Person -> Handler Html personalOverview (Entity _pid person) = do - (ident, projects) <- runDB $ do + (ident, projects, repos) <- runDB $ do let sid = personIdent person sharer <- get404 sid - projs <- selectList [ProjectSharer ==. sid] [Asc ProjectIdent] - let pi (Entity _ proj) = projectIdent proj - return (sharerIdent sharer, map pi projs) + prjs <- + map (projectIdent . entityVal) <$> + selectList [ProjectSharer ==. sid] [Asc ProjectIdent] + rps <- + map (repoIdent . entityVal) <$> + selectList + [RepoSharer ==. sid, RepoProject ==. Nothing] + [Asc RepoIdent] + return (sharerIdent sharer, prjs, rps) defaultLayout $ do setTitle "Vervis > Overview" $(widgetFile "personal-overview") diff --git a/templates/key/new.hamlet b/templates/key/new.hamlet index aa3ac67..ca17971 100644 --- a/templates/key/new.hamlet +++ b/templates/key/new.hamlet @@ -1,6 +1,6 @@ $# This file is part of Vervis. $# -$# Written in 2016 by fr33domlover . +$# Written in 2016, 2019 by fr33domlover . $# $# ♡ Copying is an act of love. Please copy, reuse and share. $# diff --git a/templates/personal-overview.hamlet b/templates/personal-overview.hamlet index 645590a..8b25fe7 100644 --- a/templates/personal-overview.hamlet +++ b/templates/personal-overview.hamlet @@ -27,6 +27,15 @@ $# .
  • Create new… +
  • +

    Standalone repos: +