;; Default window size
;;
(setq initial-frame-alist  '((top . 1)(left . 10)(width . 120)(height . 45)))
(setq default-frame-alist  '((width . 120)(height . 35)(menu-bar-lines . 1)))
;;
;; Always do fill
;;
(add-hook 'text-mode-hook
	  '(lambda () (visual-line-mode)))
;;
;; bring in remember
;;
;(add-to-list 'load-path "~/elisp/remember-2.0")
;(autoload 'remember "remember" nil t)
;(autoload 'remember-region "remember" nil t)

;;; (define-key global-map [f9] 'remember-region)

;(setq load-path (cons "~/elisp/remember" load-path))

;;
;; org-mode stuff
;;
(setq load-path (cons "~/org-git/org-mode/lisp" load-path))
(setq load-path (cons "~/org-git/org-mode/contrib/lisp" load-path))
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(define-key global-map [f8] 'org-capture)  ; was org-remember
(add-hook 'org-mode-hook 'turn-on-font-lock)  ; org-mode buffers only

(require 'org-install)
(require 'org-checklist)

(setq org-directory "~/org/")
(setq org-default-notes-file "~/org/notes")
(setq org-log-done 'time)

(setq org-todo-keywords (quote (
				(sequence "TODO(t)" "NEXT(n)" "THISWEEK(h)" "STARTED" "|" "DONE(d!/!)")
				(sequence "WAITING(w@/!)" "SOMEDAY(S)" "|" "CANCELLED(c@/!)")
				(sequence "DELEGATED" "|" "DONE(d!/!)")
				)))
(setq org-tag-alist '( ("agfa" . ?a) ("dicom" . ?d) ("home" . ?h) ("ihe" . ?i) ("computer" . ?c)
		       ))
;;
;; ditaa stuff
;; 
 (setq org-ditaa-jar-path "/home/hornrj/org-git/org-mode/contrib/scripts/ditaa.jar")

 (add-hook 'org-babel-after-execute-hook 'org-display-inline-images)

 (setq org-babel-load-languages (quote ((emacs-lisp . t)
                                        (dot . t)
                                        (ditaa . t)
                                        (R . t)
                                        (python . t)
                                        (ruby . t)
                                        (gnuplot . t)
                                        (clojure . t)
                                        (sh . t))))

; Do not prompt to confirm evaluation
; This may be dangerous - make sure you understand the consequences
; of setting this -- see the docstring for details
(setq org-confirm-babel-evaluate nil)


;;
;; Try some interesting colors for tasks
;;
(setq org-todo-keyword-faces (quote (
				     ("TODO"  :foreground "red" :weight bold)
				     ("NEXT" :foreground "steelblue" :weight bold)
				     ("THISWEEK" :foreground "blue" :weight bold)
				     ("DONE"  :foreground "forestgreen" :weight bold)
				     ("STARTED"  :foreground "olivedrab" :weight bold)
				     ("WAITING"  :foreground "sienna" :weight bold)
				     ("DELEGATED"  :foreground "steelblue" :weight bold)
				     ("SOMEDAY"  :foreground "goldenrod" :weight bold)
				     ("CANCELLED"  :foreground "orangred" :weight  shadow)
				     )))

;; We'll try using drawers for the logs 
;;
(setq org-log-into-drawer "LOGBOOK")

(tool-bar-mode 0)			;; disable tool bars (I hope)
;;
;; Custom agenda
;;

(setq org-agenda-custom-commands
      '(("h" "Agenda and This Week tasks"
	 ((agenda "")
	  (todo "THISWEEK")))))
;;
;; Set up refile stuff
;;
(setq org-completion-use-ido t)
; Targets include this file and any file contributing to the agenda - up to 5 levels deep
(setq org-refile-targets (quote ((org-agenda-files :maxlevel . 5) (nil :maxlevel . 5))))

; Targets start with the file name - allows creating level 1 tasks
(setq org-refile-use-outline-path (quote file))

; Targets complete in steps so we start with filename, TAB shows the next level of targets etc
(setq org-outline-path-complete-in-steps t)

; Allow refile to create parent tasks with confirmation
(setq org-refile-allow-creating-parent-nodes (quote confirm))

;;;
;;; Word count
;;;
(defun word-count nil "Count words in buffer" (interactive)
  (shell-command-on-region (point-min) (point-max) "wc -w"))



(custom-set-variables
  ;; custom-set-variables 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.
 '(delete-selection-mode nil)
 '(mark-even-if-inactive t)
 '(org-agenda-files (quote ("~/org/dicom.org" "~/org/pomodoro.org" "~/org/people.org" "~hornrj/org/JOURNAL.org" "~hornrj/org/TODO.org" "~hornrj/org/agfa.org" "~hornrj/org/blog.org" "~hornrj/org/home.org" "~hornrj/org/ihe.org" "~hornrj/org/maynard.org" "~hornrj/org/standards.org" "~hornrj/org/travel.org" "~hornrj/org/refile.org")))
 '(org-agenda-skip-deadline-prewarning-if-scheduled 1)
 '(org-agenda-skip-scheduled-if-deadline-is-shown t)
 '(org-agenda-skip-scheduled-if-done t)
 '(org-capture-templates (quote (("t" "Task" entry (file "~/org/refile.org") "* TODO %?
  %i
  %a") ("j" "Journal entry" entry (file+datetree "~/org/JOURNAL.org") "* %U %?

  %i
  %a") ("i" "IHE Journal" entry (file+datetree "~/org/ihe.org") "* %U %?

  %i
  %a") ("d" "DICOM Journal" entry (file+datetree "~/org/dicom.org") "* %U %?

  %i
  %a") ("n" "Ideas" entry (file+datetree "~/org/idea.org") "* %U %^{Title}
 %?%i
  %a") ("s" "Shopping List item" item (file+headline "~/org/home.org" "RefileSL") "%?"))))
 '(org-deadline-warning-days 7)
 '(org-modules (quote (org-bbdb org-bibtex org-docview org-gnus org-info org-jsinfo org-habit org-irc org-mew org-mhe org-rmail org-vm org-wl org-w3m)))
 '(scroll-bar-mode (quote right))
 '(transient-mark-mode 1))
(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-upcoming-deadline ((((class color) (min-colors 88) (background light)) (:foreground "dark salmon")))))