blob: 9f5c4a0b5f6e0b3125b428f6d34a85d72bf9b6bd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
;;; init-org.el --- configure things related to org-mode -*- lexical-binding: t -*-
;; Author: Franck Cuny <franck@fcuny.net>
;;; Commentary:
;; Configure things related to org-mode
;;; Code:
(use-package org
:hook
(org-mode . turn-on-flyspell)
(org-mode . visual-line-mode)
(org-mode . org-indent-mode)
:custom
;;; general settings
(org-startup-folded t)
(org-startup-indented t)
(org-hide-emphasis-markers t)
(org-hide-leading-stars t)
(org-pretty-entities t)
(org-return-follows-link t)
(org-startup-with-inline-images t)
(org-export-backends '(html md))
(org-imenu-depth 4)
(org-insert-heading-respect-content t)
(org-outline-path-complete-in-steps nil)
(org-src-fontify-natively t)
(org-src-preserve-indentation t)
(org-src-tab-acts-natively t)
(org-src-window-setup 'current-window)
(org-yank-adjusted-subtrees t)
(org-structure-template-alist
'(("s" . "src")
("E" . "src emacs-lisp")
("p" . "src python")
("e" . "example")
("q" . "quote")
("V" . "verbatim")))
:config
(font-lock-add-keywords 'org-mode
'(("^ *\\(-\\) "
(0 (ignore (compose-region (match-beginning 1) (match-end 1) "•")))))))
(use-package org-bullets
:ensure t
:hook (org-mode . org-bullets-mode))
(use-package org-auto-tangle
:ensure t
:hook (org-mode . org-auto-tangle-mode))
(use-package org-babel
:no-require t
:after (org)
:config
(org-babel-do-load-languages
'org-babel-load-languages
'((python . t)
(emacs-lisp . t)
(calc . t)
(shell . t)
(sql . t)
(dot . t)))
(remove-hook 'kill-emacs-hook 'org-babel-remove-temporary-directory)
(advice-add 'org-babel-edit-prep:emacs-lisp :after
#'(lambda (_info) (run-hooks 'emacs-lisp-mode-hook))))
(use-package ox-gfm
:ensure t
:after org)
(use-package ox-md
:after org)
(use-package ox-pandoc
:ensure t
:after org
:preface
(defun markdown-to-org-region (start end)
"Convert region from markdown to org, replacing selection"
(interactive "r")
(shell-command-on-region start end "pandoc -f markdown -t org" t t)))
(provide 'init-org)
;;; init-org.el ends here
|