emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Cezar <cezar@mixandgo.ro>
To: emacs-orgmode@gnu.org
Subject: diary in agenda
Date: Tue, 02 Oct 2007 11:08:47 +0300	[thread overview]
Message-ID: <87k5q6os4w.fsf@myhost.localdomain> (raw)



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)

             reply	other threads:[~2007-10-02  8:09 UTC|newest]

Thread overview: 10+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2007-10-02  8:08 Cezar [this message]
2007-10-02  8:39 ` diary in agenda Bastien
2007-10-02 10:08   ` Egli Christian (KIRO 41)
2007-10-02 19:46     ` Cezar
2007-10-02 21:42       ` Christian Egli
2007-10-02 23:16         ` Bastien
2007-10-02 23:22           ` Carsten Dominik
2007-10-03 21:12           ` Christian Egli
2007-10-06  7:51         ` Renzo Been
2007-10-02 19:44   ` Cezar

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87k5q6os4w.fsf@myhost.localdomain \
    --to=cezar@mixandgo.ro \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).