(defun groff-compile()
  (interactive)
  (setq filename (buffer-file-name (current-buffer)))

  (setq command (concat "groff -ms " filename " -Tpdf >" filename ".pdf"))
  (shell-command command)

  )

(defun groff-compile-to-ps()
  (interactive)
  (setq filename (buffer-file-name (current-buffer)))

  (setq command (concat "groff -ms  " filename "> " filename ".ps"))
  (shell-command command)

  )

(defun pandoc-compile-to-pdf()
  (interactive)
  (setq filename (buffer-file-name (current-buffer)))

  (setq command (concat "pandoc " filename " -o " filename ".pdf"))
  (shell-command command)

  )


(defun pandoc-compile-to-html()
  (interactive)
  (setq filename (buffer-file-name (current-buffer)))

  (setq command (concat "pandoc " filename " -o " filename ".html"))
  (shell-command command)

  )

(defun pandoc-beamer-compile()
  (interactive)
  (setq filename (buffer-file-name (current-buffer)))

  (setq command (concat "pandoc " filename " -t beamer -o " filename ".pdf"))
  (shell-command command)

  )