emacs functions for youtube wrapping

(define-skeleton kjs/youtube-embed
  "Wraps a youtube code with an embed iframe."
  ""
  "<iframe width=\"560\" height=\"315\" src=\"https://www.youtube.com/embed/" _ "\" frameborder=\"0\" allowfullscreen></iframe>" )

(defun kjs/youtube-convert ()
  (interactive)
  (re-search-forward "^http.://.*youtube.*v=")
  (let (p1 p2 myLine code)
         (setq p1 (line-beginning-position) )
         (setq p2 (line-end-position) )
         (setq myLine (buffer-substring-no-properties p1 p2))
         (setq code (replace-regexp-in-string ".*v=" "" myLine))
         (forward-line 2)
         (kjs/youtube-embed)
         (insert code)
         (beginning-of-line)))