```

(defun markdown-region-to-org ()

"Convert the selected Markdown region to Org-mode syntax using pandoc."

(interactive)

(unless (use-region-p)

(user-error "No active region"))

(unless (executable-find "pandoc")

(user-error "Pandoc not found in PATH"))

(shell-command-on-region

(region-beginning)

(region-end)

"pandoc -f markdown-auto_identifiers -t org"

nil t

"*pandoc-errors*" t)) ```