summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2016-08-20 07:00:15 -0400
committerDavid Thompson <dthompson2@worcester.edu>2016-08-20 07:00:15 -0400
commitbb366fd44943cd043f47d46230ed71e47dc84fb6 (patch)
tree8f71c5d6f3ee4e8312952acb31ccdd981a3372d9
parentb66b1dd02b0c2f25944695da4cf37be50a58688e (diff)
Add a comment about media-hackery.
-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)