Org mode caption export filter

*Org Src gtk.el

(defun my-org-beamer-caption (contents backend info)
  "Org export filter to allow use of #+CAPTION: keywords in
   beamer org export, by removing floats using the \\captionof*
   macro. Requires use of the caption package "
  (when (eq backend 'beamer)
    (replace-regexp-in-string
     "\\\\caption\{" "\\\\captionof*{figure}{"
     (replace-regexp-in-string
      "\\\\end\{figure\}"   "%"
      (replace-regexp-in-string "\\\\begin\{figure\}" "%" contents)))))




(add-to-list 'org-export-filter-final-output-functions 'my-org-beamer-caption)