[Orgmode] diary in agenda

2007-10-02 Thread Cezar


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)



___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


Re: [Orgmode] diary in agenda

2007-10-02 Thread Bastien
Cezar [EMAIL PROTECTED] writes:

   My agenda looks like this:

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

What if you set (setq holidays-in-diary-buffer nil)? 

I guess the docstring of `calendar-holidays' might be helpful here.

 (require 'blorg)

Ahem - are you actually using blorg?  If yes, could you provide a link?
I'd be interested in seeing this.  Thanks!

-- 
Bastien


___
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode