Add org format function

agenda-common.el

@@ -1,4 +1,5 @@
 (setq org-agenda-show-current-time-in-grid nil)
+(setq org-extend-today-until 3)
 (setq org-agenda-skip-scheduled-if-done t)
 (setq org-agenda-skip-deadline-if-done t)
 (setq org-agenda-skip-timestamp-if-done t)

custom/org-format.el

@@ -0,0 +1,17 @@
+(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 "”")))

init.el

@@ -284,8 +284,6 @@
 (setq org-startup-with-inline-images "inlineimages")
 (setq org-image-actual-width '(300))
 
-(setq org-extend-today-until 3)
-
 (load-file "~/.emacs.d/agenda-common.el")
 ;; for agenda things used in both emacs and batch