(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 "\n\"" nil t)
    (replace-match "\n“"))
  (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 "“/" nil t)
    (replace-match "/“"))
  (goto-char (region-beginning))
  (while (re-search-forward "/”" nil t)
    (replace-match "”/")))