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

Scrif mode

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

12
custom/org-format.el
View file

@ -7,11 +7,17 @@
(while (re-search-forward "'" nil t) (while (re-search-forward "'" nil t)
(replace-match "’")) (replace-match "’"))
(goto-char (region-beginning)) (goto-char (region-beginning))
(while (re-search-forward "\\R\"" nil t) (while (re-search-forward "\n\"" nil t)
(replace-match "\\R“")) (replace-match "\n“"))
(goto-char (region-beginning)) (goto-char (region-beginning))
(while (re-search-forward " \"" nil t) (while (re-search-forward " \"" nil t)
(replace-match " “")) (replace-match " “"))
(goto-char (region-beginning)) (goto-char (region-beginning))
(while (re-search-forward "\"" nil t) (while (re-search-forward "\"" nil t)
(replace-match "”"))) (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 "”/")))

6
init.el
View file

@ -244,6 +244,12 @@
(setq org-noter-property-doc-file "INTERLEAVE_PDF" (setq org-noter-property-doc-file "INTERLEAVE_PDF"
org-noter-property-note-location "INTERLEAVE_PAGE_NOTE")) org-noter-property-note-location "INTERLEAVE_PAGE_NOTE"))
(use-package org-sidebar
:bind ("C-c C-x s" . org-sidebar-tree))
(use-package org-wc
:bind ("C-c C-x w" . org-wc-display))
(unless (iswin) (use-package pdf-tools (unless (iswin) (use-package pdf-tools
;; view pdfs ;; view pdfs
:config :config