forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Remove table headers from repo source dir view

Browse source
This commit is contained in:
fr33domlover 2018-11-01 09:45:48 +00:00
parent 0d3ccb3a38
commit 48d7e86684
2 changed files with 30 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
templates/repo/source-darcs.hamlet
View file

@ -43,21 +43,21 @@ $case sv
^{body}
$of SourceDir (DirectoryView mname ents mreadme)
<h2>#{fromMaybe "Files" mname}
<table>
<tr>
<th>Type
<th>Name
$forall DirEntry type' name <- ents
<tr>
<td>
$case type'
$of TypeBlob
🗎
$of TypeTree
🗀
<td>
<a href=@{RepoSourceR user repo (dir ++ [name])}>
#{name}
$if null ents
<p>No files!
$else
<table>
$forall DirEntry type' name <- ents
<tr>
<td>
$case type'
$of TypeBlob
🗎
$of TypeTree
🗀
<td>
<a href=@{RepoSourceR user repo (dir ++ [name])}>
#{name}
$maybe (readmeName, readmeWidget) <- mreadme
<h2>#{readmeName}
^{readmeWidget}

30
templates/repo/source-git.hamlet
View file

@ -51,21 +51,21 @@ $case sv
^{body}
$of SourceDir (DirectoryView mname ents mreadme)
<h2>#{fromMaybe "Files" mname}
<table>
<tr>
<th>Type
<th>Name
$forall DirEntry type' name <- ents
<tr>
<td>
$case type'
$of TypeBlob
🗎
$of TypeTree
🗀
<td>
<a href=@{RepoSourceR user repo (ref : (dir ++ [name]))}>
#{name}
$if null ents
<p>No files!
$else
<table>
$forall DirEntry type' name <- ents
<tr>
<td>
$case type'
$of TypeBlob
🗎
$of TypeTree
🗀
<td>
<a href=@{RepoSourceR user repo (ref : (dir ++ [name]))}>
#{name}
$maybe (readmeName, readmeWidget) <- mreadme
<h2>#{readmeName}
^{readmeWidget}