作成しました。簡単にできちゃった。

ソース

;; youtube module
;; [[$$youtube id]]
(select-module wiliki.macro)
(use wiliki)
(use wiliki.macro)
(define-reader-macro (youtube id)
`((center
(object
(@
(width "660")
(height "525"))
(param
(@
(name "movie")
(value
,(string-append
"http://www.youtube.com/v/"
id
"&hl=ja_JP&fs=1&rel=0&border=1"))))
(param
(@
(name "allowFullScreen")
(value "true")))
(param
(@
(name "allowscriptaccess")
(value "always")))
(embed
(@
(src
,(string-append
"http://www.youtube.com/v/"
id
"&hl=ja_JP&fs=1&rel=0&border=1"))
(type "application/x-shockwave-flash")
(allowscriptaccess "always")
(allowfullscreen "true")
(width "660")
(height "525")))))))

実行例

no title」をご覧ください。