update twitter shortcode to use x api

Author: robherley

assets/css/custom.css

@@ -3,7 +3,8 @@ img {
 }
 
 .twitter-tweet > iframe {
-  border-radius: 13px;
+  border-radius: 0.75rem;
+  border: 0.5px solid var(--color-gray-10);
 }
 
 .counter {

config.toml

@@ -44,3 +44,7 @@ weight = 2
 
 [outputs]
   home = ["HTML", "JSON"]
+
+[privacy]
+  [privacy.x]
+    enableDNT = true

content/posts/09-snips-retro.md

@@ -12,7 +12,7 @@ images:
   - /content/snips-retro/preview.png
 ---
 
-{{< tweet "1657139515557920770" >}}
+{{< xweet user="robherley" id="1657139515557920770" >}}
 
 ## What the snip?
 
@@ -89,9 +89,9 @@ While it's nice to keep things as simple as can be, like anything with software
 
 As it turns out, people like easy to use software:
 
-{{< tweet "1657456167524917248" >}}
+{{< xweet user="ArnabSen1729" id="1657456167524917248" >}}
 
-{{< tweet "1657477244158189570" >}}
+{{< xweet user="silasmorkgard" id="1657477244158189570" >}}
 
 ## The technology
 

layouts/shortcodes/tweet.html

@@ -0,0 +1,29 @@
+{{- $pc := site.Config.Privacy.X -}}
+{{- if not $pc.Disable -}}
+  {{- if $pc.Simple -}}
+    {{- template "_shortcodes/x_simple.html" . -}}
+  {{- else -}}
+    {{- $id := or (.Get "id") "" -}}
+    {{- $user := or (.Get "user") "" -}}
+    {{- if and $id $user -}}
+      {{- template "render-x" (dict "id" $id "user" $user "dnt" $pc.EnableDNT "ctx" .) -}}
+    {{- else -}}
+      {{- errorf "The %q shortcode requires two named parameters: user and id. See %s" .Name .Position -}}
+    {{- end -}}
+  {{- end -}}
+{{- end -}}
+
+{{- define "render-x" -}}
+  {{- $url := printf "https://x.com/%v/status/%v" .user .id -}}
+  {{- $query := querify "url" $url "dnt" .dnt "theme" "dark" "align" "center" -}}
+  {{- $request := printf "https://publish.x.com/oembed?%s" $query -}}
+  {{- with try (resources.GetRemote $request) -}}
+    {{- with .Err -}}
+      {{- warnidf "shortcode-x-getremote" "The %q shortcode was unable to retrieve the remote data: %s. See %s" $.ctx.Name . $.ctx.Position -}}
+    {{- else with .Value -}}
+      {{- (. | transform.Unmarshal).html | safeHTML -}}
+    {{- else -}}
+      {{- warnidf "shortcode-x-getremote" "The %q shortcode was unable to retrieve the remote data. See %s" $.ctx.Name $.ctx.Position -}}
+    {{- end -}}
+  {{- end -}}
+{{- end -}}