Insert LaTeX Image

(defun tex-screenshot ()
  (interactive)
  (make-directory "images" :parents)
  (setq filename
        (concat
         (make-temp-name
          (concat (file-name-directory buffer-file-name) "images/") ) ".png"))
  (call-process "import" nil nil nil filename)
  (insert (concat "\\begin{figure}[H]\n  \\centering\n  \\includegraphics[width=150mm, scale=1]{images/" (file-name-sans-extension (file-name-nondirectory filename)) "}\n  \\caption{}\n  \\label{fig:}\n\\end{figure}"))
)