Query: hackernews_dashboard_mentions

with data as (
  (
    select
      *
    from
      hackernews_new
    where
      $1 = 'New'
  )
  union
  (
    select
      *
    from
      hackernews_top
    where
      $1 = 'Top'
  )
  union
  (
    select
      *
    from
      hackernews_best
    where
      $1 = 'Best'
  )
),
names as (
  select
    unnest($2 :: text [ ]) as name
),
counts as (
  select
    name,
    (
      select
        count(*)
      from
        data
      where
        title ~* name
        and (
          extract(
            epoch
            from
              now() - time :: timestamptz
          ) / 60
        ) :: int between symmetric $3
        and $4
    ) as mentions
  from
    names
)
select
  replace(
    name,
    '\', '') as name,
  mentions
from
  counts
where
  mentions > 0
order by
  mentions desc