Vervis/templates/repo/source.hamlet

$# This file is part of Vervis.
$#
$# Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
$#
$# ♡ Copying is an act of love. Please copy, reuse and share.
$#
$# The author(s) have dedicated all copyright and related and neighboring
$# rights to this software to the public domain worldwide. This software is
$# distributed without any warranty.
$#
$# You should have received a copy of the CC0 Public Domain Dedication along
$# with this software. If not, see
$# <http://creativecommons.org/publicdomain/zero/1.0/>.

$maybe desc <- repoDesc repository
  <p>#{desc}

<p>
  <a href=@{RepoCommitsR user repo}>Commits

<h2>Branches
<ul>
$forall RefName branch <- branches
  <li>
    <a href=@{RepoSourceR user repo (pack branch) []}>#{branch}

<h2>Tags
<ul>
$forall RefName tag <- tags
  <li>
    <a href=@{RepoSourceR user repo (pack tag) []}>#{tag}

<a href=@{RepoSourceR user repo ref []}>#{ref}
<span>::
$forall (piece, piecePath) <- dirs
  <a href=@{RepoSourceR user repo ref piecePath}>#{piece}
  <span>/
<h2>#{title}
$case display
  $of Left source
    ^{source}
  $of Right (rows, mreadme)
    <table>
      <tr>
        <th>Type
        <th>Name
      $forall (type', name) <- rows
        <tr>
          <td>#{type'}
          <td>
            <a href=@{RepoSourceR user repo ref (dir ++ [name])}>
              #{name}
    $maybe (readmeName, readmeWidget) <- mreadme
      <h2>#{readmeName}
      ^{readmeWidget}