diary in agenda

[Cezar <cezar@mixandgo.ro>]

Hello,

  My agenda looks like this:

Thursday   4 October 2007
  Holiday:    Shemini Atzeret
  Diary:      Shemini Atzeret


Any idea why there are duplicates ? And where are those stored cause
they are not in my ~/diary file nor in my todo.org. (I am guessing they
are in the emacs calendar, but why twice).

Also here is my relevant .emacs:

;; Org Mode
(require 'org)
(require 'org-nnml)
(require 'blorg)
(require 'org2rem)
(require 'org-toc)
(require 'org-registry)
(org-registry-initialize)

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

(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)
(define-key org-agenda-mode-map "\C-n" 'next-line)
(define-key org-agenda-keymap "\C-n" 'next-line)
(define-key org-agenda-mode-map "\C-p" 'previous-line)
(define-key org-agenda-keymap "\C-p" 'previous-line)

(setq org-todo-keywords
      '((sequence "TODO" "SOMEDAY" "WAITING(w)" "|" "DONE")))
(setq org-agenda-files (quote ("~/todo.org")))
(setq org-default-notes-file "~/notes.org")

(setq org-reverse-note-order t)
(setq org-log-done (quote (done state)))
(setq org-agenda-include-diary t)
(setq org-remember-store-without-prompt t)
(setq org-agenda-skip-deadline-if-done t)
(setq org-agenda-show-all-dates t)
(setq org-agenda-ndays 7)
(setq org-deadline-warning-days 14)
(setq org-fast-tag-selection-single-key (quote expert))
(setq org-agenda-skip-scheduled-if-done t)
(setq org-agenda-start-on-weekday nil)
(setq org-directory "~/")
(setq org-todo-keyword-faces
   '(("TODO"      . org-warning)
     ("SOMEDAY"  . (:foreground "pink" :weight bold
                                       :underline nil))
     ("WAITING"  . (:foreground "orange" :weight bold
                                         :underline nil))))
(setq org-agenda-custom-commands
      (quote (("d" todo "DELEGATED" nil)
              ("c" todo "DONE|DEFERRED|CANCELLED" nil)
              ("w" todo "WAITING" nil)
              ("W" agenda "" ((org-agenda-ndays 21)))
              ("A" agenda ""
               ((org-agenda-skip-function
                 (lambda nil
                   (org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\]")))
                (org-agenda-ndays 1)
                (org-agenda-overriding-header "Today's Priority #A tasks: ")))
              ("u" alltodo ""
               ((org-agenda-skip-function
                 (lambda nil
                   (org-agenda-skip-entry-if (quote scheduled) (quote deadline)
                                             (quote regexp) "<[^>\n]+>")))
                (org-agenda-overriding-header "Unscheduled TODO entries: "))))))

;; Lists all matching lines in all of your Agenda files
(defun org-multi-occur (regexp)
  (interactive "sList all lines matching: ")
  (multi-occur (mapcar 'get-file-buffer (org-agenda-files)) regexp))

;; Remember
(require 'remember)
(add-hook 'remember-mode-hook 'org-remember-apply-template)
(setq remember-annotation-functions     '(org-remember-annotation)
      remember-handler-functions        '(org-remember-handler))
(setq org-remember-templates
   (quote ((116 "* TODO %?\n  %u" "~/notes.org" "Tasks")
           (110 "* %u %?" "~/notes.org" "Notes"))))

;; Diary
(setq view-diary-entries-initially t
      mark-diary-entries-in-calendar t
      number-of-diary-entries 7)
(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'today-visible-calendar-hook 'calendar-mark-today)