;; org-config.el, config file for emacs org-mode
;; Time-stamp: <2008-05-16 10:42:58 linw>
;; Tested with emacs 22.1 and org-5.14
;;
;; Wanrong Lin

(setq my-local-extra-loadpath "c:/linw/.emacs-lisp/")
(add-to-list 'load-path (concat my-local-extra-loadpath "org/lisp"))
(add-to-list 'load-path (concat my-local-extra-loadpath "org/CONTRIB/lisp"))

(require 'org-install)

(add-to-list 'auto-mode-alist
             '("\\.org\\'"            . org-mode))

;; TODO keywords
(setq org-todo-keywords '((sequence "TODO(t)" "STARTED(s!)" "WAITING(w@/!)" "MAYBE(m/!)" "DELEGATED(g@/!)" "DEFERRED(d!/!)" "HOLD(h!/!)" "|" "DONE(x)" "CANCELED(c)")))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.

 '(org-level-1  ((t (:weight bold))))                          ;; bold

 ;; normal text
 ;; '(org-level-2  ((t nil)))          ;; normal text
 ;; Use the following complicated format because the above line does not work very well
 ;; with column view (in org-mode 5.12c)
 '(org-level-2  ((((background light)) (:foreground "#000000")) ;; black (with light background)
                 (t (:foreground "#F0F0F0"))))                  ;; white (with dark background)

 '(org-level-3  ((t (:foreground "#800000"))))                 ;; dark red
 '(org-level-4  ((t (:foreground "#0000FF"))))                 ;; blue
 '(org-level-5  ((t (:foreground "#006000"))))                 ;; dark green
 '(org-level-6  ((t (:foreground "#B020A0"))))                 ;; purple
 '(org-level-7  ((t (:foreground "#0060C0"))))                 ;; green blue
 '(org-level-8  ((t (:foreground "#4030C0"))))                 ;; purple blue

 '(org-agenda-structure ((t (:foreground "#0040C0" :weight bold)))) ;; dark green blue
 '(org-agenda-date ((t (:foreground "#800000" :weight bold)))) ;; dark red
 '(org-agenda-date-weekend ((t (:foreground "#006000" :weight bold)))) ;; dark green
 '(org-scheduled-today ((t (:foreground "#0000FF")))) ;; bright blue
 '(org-scheduled-previously ((t (:foreground "#181880")))) ;; dark green blue
 '(org-upcoming-deadline ((t (:foreground "#C00000")))) ;; middle red
 '(org-warning ((t (:foreground "#C00000" :weight bold)))) ;; bold middle red
 '(org-todo ((t (:foreground "#B020A0" :weight bold))))    ;; purple
 '(org-done ((t (:foreground "#008000" :strike-through t :weight bold)))) ;; bold dark green
 ;; <TODO: use "background-color" in "default-frame-alist" instead of hard coding it here>
 `(org-hide ((t (:foreground "white")))) ;; same as background
 '(org-table ((((class color) (min-colors 512)) (:foreground "#181880" :background "#98D0D8"))
              (t (:foreground "#181880"))))   ;; dark green blue
 '(org-drawer ((t (:foreground "#0040C0"))))  ;; dark green blue
 '(org-formula ((t (:foreground "#800000")))) ;; dark red
 '(org-time-grid ((t (:foreground "#B8860B")))) ;; dark golden rod
 ;; '(org-link ((((class color) (background light)) (:foreground "#A020F0" :underline t)))) ;; official purple
 ;; '(org-date ((((class color) (background light)) (:foreground "#A020F0" :underline t)))) ;; official purple
 '(org-link ((t (:foreground "#5050FF" :underline t)))) ;; light blue
 '(org-date ((t (:foreground "#5050FF" :underline t)))) ;; light blue
 '(org-tag ((t (:foreground "#008000" :weight bold))))
 '(org-code ((t (:foreground "#505050"))))            ;; gray
 '(org-special-keyword ((t (:foreground "#205060")))) ;; dark green blue
 '(org-column ((t (:background "gray80" :box (:line-width 1 :color "grey70")))))
 )

;; pale org-todo face
(defface my-org-todo-faded '((t (:inherit org-todo :foreground "#7050B8")))
  "Face for to-do items in a background/faded state.")

(setq org-todo-keyword-faces
      '(
        ("STARTED"    .   (:inherit org-todo :slant italic :underline t))
        ("WAITING"    .   (:inherit org-todo :slant italic :underline t))
        ("DELEGATED"  .   (:inherit org-todo :slant italic :underline t))
        ("DEFERRED"   .   (:inherit my-org-todo-faded))
        ("HOLD"       .   (:inherit my-org-todo-faded))
        ("MAYBE"      .   (:inherit my-org-todo-faded))
        ("CANCELED"   .   (:inherit my-org-todo-faded :strike-through t))))

(defface my-org-ellipsis-face '((t (:underline t :weight bold)))
  "Face folding ellipsis.")
(setq org-ellipsis 'my-org-ellipsis-face)

(setq org-hide-leading-stars t)


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