summaryrefslogtreecommitdiff
path: root/init_org-mode.el
blob: 5176abc1242a0a5d18875260d2912b3a770cd1c6 (plain)
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
;; Org-mode bullets use UTF-8 bullets
(require 'org-bullets)
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))

;; Long lines will flow and adjust to window.
(add-hook 'org-mode-hook 'visual-line-mode)
;; Hide characters that make text bold/italic/underlined
(setq org-hide-emphasis-markers t)

;; org-mode fonts
(let* ((variable-tuple
	(cond ;;((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro"))
	      ;;((x-list-fonts "Lucida Grande")   '(:font "Lucida Grande"))
	      ((x-list-fonts "Verdana")         '(:font "Verdana"))
	      (nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro."))))
       (base-font-color     (face-foreground 'default nil 'default))
       (headline           `(:inherit default :weight bold :foreground ,base-font-color)))

  (custom-theme-set-faces
   'user
   `(org-level-8 ((t (,@headline ,@variable-tuple))))
   `(org-level-7 ((t (,@headline ,@variable-tuple))))
   `(org-level-6 ((t (,@headline ,@variable-tuple))))
   `(org-level-5 ((t (,@headline ,@variable-tuple))))
   `(org-level-4 ((t (,@headline ,@variable-tuple :height 1.1))))
   `(org-level-3 ((t (,@headline ,@variable-tuple :height 1.25))))
   `(org-level-2 ((t (,@headline ,@variable-tuple :height 1.5))))
   `(org-level-1 ((t (,@headline ,@variable-tuple :height 1.75))))
   `(org-document-title ((t (,@headline ,@variable-tuple :height 2.0 :underline nil))))))
Copyright 2019--2024 Marius PETER