(defun org-format ()
  (interactive)
  (goto-char (region-beginning))
  (while (re-search-forward " -" nil t)
    (replace-match " –"))
  (goto-char (region-beginning))
  (while (re-search-forward "'" nil t)
    (replace-match "’"))
  (goto-char (region-beginning))
  (while (re-search-forward "\\R\"" nil t)
    (replace-match "\\R“"))
  (goto-char (region-beginning))
  (while (re-search-forward " \"" nil t)
    (replace-match " “"))
  (goto-char (region-beginning))
  (while (re-search-forward "\"" nil t)
    (replace-match "”")))