[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] Re: org-mode not loading properly on startup

From: Paul Mead
Subject: [Orgmode] Re: org-mode not loading properly on startup
Date: Fri, 30 Jan 2009 19:05:56 +0000
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.3 (windows-nt)

Carsten Dominik <address@hidden> writes:

> I don't have enough to work on here.
> Any other ideas anyone?  Maybe more windows people to test this?
> Maybe Paul needs to share his full setup, or try to minimize it while  keeping
> the error?
> - Carsten

All my org-mode customizations are in one file:

;; pdm-org.el
;; setup and customization of org-mode
(require 'org-export-latex)

;; The following lines are always needed. Choose your own keys.
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)

; hooks
(add-hook 'org-mode-hook 'turn-on-font-lock)
(add-hook 'org-mode-hook 'turn-on-auto-fill) ; turn on auto-fill for files in 
;(add-hook 'org-mode-hook 'longlines-mode) ; turn on longlines mode for files 
in org-mode
(add-hook 'org-mode-hook (lambda ()
                           (local-set-key "\M-n" 'outline-forward-same-level)
                           (local-set-key "\M-p" 'outline-backward-same-level)

;(setq org-refile-targets '((org-agenda-files . (:maxlevel . 2))))
(setq org-refile-targets '((org-agenda-files :maxlevel . 3)))
(setq org-hide-leading-stars t)
(setq org-odd-levels-only t) ; must use 2 stars to separate heading levels

;; Tag settings
(setq org-tag-alist '(("ANYWHERE" . ?a) ("COMPUTER" . ?c) (" HOME" . ?h) 
("OFFICE" . ?o) ("PHONE" . ?t) ("ERRANDS" . ?e) ("ONLINE" . ?w))) ;; setup 
default 'context' tags
(setq org-tags-exclude-from-inheritance '("project"))
(setq org-tags-column 100)
(setq org-enforce-todo-dependencies t)

;; TODO settings
(setq org-log-done t) ;; turn on logging of times when TODO is marked DONE
(setq org-todo-keywords
      '((sequence "TODO(t@/!)" "PENDING(p/!)" "STARTED(s!)" "WAITING(w@/!)" 
"CHASE(address@hidden)" "|" "DONE(d@/!)" "CANCELLED(x@/!)")))
(setq org-use-fast-todo-selection t)

;; Agenda settings
(setq org-agenda-include-diary t)
(setq org-agenda-ndays 7)
(setq org-agenda-start-on-weekday nil)
(setq org-agenda-align-tags-to-column 100)
(setq org-agenda-todo-ignore-scheduled t)
(setq org-agenda-todo-ignore-deadlines t)
(setq org-enforce-todo-dependencies t)
(setq org-agenda-dim-blocked-tasks t)
(setq org-agenda-skip-deadline-if-done t)
(setq org-agenda-skip-scheduled-if-done t)
(setq org-agenda-skip-timestamp-if-done t)

(setq org-agenda-custom-commands
      '(("g" . "GTD contexts")
        ("go" "Office" tags-todo "office")
        ("gc" "Computer" tags-todo "computer")
        ("gp" "Phone" tags-todo "phone")
        ("gh" "Home" tags-todo "home")
        ("ge" "Errands" tags-todo "errands")
        ("G" "GTD Block Agenda"
         ((tags-todo "office")
          (tags-todo "computer")
          (tags-todo "phone")
          (tags-todo "online")
          (tags-todo "home")
          (tags-todo "errands")))
        ("O" "In the office"
         ((tags-todo "office")
          (tags-todo "computer")
          (tags-todo "phone")
          (tags-todo "anywhere")
          (tags-todo "online")))
        ("H" "Working from home"
         ((tags-todo "anywhere")
          (tags-todo "computer")
          (tags-todo "phone")
          (tags-todo "home")
          (tags-todo "online")))

;; function to open work.org
(defun gtd()
  (find-file "~/.gtd/work.org")

(provide 'pdm-org)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]