From mboxrd@z Thu Jan 1 00:00:00 1970 From: Cezar Subject: diary in agenda Date: Tue, 02 Oct 2007 11:08:47 +0300 Message-ID: <87k5q6os4w.fsf@myhost.localdomain> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Iccoq-0008Sr-Lv for emacs-orgmode@gnu.org; Tue, 02 Oct 2007 04:09:28 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Iccok-0008SG-Ck for emacs-orgmode@gnu.org; Tue, 02 Oct 2007 04:09:28 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Iccok-0008SC-3a for emacs-orgmode@gnu.org; Tue, 02 Oct 2007 04:09:22 -0400 Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Iccoh-0006EK-Nq for emacs-orgmode@gnu.org; Tue, 02 Oct 2007 04:09:21 -0400 Received: from list by ciao.gmane.org with local (Exim 4.43) id 1IccoT-0003YL-Uc for emacs-orgmode@gnu.org; Tue, 02 Oct 2007 08:09:06 +0000 Received: from dyn-86.105.65.100.tm.upcnet.ro ([86.105.65.100]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 02 Oct 2007 08:09:05 +0000 Received: from cezar by dyn-86.105.65.100.tm.upcnet.ro with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 02 Oct 2007 08:09:05 +0000 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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)