(defun flash-tags (id swf_path width height 
                   &key (bgcolor "#ffffff") (quality "high") (menu "false") (allowScriptAccess "sameDomain") (align "center") (flashvars "") (base "."))
  "Returns a string containing OBJECT and EMBED tags for a swf."
  ;; TODO: Support different Flash versions.
  (with-html-output (*standard-output*)
    (:div :class "swf"
          (:object :classid "clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"
                   :codebase "http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0"
                   :width width
                   :height height
                   :id id
                   :align align
                   (:param :name "FlashVars" :value flashvars)
                   (:param :name "allowScriptAccess" :value allowScriptAccess)
                   (:param :name "movie" :value swf_path)
                   (:param :name "menu" :value menu)
                   (:param :name "quality" :value quality)
                   (:param :name "bgcolor" :value bgcolor)
                   (:param :name "base" :value base)
                   (:embed :src swf_path
                           :menu menu
                           :flashvars flashvars
                           :quality quality
                           :bgcolor bgcolor
                           :width width
                           :height height
                           :name id
                           :align align
                           :base base
                           :allowScriptAccess allowScriptAccess
                           :type "application/x-shockwave-flash" 
                           :pluginspage "http://www.macromedia.com/go/getflashplayer")))))