feat: text art

doerg/resources/net/deertopia/doerg/tuftesque.css

@@ -438,7 +438,7 @@ label.margin-toggle:not(.sidenote-number) {
     }
 }
 
-.link.external::after
+.org-link.external::after
 { content: "↗"
 ; vertical-align: super
 ; font-size: 1rem
@@ -446,8 +446,8 @@ label.margin-toggle:not(.sidenote-number) {
 }
 
 .center
-{ align-items: "center"
-; justify-content: "center"
+{ align-items: center
+; justify-content: center
 ; display: flex
 ; max-width: 55%
 }

doerg/src/net/deertopia/doerg/render.clj

@@ -103,10 +103,16 @@
               (sp/view #(update % :children seq))
               sp/STAY))
 
+(defn center [& es]
+  [:div.center es])
+
 (defn doerg-attrs [e]
   (->> e :affiliated :attr_doerg (str/join " ")
        (format "{%s}") edn/read-string))
 
+(defn em [x]
+  (format "%.4fem" x))
+
 (defn wrap-if [x c f]
   (if c (f x) x))
 
@@ -337,8 +343,14 @@
   [:span.latex-fragment.display-math
    (-> e ::rendered deref)])
 
-(defmethod org-element "example-block" [{:keys [value]}]
-  [:pre value])
+(defmethod org-element "example-block" [{:keys [value] :as e}]
+  (let [{:keys [center? alt scale img?]} (doerg-attrs e)]
+    (-> [:pre (merge (and img? {:role "img"
+                                :aria-label alt
+                                :title alt})
+                     (and scale {:style {:font-size (em scale)}}))
+         value]
+        (wrap-if center? center))))
 
 (defmethod org-element "src-block" [{:keys [value]}]
   [:pre [:code value]])