Vervis/templates/repo/source.hamlet

65 lines
1.6 KiB
Text

$# 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}
<div>
<a href=@{RepoSourceR user repo ref []}>#{ref}
:: #
$forall (piece, piecePath) <- dirs
<a href=@{RepoSourceR user repo ref piecePath}>#{piece}
/ #
$case sv
$of FileView name body
<h2>#{name}
^{body}
$of DirectoryView mname rows mreadme
<h2>#{fromMaybe "Files" mname}
<table>
<tr>
<th>Type
<th>Name
$forall (_perm, _oid, name, type') <- rows
<tr>
<td>
$case type'
$of EntObjBlob
[F]
$of EntObjTree
[D]
<td>
<a href=@{RepoSourceR user repo ref (dir ++ [name])}>
#{name}
$maybe (readmeName, readmeWidget) <- mreadme
<h2>#{readmeName}
^{readmeWidget}