+(define (scrubl-sxml-pre scrubl args)
+ `(span (@ (class "pre-ish"))
+ ,args))
+
+;; @@: For a text-only interface, we could put links at end of rendered
+;; text, similar to how orgmode does.
+(define (scrubl-sxml-anchor scrubl args)
+ (define (maybe-uri->string obj)
+ (if (uri? obj)
+ (uri->string obj)
+ obj))
+ (match args
+ (((= maybe-uri->string href) body1 body ...)
+ `(a (@ (href ,href))
+ ,body1 ,@body))))
+