Header link support

blog

@@ -3,6 +3,7 @@ use v6.e.PREVIEW;
 
 use DB;
 use DB::BlogMeta;
+use DB::HeaderLink;
 use DB::Series;
 use DB::MarkdownPost;
 use DB::IdrisPost;
@@ -418,6 +419,30 @@ multi MAIN(
     $db.write: $db-dir;
 }
 
+#| Add a header link
+multi MAIN(
+   "header-link",
+   "add",
+    #| The path of the database directory
+    IO::Path(Str) :$db-dir = $default-db-dir,
+) {
+    my $db = read-db $db-dir;
+    print "Link Text: ";
+    my $text = get;
+    print "Link Location: ";
+    my $link = get;
+    print "Icon: ";
+    my $icon = get;
+
+    my $header-link =
+        HeaderLink.new:
+        text => $text, link => $link, icon => $icon;
+
+    $db.meta.header-links.push: $header-link;
+
+    $db.write: $db-dir;
+}
+
 #| Do a clean build and upload the blog to the remote
 multi MAIN(
     "upload",

db/meta.json

@@ -2,6 +2,11 @@
   "about-id": 2,
   "base-url": "https://www.stranger.systems",
   "header-links": [
+    {
+      "icon": "receipt",
+      "link": "/posts/by-slug/hire-me.html",
+      "text": "Hire Me"
+    }
   ],
   "placeholder-id": 0,
   "tagline": "Making software better by making it weird",

lib/DB/HeaderLink.rakumod

@@ -7,4 +7,6 @@ unit class HeaderLink is json(:pretty);
 
 has Str:D $.link is required is rw;
 
+has Str:D $.text is required is rw;
+
 has Str $.icon is rw;

lib/Render/Head.rakumod

@@ -75,6 +75,6 @@ sub site-header(BlogMeta:D $meta) is export {
             header-link 'Series', '/series.html', 'book';
             header-link 'About', '/about.html', 'info-circle';
             header-link 'Feed', '/atom.xml', 'rss';
-        ];
+        ], $meta.header-links.map(-> $link {header-link $link.text, $link.link, $link.icon});
     ]
 }

resources/main.css

@@ -79,6 +79,7 @@ body, .post, .series {
     font-size: 1.1rem;
     flex-wrap: wrap;
     margin-top: var(--box-margin-vert);
+    justify-content: center;
 }
 .header-links > a > span,
 .post-series-tag > a > span,