tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add org format function

Browse source
This commit is contained in:
trémeur 2022-07-02 21:15:51 +01:00
parent 21f49b4738
commit 09ed893f1f
3 changed files with 18 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
agenda-common.el
View file

@ -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)

17
custom/org-format.el Normal file
View file

@ -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 "”")))

2
init.el
View file

@ -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