tonyg-org-mode-customisation.el

;; Relevant parts of my .emacs for setting up org-mode
;;  - I like the main file to be loaded at startup
;;  - I'm experimenting with having the agenda shown at startup, too
;;     - comment out the lines marked with "%%%" below if you don't like this
;;  - I'm using flashbake for checking in my main org-file using cron,
;;    http://bitbucketlabs.net/flashbake/

; Don't make pesky backup files.
(setq make-backup-files nil)

; Open my org-mode file by default, and make sure the new buffer's
; working directory is home.
(find-file "~/Documents/Flashbake/me.org")
(cd "~")

; Turn of the annoying splash screen!
(setq inhibit-startup-message t)

; We like syntax-highlighting.
(global-font-lock-mode t)

; Org-mode config.
(require 'org-install)
(setq org-directory "~/Documents/Flashbake")
(setq org-agenda-files '("~/Documents/Flashbake"))
(setq org-default-notes-file (concat org-directory "/me.org"))
(setq org-log-done t)
(setq org-blank-before-new-entry nil)
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)

(require 'remember)
(require 'org-remember)
(setq remember-annotation-functions '(org-remember-annotation))
(setq remember-handler-functions '(org-remember-handler))
(add-hook 'remember-mode-hook 'org-remember-apply-template)
(define-key global-map "\C-cr" 'org-remember)

(org-agenda-list) ;; %%%
(org-agenda-follow-mode) ;; %%%

; Time stamps.
(require 'time-stamp)
(defun tonyg-time-stamp ()
  (interactive)
  (move-end-of-line nil)
  (insert "\n** (")
  (insert (time-stamp-string))
  (insert ")\n"))
(defun stamp ()
  (interactive)
  (insert (time-stamp-string)))
(define-key global-map "\C-ct" 'tonyg-time-stamp)