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

[Paul Mead]

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 
org-mode
;(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()
  (interactive)
  (find-file "~/.gtd/work.org")
)




(provide 'pdm-org)