summaryrefslogtreecommitdiff
path: root/lisp/org-custom.el
blob: da232012107d574a1645b3a913579f22947852d6 (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
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

;;; Code:

(require 'org)
(defun org-custom-hook()
  "Custom org mode hook."
  (setq org-hide-emphasis-markers t)
  (font-lock-add-keywords 'org-mode
                          '(("^ *\\([-]\\) "
                             (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))

  (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"))
                ((x-family-fonts "Sans Serif")    '(:family "Sans Serif"))
                (nil (warn "Cannot find a Sans Serif Font.  Install Source Sans Pro."))))
         (base-font-color     (face-foreground 'default nil 'default))
         (headline           `(:inherit default :weight normal :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.0))))
     `(org-level-3 ((t (,@headline ,@variable-tuple :height 1.1))))
     `(org-level-2 ((t (,@headline ,@variable-tuple :height 1.3 :weight bold))))
     `(org-level-1 ((t (,@headline ,@variable-tuple :height 1.5 :weight bold))))
     `(org-document-title ((t (,@headline ,@variable-tuple :height 1.3 :weight:bold))))))

  (custom-theme-set-faces
   'user
   '(org-block ((t (:inherit fixed-pitch))))
   '(org-code ((t (:inherit (shadow fixed-pitch)))))
   '(org-document-info ((t (:foreground "dark orange"))))
   '(org-document-info-keyword ((t (:inherit (shadow fixed-pitch)))))
   '(org-indent ((t (:inherit (org-hide fixed-pitch)))))
   '(org-link ((t (:foreground "royal blue" :underline t))))
   '(org-meta-line ((t (:inherit (font-lock-comment-face fixed-pitch)))))
   '(org-property-value ((t (:inherit fixed-pitch))) t)
   '(org-special-keyword ((t (:inherit (font-lock-comment-face fixed-pitch)))))
   '(org-table ((t (:inherit fixed-pitch :foreground "#83a598"))))
   '(org-tag ((t (:inherit (shadow fixed-pitch) :weight bold :height 0.8))))
   '(org-verbatim ((t (:inherit (shadow fixed-pitch))))))

  (variable-pitch-mode 1)

  (use-package org-bullets
    :config
    (org-bullets-mode 1)
    )
  (org-indent-mode 1)
  (visual-line-mode 1)

  ;; (setq org-blank-before-new-entry (quote ((heading . nil)
  ;;                                          (plain-list-item . nil))))

  (require 'flyspell)
  (flyspell-mode 1)
)

(custom-set-variables
   '(org-directory "~/Documents/org")
   '(org-agenda-files (list org-directory)))

(setq org-todo-keywords
	  '((sequence "TODO" "PROGRESS" "VERIFY" "|" "DONE" "ABANDONED")))

(setq org-todo-keyword-faces
	    '(("TODO" . (:foreground "RED"))
        ("PROGRESS" . "royal blue")
        ("VERIFY" . "#E0A526")
        ("ABANDONED" . "light gray")
        ("DONE" . "dark green"))
      )

(add-hook 'org-mode-hook 'org-custom-hook)

(provide 'org-custom)
;;; org-custom.el ends here