--- title: WiLiKi で youtube 動画を表示するマクロ author: kazu634 date: 2010-04-25 url: /2010/04/25/_1518/ wordtwit_post_info: - 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:5239;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}' categories: - gauche ---

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

ソース 

;; 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」をご覧ください。