forge/Vervis
1
0
Fork 0
Code Pull requests Activity

UI: Browse: List project's enabled children

Browse source
This commit is contained in:
Pere Lev 2024-04-10 17:27:19 +03:00
parent 24aba4d370
commit 0b08a7692a
No known key found for this signature in database
GPG key ID: 5252C5C863E5E57D
2 changed files with 36 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/Vervis/Handler/Client.hs
View file

@ -409,7 +409,28 @@ getBrowseR = do
return (inztance, remoteObject, remoteActor) return (inztance, remoteObject, remoteActor)
) )
byKeyOrRaid byKeyOrRaid
return (j, jactor, cs') children <- E.select $ E.from $ \ (deleg `E.InnerJoin` holder) -> do
E.on $ deleg E.^. SourceUsSendDelegatorSource E.==. holder E.^. SourceHolderProjectSource
E.where_ $ holder E.^. SourceHolderProjectProject E.==. E.val projectID
return $ holder E.^. SourceHolderProjectSource
children' <- for children $ \ (E.Value sourceID) -> do
byKeyOrRaid <- bimap snd snd <$> getSourceTopic sourceID
bitraverse
(\case
Right _g -> error "I'm a project and I have a parent who is a local Group"
Left j -> do
actorID <- projectActor <$> getJust j
actor <- getJust actorID
return (j, actor)
)
(\ remoteActorID -> do
remoteActor <- getJust remoteActorID
remoteObject <- getJust $ remoteActorIdent remoteActor
inztance <- getJust $ remoteObjectInstance remoteObject
return (inztance, remoteObject, remoteActor)
)
byKeyOrRaid
return (j, jactor, cs', children')
) )
{- {-
now <- liftIO getCurrentTime now <- liftIO getCurrentTime

19
templates/browse.hamlet
View file

@ -1,6 +1,6 @@
$# This file is part of Vervis. $# This file is part of Vervis.
$# $#
$# Written in 2016, 2018, 2019, 2022, 2023 $# Written in 2016, 2018, 2019, 2022, 2023, 2024
$# by fr33domlover <fr33domlover@riseup.net>. $# by fr33domlover <fr33domlover@riseup.net>.
$# $#
$# ♡ Copying is an act of love. Please copy, reuse and share. $# ♡ Copying is an act of love. Please copy, reuse and share.
@ -101,11 +101,20 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
<h2>Projects <h2>Projects
<ul> <ul>
$forall (Entity projectID _, Entity _ actor, components) <- projects $forall (Entity projectID _, Entity _ actor, components, children) <- projects
<li> <li>
<a href=@{ProjectR $ hashProject projectID}> <a href=@{ProjectR $ hashProject projectID}>
\$#{keyHashidText $ hashProject projectID} #{actorName actor} \$#{keyHashidText $ hashProject projectID} #{actorName actor}
<ul> <ul>
$forall c <- components $if not $ null components
<li> <li>Components
^{componentLinkFedW c} <ul>
$forall c <- components
<li>
^{componentLinkFedW c}
$if not $ null children
<li>Children
<ul>
$forall c <- children
<li>
^{projectLinkFedW c}