65 lines
1.6 KiB
Text
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}
|