post now command
This commit is contained in:
parent
972b73f665
commit
448908c18e
4 changed files with 17 additions and 1 deletions
|
@ -16,6 +16,7 @@ IO::Path:D $.source
|
|||
#| The time to display for the creation of the post
|
||||
has
|
||||
DateTime:D $.posted-at
|
||||
is rw
|
||||
is required
|
||||
is json(
|
||||
:to-json(*.Str),
|
||||
|
|
|
@ -11,7 +11,6 @@ sub show-html($html) is export {
|
|||
$out ~~ s:g/'</i>' \v+ '<span>'/<\/i><span>/;
|
||||
$out ~~ s:g/\v+ '</a>'/<\/a>/;
|
||||
$out ~~ s:g/\s+ ',' \s+ '<span'/, <span/;
|
||||
# TODO: Deal with the nbsps in the header
|
||||
$out
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue