post now command

blog

@@ -284,6 +284,21 @@ multi MAIN(
     $db.write: $db-dir;
 }
 
+#| Update the posted-at time on a post to the current time
+multi MAIN(
+   "post",
+   "now",
+    #| The id of the post to update the posted-at time
+    Int $id,
+    #| The path of the database directory
+    IO::Path(Str) :$db-dir = $default-db-dir,
+){
+    my $db = read-db $db-dir;
+    my $post = $db.posts{$id.Int};
+    $post.posted-at = DateTime.now;
+    $db.write: $db-dir;
+}
+
 #| Create a new series
 multi MAIN(
     "series",

lib/DB/Post.rakumod

@@ -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),

lib/Render/Util.rakumod

@@ -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
 }
 

resources/code.css

@@ -6,6 +6,7 @@ code {
 /* Styling for inline code blocks */
 :not(pre) > code {
     padding: 0 0.25rem;
+    border-radius: 0.25rem;
 }
 
 /* Styling for fenced code blocks */