84 lines
3.2 KiB
Haskell
84 lines
3.2 KiB
Haskell
|
module Web.Controller.MarketplaceDashboard where
|
||
|
|
|
||
|
|
import Web.Types
|
||
|
|
import Web.View.MarketplaceDashboard.Show
|
||
|
|
import Generated.Types
|
||
|
|
import IHP.Prelude
|
||
|
|
import IHP.ControllerPrelude
|
||
|
|
|
||
|
|
instance Controller MarketplaceDashboardController where
|
||
|
|
beforeAction = ensureIsUser
|
||
|
|
|
||
|
|
action MarketplaceDashboardAction = autoRefresh do
|
||
|
|
let mSearch = paramOrNothing @Text "q"
|
||
|
|
let mWType = paramOrNothing @Text "widgetType"
|
||
|
|
let sortBy = paramOrDefault @Text "adopted" "sort"
|
||
|
|
|
||
|
|
-- Widget patterns: full-text search + filter
|
||
|
|
patterns <- sqlQuery (patternQuery mSearch mWType sortBy) ()
|
||
|
|
|
||
|
|
-- Governance templates: full-text search
|
||
|
|
templates <- sqlQuery (templateQuery mSearch) ()
|
||
|
|
|
||
|
|
-- Trending patterns (most adoptions in last 30 days)
|
||
|
|
trending <- sqlQuery
|
||
|
|
"SELECT wp.id, wp.name, wp.widget_type, COUNT(pa.id) AS recent_adoptions \
|
||
|
|
\ FROM widget_patterns wp \
|
||
|
|
\ JOIN pattern_adoptions pa ON pa.widget_pattern_id = wp.id \
|
||
|
|
\ WHERE wp.is_published = TRUE \
|
||
|
|
\ AND pa.adopted_at >= NOW() - INTERVAL '30 days' \
|
||
|
|
\ GROUP BY wp.id, wp.name, wp.widget_type \
|
||
|
|
\ ORDER BY recent_adoptions DESC \
|
||
|
|
\ LIMIT 5"
|
||
|
|
()
|
||
|
|
|
||
|
|
widgetTypeOptions <- sqlQuery
|
||
|
|
"SELECT name, label FROM widget_type_registry WHERE status = 'active' ORDER BY label"
|
||
|
|
()
|
||
|
|
|
||
|
|
render ShowView
|
||
|
|
{ patterns, templates, trending
|
||
|
|
, widgetTypeOptions
|
||
|
|
, searchQuery = mSearch
|
||
|
|
, selectedType = mWType
|
||
|
|
, sortOrder = sortBy
|
||
|
|
}
|
||
|
|
|
||
|
|
-- | Widget pattern list query with optional search and type filter.
|
||
|
|
patternQuery :: Maybe Text -> Maybe Text -> Text -> Query
|
||
|
|
patternQuery mSearch mWType sortBy =
|
||
|
|
let baseWhere = "wp.is_published = TRUE"
|
||
|
|
searchClause = case mSearch of
|
||
|
|
Nothing -> ""
|
||
|
|
Just _ -> " AND to_tsvector('english', wp.name || ' ' || COALESCE(wp.description,'')) \
|
||
|
|
\ @@ plainto_tsquery(?)"
|
||
|
|
typeClause = case mWType of
|
||
|
|
Nothing -> ""
|
||
|
|
Just _ -> " AND wp.widget_type = ?"
|
||
|
|
orderClause = case sortBy of
|
||
|
|
"recent" -> "wp.created_at DESC"
|
||
|
|
"alpha" -> "wp.name ASC"
|
||
|
|
_ -> "adopter_count DESC"
|
||
|
|
in "SELECT wp.*, COUNT(pa.id) AS adopter_count \
|
||
|
|
\ FROM widget_patterns wp \
|
||
|
|
\ LEFT JOIN pattern_adoptions pa ON pa.widget_pattern_id = wp.id \
|
||
|
|
\ WHERE " <> baseWhere <> searchClause <> typeClause <>
|
||
|
|
" GROUP BY wp.id \
|
||
|
|
\ ORDER BY " <> orderClause <>
|
||
|
|
" LIMIT 50"
|
||
|
|
|
||
|
|
-- | Governance template list query with optional search.
|
||
|
|
templateQuery :: Maybe Text -> Query
|
||
|
|
templateQuery mSearch =
|
||
|
|
let searchClause = case mSearch of
|
||
|
|
Nothing -> ""
|
||
|
|
Just _ -> " AND to_tsvector('english', gt.name || ' ' || COALESCE(gt.description,'')) \
|
||
|
|
\ @@ plainto_tsquery(?)"
|
||
|
|
in "SELECT gt.*, COUNT(gtc.id) AS clone_count \
|
||
|
|
\ FROM governance_templates gt \
|
||
|
|
\ LEFT JOIN governance_template_clones gtc ON gtc.governance_template_id = gt.id \
|
||
|
|
\ WHERE gt.is_published = TRUE" <> searchClause <>
|
||
|
|
" GROUP BY gt.id \
|
||
|
|
\ ORDER BY clone_count DESC \
|
||
|
|
\ LIMIT 50"
|