Remove unused template files

parent 87b61925
<article .blog-post>
<h1>
#{title}
<br>
<small>
<span .author> by ^{userNameWidget author}
<span .post-time> ^{renderTime $ blogPostTs blog_post}
$if preview == NotPreview
<a href=@{EditBlogPostR project_handle (blogPostHandle blog_post)}>edit
^{content}
<div .text-center>
<a href=@{BlogPostDiscussionR project_handle (blogPostHandle blog_post)}>
discuss this post
<span .badge>
#{comment_count}
.comment
padding: 0 1em
margin: 2em 0
border-bottom-left-radius: 0.8em
font-size: small
.comment
p, ul, ol, h1, h2, h3, h4, h5, h6
margin: 0
figure
text-align: left
h1
font-size: large
margin-bottom: .5em
h2
font-size: medium
blockquote
font-size: 14px
margin: 1em
.comment-date span
color: gray
font-style: italic
.comment-head-item, .comment-action
display: inline-block
margin: 0 3px
.comment-actions
margin-bottom: 0.5em
.comment-action a, .comment-action a:visited
color: gray
margin-right: 1px
.comment-body
font-size: 1.12em
margin: 0.5em 0
.ticket-num
color: gray
.inner-widget
margin-top: 1em
.awaiting-approval
color: green
font-style: italic
.claimed-by
color: gray
.top_level
border-left: solid black 0.2em
margin-bottom: 4em
.even_depth
border-left: solid lightblue 0.2em
.odd_depth
border-left: solid steelblue 0.2em
.small_avatar
width: 2.5em
height: 2.5em
padding: 0em
margin-right: 0.3em
border-radius: 5px
.ticket-title
background-color: #CCDDFF
border-radius: 1em
padding: 0.5em
display: inline-block
max-width: 35em
margin: 0 1em
text-align: center
.closed
color: goldenrod
border-left: solid goldenrod 0.25em
padding-left: 0.5em
.retracted
color: darkred
border-left: solid darkred 0.25em
padding-left: 0.5em
.flagged
border: thin solid darkred
border-left: solid red
padding: .5em
margin: .5em 0
display: table
.flag-reasons
color: darkred
max-width: 41em
.flag-reasons, .flag-markdown
background: whitesmoke
padding: .5em
margin: .5em 0
display: table
.expand
font-style: italic
.preview a
pointer-events: none
<div .h-entry .comment :is_unapproved:.unapproved :is_top_level:.top_level :is_even_depth:.even_depth :is_odd_depth:.odd_depth>
<div .comment-head>
<div .h-card .p-author .comment-head-item>
$if user_id == anonymousUser
<span .p-name>
#{userDisplayName (Entity user_id user)}
$else
<a .u-url .p-name href=@{UserR user_id}>
$maybe author_avatar <- userAvatar user
<img .u-photo .small_avatar src=#{author_avatar}> #
#{userDisplayName (Entity user_id user)}
$if can_establish
<div .comment-head-item>
<a href=@{UserR user_id}>
(establish user)
$with ts <- fromMaybe (commentCreatedTs comment) (commentApprovedTs comment)
<time .dt-modified datetime=#{iso8601 ts} .comment-head-item .comment-date>
^{renderTime ts}
<div .comment-head-item :is_preview:.preview>
|
<div .comment-head-item :is_preview:.preview>
<a .u-url href=@{comment_route_permalink comment_id}>
permalink
$maybe parent_id <- commentParent comment
<div .comment-head-item :is_preview:.preview>
|
<div .comment-head-item :is_preview:.preview>
<a href=@{comment_route_permalink parent_id}>
parent
$if is_private
<i style="color: brown">private comment
$if can_watch
<div .comment-head-item :is_preview:.preview>
|
<div .comment-action :is_preview:.preview>
<a href=@{comment_route_watch comment_id}>
watch
$if can_unwatch
<div .comment-head-item :is_preview:.preview>
|
<div .comment-action :is_preview:.preview>
<a href=@{comment_route_unwatch comment_id}>
unwatch
$maybe PersistInt64 ticket_id <- fmap (toPersistValue . entityKey) mticket
<span .glyphicon .glyphicon-tag>
<span .ticket-num>SD-#{show ticket_id}
$if can_claim && not is_closed
<div :is_preview:.preview .comment-action>
<a href=@{comment_route_claim comment_id}>
claim
$else
$maybe claim <- mclaim
$with claiming_user_id <- ticketClaimingUser claim
$maybe claiming_user <- M.lookup claiming_user_id user_map
<span .claimed-by>
claimed
^{renderTime (ticketClaimingTs claim)}
by
<a href=@{UserR claiming_user_id}>#{userDisplayName $ Entity claiming_user_id claiming_user}#
$maybe note <- ticketClaimingNote claim
: #{note}
$if can_unclaim && not is_closed
<div :is_preview:.preview .comment-action>
<a href=@{comment_route_unclaim comment_id}>
(unclaim)
$if is_unapproved
<div .awaiting-approval>
<span .glyphicon .glyphicon-arrow-right>
awaiting moderator approval
$if can_approve
<a href=@{comment_route_approve comment_id}>
\ (approve)
$forall closure <- earlier_closures
<div .closed>
A comment above was closed at ^{renderTime (commentClosingTs closure)}
#{commentClosingReason closure}
$forall retract <- earlier_retracts
<div .retracted>
A comment above was retracted ^{renderTime (commentRetractingTs retract)}
#{commentRetractingReason retract}
$maybe closure <- mclosure
<div .closed>
$if commentClosingClosedBy closure == user_id
The author
$else
^{userNameWidget $ commentClosingClosedBy closure}
\ closed this comment ^{renderTime (commentClosingTs closure)}
#{commentClosingReason closure}
$maybe retract <- mretract
<div .retracted>
The author retracted this comment ^{renderTime (commentRetractingTs retract)}
#{commentRetractingReason retract}
$maybe (flagging, flag_reasons) <- mflag
<div .flagged>
A user flagged this comment as a violation of the
<a href=@{WikiR "snowdrift" LangEn "conduct"}>
Code of Conduct
due to:
<div .flag-reasons>#{T.intercalate ", " $ map descFlagReason flag_reasons}
$maybe flag_markdown <- commentFlaggingMessage flagging
<div .flag-markdown>
Additional comments:
#{flag_markdown}
<i>Please edit to address these concerns and repost.
<div .e-content .p-name .comment-body>
^{markdownWidgetWith commentTextTransform (commentText comment)}
<div>
$forall tag <- tags
^{tagWidget tag}
<div :is_preview:.preview .comment-actions>
$if can_edit
<div .comment-action>
<a href=@{comment_route_edit comment_id}>
edit
$if can_close
<div .comment-action>
<a href=@{comment_route_close comment_id}>
close
$if can_retract
<div .comment-action>
<a href=@{comment_route_retract comment_id}>
retract
$if can_delete
<div .comment-action>
<a href=@{comment_route_delete comment_id}>
delete
$if can_flag
<div .comment-action>
<a href=@{comment_route_flag comment_id}>
flag
$if can_add_tag
<div .comment-action>
<a href=@{comment_route_add_tag comment_id}>
tag
$if can_rethread
<div .comment-action>
<a href=@{comment_route_rethread comment_id}>
rethread
$if can_reply
<div .comment-action>
<a href=@{comment_route_reply comment_id}>
reply
<div .inner-widget>
^{inner_widget}
$if null tags
no tags to display
$else
<table>
$forall tag <- tags
^{tagWidget tag}
^{markdownWidget (wikiEditContent page)}
<form
method=POST
action=@{EditBlogPostR project_handle blog_post_handle}
enctype=#{enctype}>
^{blog_form}
<input type=submit name=mode value=preview>
<input type=submit name=mode value=post>
<div>
^{renderTime imageTs}
<div>
#{imageName}
<div>
<img src=@{ImageR imageName}>
<h1>Summary of Markdown syntax
<p>
Markdown is a simple text-formatting system.
Below are the basics.
<p>
<em>Note: you can also use standard HTML within Markdown.
<p>
See
<strong>
<a href="http://pandoc.org/README#pandocs-markdown">
Pandoc's Markdown
for more options and details, including
<a href="http://pandoc.org/README#verbatim">verbatim spans</a>,
<a href="http://pandoc.org/README#verbatim-code-blocks">code blocks</a>,
<a href="http://pandoc.org/README#pipe-tables">tables
(note: our site requires the "pipe" table format), and much more.
<p>
<em>Note: most Markdown formatting is nestable
<h2>Basic formatting
<p>
<em>*italic*
<br>
<strong>**bold**
<br>
<strong>
<em>***bold-italic***
<br>
~~<del>deleted/strikethrough</del>~~
<p>
Make paragraphs by separating them with blank lines.
<p>
Add two or more spaces at the end of a
line<span style="background: #ecc">&nbsp;&nbsp;</span>
<br>
for a single line-break.
<h2>Links
<p><strong>[</strong>weblink-text<strong>](</strong>URL<strong>)</strong>
<p>
<em>note:
internal links do not need full URL.
See
<a href="http://snowdrift.coop/p/snowdrift/w/wiki">
about the snowdrift.coop wiki system
for notes about linking between pages on the site.
External links <em>require</em> the http:// part of the URL.
For external cases where the text to show is simply the URL,
you can use: <strong>&lt;</strong>URL<strong>&gt;</strong>
<h2>Images
<p>
<strong>![</strong>alt text<strong>](</strong>image URL
<strong>"</strong>optional title<strong>")</strong>
<br>
example:
<br>
<code>![Ad-free site](http://adfreeblog.org/adfreesite_buttonsm.jpg)
shows
<img src="http://www.adfreeblog.org/adfreesite_buttonsm.jpg">
<p>
<em>
for an image as clickable link,
nest the image markdown as the text part of a weblink
<h2>Headers, lists, and more
<p>
<em>
Lists, headers, and blockquotes must start with a blank line above
<br>
(aside from the very first line).
<h1># h1 header
<h2>## h2 subheader
<h3>### h3 third level (and so on)
<p>
<em>alternate option:
any number of
<code>===
on the line under h1 text
or
<code>---
under h2
<h2>Lists
<ul>
<li>* bulleted lists use any of these symbols:
<strong>* + -
<ul>
<li>* indent four spaces to create sub-levels
<p>
for a new paragraph under a list item, add a blank line,
then indent four extra spaces but use no bullet
<p>
<strong>1.</strong> ordered list
<br>
<strong>2.</strong> after the first number, it auto-calculates.
<br>
<strong>#.
works too
<br>
<strong>a.</strong> can also use letters
<strong>i.</strong> or Roman numerals (which all also auto-calculate)
<br>
<strong>A.</strong>&nbsp;&nbsp;For
<em>capital
letters or Roman numerals, include
<em>two
spaces after the dot or use
<br>
<strong>A)
or
<strong>(A)
format (which also work for lower-case)
<h2>Misc
<blockquote>
> blockquote
<blockquote>
>> use multiple > symbols to make nested levels
<p>
<strong>term
<br>
&nbsp;&nbsp;~&nbsp;description (indent two spaces before ~ or :
and another space before text)
<p>
a horizontal rule is 3 or more hyphens with empty lines above and below:
<br>
<br>
---
<hr>
<p>
*** asterisks also work and are used specifically to indicate
the read-more fold for blog posts
<p>
<strong>\
backslash before characters makes them show normally
if they would otherwise be markdown commands
<h2>Footnotes
<p>
<strong>[^tag]
marks the inline link
<p>
<strong>[^tag]:
marks the footnote itself (and must have a blank line above)
<p>
<em>Footnotes themselves can go anywhere and will be rendered at the end.
<br>
Footnotes can also be in-line with no tag like this:
<strong>^[</strong>Footnote text<strong>]</strong>
<br>
<em>Footnote numbers auto-calculate based on the placement of the links.
<form method=POST enctype=#{enctype}>
^{form}
<input type=submit value="Set Name">
<form method=POST>
^{blog_form}
<input type=submit name=mode value=preview>
<input type=submit name=mode value=post>
$# TODO: We should use type-safe URLs here... just got bit by this...
<form .tagcloud method=post action="./apply">
^{apply_form}
<input type=submit value="apply selected tag(s)">
<hr>
<form method=post action="./create">
^{create_form}
<input type=submit value="create & apply">
$# TODO: as per SD-135, show the actual item being tagged
$# that including current tags would replace this bit
<hr>
Current tags on this item:
$forall tag <- tags
^{tagWidget tag}
$maybe _ <- closedView
<h1 .text-center>#{blogPostTitle blog_post} closed discussion threads
$nothing
<h1 .text-center>#{blogPostTitle blog_post} general discussion
<div .page-toolbox>
<div .page-tool>
<a href=@{BlogPostR project_handle post_name}>back to blog post
<div .page-tool>
<a href=@{PHomeR project_handle}>back to main project page
$maybe _ <- closedView
<div .page-tool>
<a href=@{BlogPostDiscussionR project_handle post_name}>
back to open discussion
$nothing
$if has_comments
<div .page-tool>
<a href=@{NewBlogPostDiscussionR project_handle post_name}>
new top-level comment
<div .page-tool>
<a href=@?{(BlogPostDiscussionR project_handle post_name, [("state", "closed")])}>
closed threads
^{comment_forest}
$if not has_comments && not (isJust closedView)
$maybe _ <- muser
<form action=@{NewBlogPostDiscussionR project_handle post_name} method=POST>
^{comment_form}
<input type=submit name=mode value=preview>
$nothing
<p>
There is no open discussion here right now.
<a href=@{AuthR LoginR}>Log in
to start a new discussion thread.
<div .page-toolbox>
<div .page-tool>
<a href=@{BlogPostDiscussionR project_handle post_name}>
back to full discussion
^{widget}
$maybe _ <- closedView
<h1 .text-center>#{projectName project} closed discussion threads
$nothing
<h1 .text-center>#{projectName project} general discussion
<p>
Note: We have additional discussion boards for project
<a href=@{WikiPagesR $ projectHandle project}>wiki pages
and
<a href=@{ProjectBlogR $ projectHandle project}>blog posts</a>.
Moderators may move comments from this general board to other appropriate
areas.
<div .page-toolbox>
<div .page-tool>
<a href=@{PHomeR project_handle}>back to main project page
$maybe _ <- closedView
<div .page-tool>
<a href=@{ProjectDiscussionR project_handle}>
back to open discussion
$nothing
$if has_comments
<div .page-tool>
<a href=@{NewProjectDiscussionR project_handle}>new top-level comment
<div .page-tool>
<a href=@?{(ProjectDiscussionR project_handle, [("state", "closed")])}>
view closed threads
<div .p-feed>
^{comment_forest}
$if not has_comments && not (isJust closedView)
$maybe _ <- muser
<form action=@{NewProjectDiscussionR project_handle} method=POST>
^{comment_form}
<input type=submit name=mode value=preview>
$nothing
<p>
There is no open discussion here right now.
<a href=@{AuthR LoginR}>Log in
to start a new discussion thread.
<div .page-toolbox>
<div .page-tool>
<a href=@{ProjectDiscussionR project_handle}>back to full discussion
^{widget}
<h1>
<div .text-center>Project sign up
<form method=POST action=@{PSignupFormR}>
^{project_signup_form}
$# XXX: Add preview.
$# <input name=mode type=submit value=preview>
<button>submit
<div .blog-tools>
<div .blog-tool>
<a href=@{ProjectBlogFeedR project_handle}>
<em>RSS feed
$if userIsTeamMember
<div .blog-tool>
<a href=@{NewBlogPostR project_handle}>
<button>new blog post
<h1>#{projectName project} Blog
$if null posts
No blog posts yet.
$forall Entity _ post <- posts
<h2>
<a href=@{BlogPostR project_handle (blogPostHandle post)}>
#{blogPostTitle post}
<br>
<small>
<span .author>by ^{userNameWidget (blogPostUser post)}
<span .post-time>^{renderTime $ blogPostTs post}
$if userIsTeamMember
<a href=@{EditBlogPostR project_handle (blogPostHandle post)}>edit
<div .blog-post-top>
^{markdownWidgetWith (fixLinks project_handle discussion) $ blogPostTopContent post}
$maybe _ <- blogPostBottomContent post
<div .text-center>
<a href=@{BlogPostR project_handle (blogPostHandle post)}#fold>
Continued, read more&hellip;
<hr>
<strong>Contact #{projectName project}
<div .row>
<div .col-md-9 .col-lg-8>
<p>
This form posts
<em>private
comments for the project team.
<p>
If you want a reply, please include some contact info (or
<a href=@{AuthR LoginR}>Log in
so the message will connect to your user account).
<form method=POST>
^{project_contact_form}
<input type=submit value="send">
.event
padding: 5px
max-width: 42em
margin: auto
border-top: thin solid
.feed-watching
text-align: center
font-size: smaller
background: whitesmoke
max-width: 40em
margin: 0 auto 2em
.feed-watching a
white-space: nowrap
.feed-watching form
display: inline
<h1>#{projectName project} activity feed
<div .feed-watching>
$maybe user_id <- muser_id
$if is_watching
You are watching this project.
<a href=@{ProjectNotificationsR user_id project_id}>
Edit notification preferences
<form method=POST action=@{UnwatchProjectR project_id}>
<input type=submit value="unwatch">
$else
Receive selected event notifications:
<form method=POST action=@{WatchProjectR project_id}>
<input type=submit value="watch">
$nothing
<a href=@{AuthR LoginR}>Log in
to set up receiving notifications of various events
$forall (_, event) <- events
$case event
$of ENewPledge shares_pledged_id shares_pledged
^{renderNewPledgeEvent shares_pledged_id shares_pledged user_map}
$of EUpdatedPledge old_shares shares_pledged_id shares_pledged
^{renderUpdatedPledgeEvent old_shares shares_pledged_id shares_pledged user_map}
$of EDeletedPledge ts user_id _ shares
^{renderDeletedPledgeEvent ts user_id shares user_map}
$# Graveyard of event types we don't want to put on the feed.
$# Don't match-all here, we don't want to accidentally not consider something.
$of EUserNotificationSent _ _
$of EProjectNotificationSent _ _
$of EVolunteerApp _ _ _ _
$maybe next_before <- mnext_before
<a href=@?{(ProjectFeedR project_handle, [("before", next_before)])}>next page
<h1 .text-center>Notification preferences for #{projectName project}
<em>Note: email sending requires a verified email address
<br>
<form method=POST action=@{ProjectNotificationsR user_id project_id} enctype=#{enctype}>
^{form}
<button>update
<div .row>
<div .col-sm-3>
Account balance:
<div .col-sm-5>
#{show (accountBalance account)}
$if null transaction_groups
<p> no transactions recorded
$else
<table>
$forall (maybe_payday, transactions) <- transaction_groups
$maybe Entity _ payday <- maybe_payday
<tr>