You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
|
(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 " \\.\\.\\." 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 " \n" nil t)
|
|
|
|
|
|
(replace-match "\n"))
|
|
|
|
|
|
(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 "”/")))
|
