Add ~article component

src/components/article.lisp

@@ -0,0 +1,21 @@
+(defpackage #:website/components/article
+  (:use #:cl
+        #:hsx)
+  (:import-from #:website/lib/time
+                #:datetime
+                #:jp-datetime)
+  (:export #:~article))
+(in-package #:website/components/article)
+
+(defcomp ~article (&key title content revised-at draft-p)
+  (hsx
+   (<>
+     (and draft-p (hsx (p :class "text-lg text-pink-500" "下書きモード")))
+     (article :class "prose max-w-none"
+       (h1 title)
+       (raw! content)
+       (p :class "text-right"
+         "（最終更新："
+         (|time| :datetime (datetime revised-at)
+                 (jp-datetime revised-at))
+         "）")))))