Vervis/templates/cloth/one.hamlet

190 lines
5.1 KiB
Text
Raw Normal View History

$# This file is part of Vervis.
$#
$# Written in 2016, 2018, 2019, 2020, 2022
$# 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/>.
<h2>#{ticketTitle ticket}
<div>
Created on #{showDate $ ticketCreated ticket} by
^{personLinkFedW author}
$maybe originRepo <- moriginRepo
<div>
Origin:
$case originRepo
$of Left (repoHash, name, maybeBranch)
<a href=@{RepoR repoHash}>
^#{keyHashidText repoHash} #{name}
$maybe branch <- maybeBranch
:
<a href=@{RepoBranchSourceR repoHash branch []}>
#{branch}
$of Right (uRepo, maybeName, maybeBranch)
<a href="${uRepo}">
$maybe name <- maybeName
#{name}
$nothing
<i>[unnamed]
$maybe (maybeURI, branch) <- maybeBranch
:
$maybe uri <- maybeURI
<a href="${u}">
#{branch}
$nothing
#{branch}
$with (_repoID, repoHash, name, maybeBranch) <- targetRepo
<div>
Target:
<a href=@{RepoR repoHash}>
^#{keyHashidText repoHash} #{name}
$maybe branch <- maybeBranch
:
<a href=@{RepoBranchSourceR repoHash branch []}>
#{branch}
$maybe (bundleID, patchIDs, errorOrCanApply) <- mbundle'
<div>
Bundle
<a href=@{BundleR loomHash clothHash (hashBundle bundleID)}>
#{keyHashidText $ hashBundle bundleID}
patches, last to first:
<ul>
$forall patchID <- patchIDs
<li>
<a href=@{PatchR loomHash clothHash (hashBundle bundleID) (hashPatch patchID)}>
#{keyHashidText $ hashPatch patchID}
<div>
Status:
$case errorOrCanApply
$of Left e
<span .apply-error>
[Error! #{e}]
^{applyButton "Try applying anyway"}
$of Right False
<span .apply-no>
[Apply check failed! Possibly conflicts exist]
^{applyButton "Try applying anyway"}
$of Right True
<span .apply-yes>
[Can apply!]
^{applyButton "Apply"}
<div>
<span>
<a href=@{ClothFollowersR loomHash clothHash}>
[🐤 Followers]
<span>
<a href=@{ClothDepsR loomHash clothHash}>
[⤴ Dependencies]
<span>
<a href=@{ClothReverseDepsR loomHash clothHash}>
[⤷ Dependants]
<span>
[✋ Claim requests]
<span>
[✏ Edit]
^{followButton}
<div>^{desc}
$# $if ticketStatus ticket /= TSClosed
$# <p>
$# $maybe (assignee, me) <- massignee
$# $if me
$# Assigned to you.
$#
$# ^{buttonW POST "Unclaim this ticket" (ProjectTicketUnclaimR loomHash clothHash)}
$# $else
$# Assigned to ^{sharerLinkW assignee}.
$#
$# ^{buttonW POST "Unassign this ticket" (ProjectTicketUnassignR loomHash clothHash)}
$# $nothing
$# Not assigned.
$#
$# <a href=@{ClaimRequestNewR loomHash clothHash}>Ask to have it assigned to you
$#
$# or
$#
$# ^{buttonW POST "Claim this ticket" (ProjectTicketClaimR loomHash clothHash)}
$#
$# or
$#
$# <a href=@{ProjectTicketAssignR loomHash clothHash}>Assign to someone else
$# .
<p>
Status: #
$case ticketStatus ticket
$of TSNew
Open, new.
$# ^{buttonW POST "Accept this ticket" (ProjectTicketAcceptR loomHash clothHash)}
$# ^{buttonW POST "Close this ticket" (ProjectTicketCloseR loomHash clothHash)}
$of TSTodo
Open, to do.
$# ^{buttonW POST "Close this ticket" (ProjectTicketCloseR loomHash clothHash)}
$of TSClosed
Closed on ___ by ___.
$# ^{buttonW POST "Reopen this ticket" (ProjectTicketOpenR loomHash clothHash)}
<h3>Custom fields
<ul>
$forall TicketTextParam field mvalue <- tparams
<li .#{relevant $ wfsFilter field}>
$# <a href=@{WorkflowFieldR wshr wfl $ wfsIdent field}>
#{wfsName field}
:
$maybe value <- mvalue
#{ttpvVal value}
$nothing
$if wfsRequired field
NO VALUE FOR REQUIRED FIELD
$else
(none)
$forall TicketEnumParam field enum mvalue <- eparams
<li .#{relevant $ wfsFilter field}>
$# <a href=@{WorkflowFieldR wshr wfl $ wfsIdent field}>
#{wfsName field}
:
$maybe value <- mvalue
$# <a href=@{WorkflowEnumCtorsR wshr wfl $ wesIdent enum}>
#{tepvName value}
$nothing
$if wfsRequired field
NO VALUE FOR REQUIRED FIELD
$else
(none)
$forall TicketClassParam field mvalue <- cparams
<li .#{relevant $ wfsFilter field}>
$# <a href=@{WorkflowFieldR wshr wfl $ wfsIdent field}>
#{wfsName field}
:
$maybe _tpcid <- mvalue
Yes
$nothing
No
$# <p>
$# ^{buttonW DELETE "Delete this ticket" (ProjectTicketR loomHash clothHash)}
<h3>Discussion
^{discuss}