1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 00:04:52 +09:00

UI: Some template tweaks in cloth page

This commit is contained in:
fr33domlover 2022-09-27 18:12:05 +00:00
parent 84b70aa7b3
commit b1590ad44d

View file

@ -27,19 +27,19 @@ $maybe originRepo <- moriginRepo
<a href=@{RepoR repoHash}> <a href=@{RepoR repoHash}>
^#{keyHashidText repoHash} #{name} ^#{keyHashidText repoHash} #{name}
$maybe branch <- maybeBranch $maybe branch <- maybeBranch
: : #
<a href=@{RepoBranchSourceR repoHash branch []}> <a href=@{RepoBranchSourceR repoHash branch []}>
#{branch} #{branch}
$of Right (uRepo, maybeName, maybeBranch) $of Right (uRepo, maybeName, maybeBranch)
<a href="${uRepo}"> <a href="#{renderObjURI uRepo}">
$maybe name <- maybeName $maybe name <- maybeName
#{name} #{name}
$nothing $nothing
<i>[unnamed] <i>[unnamed]
$maybe (maybeURI, branch) <- maybeBranch $maybe (maybeURI, branch) <- maybeBranch
: : #
$maybe uri <- maybeURI $maybe uri <- maybeURI
<a href="${u}"> <a href="#{renderObjURI uri}">
#{branch} #{branch}
$nothing $nothing
#{branch} #{branch}