Emacs Lisp convert files to Org mode files using pandoc for viewing purposes

pandoc-convert-to-org-for-viewing.el

(defun init-pandoc-convert-to-org-file-and-view (fname)
  "Enables support for viewing files (such as docx or epub files)
via conversions using pandoc (by converting them to org files)"
  (interactive "fEnter name of file to be converted to org file for viewing: ")
  ;; (print (concat "fname: " fname))
  (let* ((base-file-name (file-name-base fname))
         (output-file-name (concat (make-temp-file base-file-name t) "/" base-file-name ".org"))
         (pandoc-conversion-command (concat "pandoc \""
                                            fname
                                            "\" -t org -o \""
                                            output-file-name "\"")))
    ;; (print (concat "base-file-name: " base-file-name))
    ;; (print (concat "output-file-name: " output-file-name))
    ;; (print (concat "pandoc-conversion-command: " pandoc-conversion-command))
    (shell-command pandoc-conversion-command)
    (find-file output-file-name)))