summaryrefslogtreecommitdiff
path: root/haunt.scm
diff options
context:
space:
mode:
Diffstat (limited to 'haunt.scm')
-rw-r--r--haunt.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/haunt.scm b/haunt.scm
index fdcd967..bfd5646 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -192,6 +192,8 @@ free culture works available under the " ,%cc-by-sa-link " license.")
(define (highlight-scheme code)
`(pre (code ,(highlights->sxml (highlight lex-scheme code)))))
+;; Markdown doesn't support video, so let's hack around that! Find
+;; <img> tags with a ".webm" source and substitute a <video> tag.
(define (media-hackery . tree)
(sxml-match tree
((img (@ (src ,src) . ,attrs) . ,body)