From: Bernt Hansen <bernt@norang.ca>
To: emacs-orgmode@gnu.org
Subject: Org-mode version 6.32trans (release_6.32b.157.g04e9); Insert anniversary in the calendar fails
Date: Tue, 10 Nov 2009 14:36:29 -0500 [thread overview]
Message-ID: <200911101936.nAAJaTw6030168@gollum.intra.norang.ca> (raw)
Remember to cover the basics, that is, what you expected to happen and
what in fact did happen. You don't know how to make a good report? See
http://orgmode.org/manual/Feedback.html#Feedback
Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------
From the agenda (C-c a a c i a RET RET)
I get the following error
Debugger entered--Lisp error: (void-function diary-date-display-form)
(diary-date-display-form)
(let ((calendar-date-display-form ...)) (insert (format "%%%%(diary-anniversary %s) %s" ... text)))
(cond ((eq type ...) (or ... ...) (outline-next-heading) (org-back-over-empty-lines) (backward-char 1) (insert "\n") (require ...) (let ... ...)) ((eq type ...) (require ...) (org-datetree-find-date-create d1) (org-agenda-insert-diary-make-new-entry text) (org-insert-time-stamp ...) (end-of-line 0)) ((eq type ...) (if ... ...) (require ...) (org-datetree-find-date-create d1) (org-agenda-insert-diary-make-new-entry text) (org-insert-time-stamp ...) (insert "--") (org-insert-time-stamp ...) (end-of-line 0)))
(let ((cw ...)) (org-switch-to-buffer-other-window (find-file-noselect org-agenda-diary-file)) (widen) (goto-char (point-min)) (cond (... ... ... ... ... ... ... ...) (... ... ... ... ... ...) (... ... ... ... ... ... ... ... ...)) (if (string-match "\\S-" text) (progn ... ...) (message "Please finish entry here")))
org-agenda-add-entry-to-org-agenda-diary-file(anniversary "" (11 10 2009))
(cond ((equal char 100) (setq text ...) (org-agenda-add-entry-to-org-agenda-diary-file ... text d1)) ((equal char 97) (setq d1 ...) (setq text ...) (org-agenda-add-entry-to-org-agenda-diary-file ... text d1)) ((equal char 98) (setq text ...) (unless ... ...) (org-agenda-add-entry-to-org-agenda-diary-file ... text d1 d2)) ((equal char 106) (org-switch-to-buffer-other-window ...) (org-datetree-find-date-create d1) (org-reveal t)) (t (error "Invalid selection character `%c'" char)))
(let (d1 d2 char (text "")) (if (equal ... "*Calendar*") (setq d1 ... d2 ...) (setq d1 ... d2 ...)) (message "Diary entry: [d]ay [a]nniversary [b]lock [j]ump to date tree") (setq char (read-char-exclusive)) (cond (... ... ...) (... ... ... ...) (... ... ... ...) (... ... ... ...) (t ...)))
org-agenda-diary-entry-in-org-file()
(if (not (eq org-agenda-diary-file ...)) (org-agenda-diary-entry-in-org-file) (require (quote diary-lib)) (let* (... ... ... ... ...) (unless cmd ...) (unless ... ...) (let ... ...)))
org-agenda-diary-entry()
call-interactively(org-agenda-diary-entry)
-Bernt
Emacs : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11)
of 2008-11-09 on raven, modified by Debian
Package: Org-mode version 6.32trans (release_6.32b.157.g04e9)
current state:
==============
(setq
org-export-html-final-hook '(org-inlinetask-remove-terminator)
org-log-done 'time
org-remember-default-headline "Tasks"
org-clock-in-switch-to-state "STARTED"
org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold)
("STARTED" :foreground "blue" :weight bold)
("DONE" :foreground "forest green" :weight bold)
("WAITING" :foreground "orange" :weight bold)
("SOMEDAY" :foreground "magenta" :weight bold)
("CANCELLED" :foreground "forest green" :weight bold)
("QUOTE" :foreground "red" :weight bold)
("QUOTED" :foreground "magenta" :weight bold)
("APPROVED" :foreground "forest green" :weight bold)
("EXPIRED" :foreground "forest green" :weight bold)
("REJECTED" :foreground "forest green" :weight bold)
("OPEN" :foreground "blue" :weight bold))
org-show-siblings nil
org-special-ctrl-a/e t
org-agenda-clockreport-parameter-plist '(:link nil :maxlevel 2)
org-default-priority 71
org-agenda-custom-commands '(("s" "Started Tasks" todo "STARTED"
((org-agenda-todo-ignore-scheduled nil)
(org-agenda-todo-ignore-deadlines nil)
(org-agenda-todo-ignore-with-date nil))
)
("w" "Tasks waiting on something" tags "WAITING/!"
((org-use-tag-inheritance nil)))
("r" "Refile New Notes and Tasks" tags "LEVEL=1+REFILE"
((org-agenda-todo-ignore-with-date nil)))
("N" "Notes" tags "NOTE" nil)
("n" "Next" tags "NEXT-WAITING-CANCELLED/!" nil)
("p" "Projects" tags-todo "LEVEL=2-NEXT-WAITING-CANCELLED/!-DONE" nil)
("A" "Tasks to be Archived" tags "LEVEL=2/DONE|CANCELLED" nil))
org-agenda-files '("~/git/org/diary.org" "~/git/bzflag/bzflag-website/TODO.org"
"~/git/org/bzflag.org" "~/git/org/git.org" "~/git/org/todo.org"
"~/git/org/jobs.org" "~/git/org/refile.org" "~/git/org/farm.org"
"~/git/org/mark.org" "~/git/org/org.org" "~/git/org/norang.org")
org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
org-agenda-tags-column -102
org-export-ascii-final-hook '(org-inlinetask-remove-terminator)
org-export-with-sub-superscripts nil
org-clock-into-drawer "CLOCK"
org-checklist-export-function 'org-export-as-ascii
org-completion-use-ido t
org-agenda-skip-timestamp-if-done t
org-after-todo-state-change-hook '(org-checklist org-clock-out-if-current)
org-clock-out-when-done nil
org-agenda-text-search-extra-files '(agenda-archives)
org-agenda-todo-ignore-scheduled t
org-clock-history-length 35
org-show-hierarchy-above t
org-time-stamp-rounding-minutes '(1 15)
org-speed-commands-user '(("1" . delete-other-windows) ("2" . split-window-horizontally)
("3" . split-window-vertically))
org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t)) ("WAITING" ("WAITING" . t) ("NEXT"))
("SOMEDAY" ("WAITING" . t)) (done ("NEXT") ("WAITING"))
("TODO" ("WAITING") ("CANCELLED") ("NEXT"))
("DONE" ("WAITING") ("CANCELLED") ("NEXT")))
org-special-ctrl-k t
org-remember-clock-out-on-exit nil
org-agenda-sorting-strategy '((agenda habit-down time-up priority-down effort-up category-up)
(todo priority-down) (tags priority-down))
org-deadline-warning-days 30
org-agenda-skip-scheduled-if-done t
org-stuck-projects '("LEVEL=2-REFILE-WAITING|LEVEL=1+REFILE/!-DONE-CANCELLED-OPEN" nil ("NEXT") "")
org-agenda-time-grid '(nil "----------------" (800 1000 1200 1400 1600 1800 2000))
org-clock-in-resume t
org-quote-string "FOOBAR"
org-export-preprocess-hook '(org-export-blocks-preprocess)
org-tags-exclude-from-inheritance '("crypt")
org-agenda-diary-file "~/git/org/diary.org"
org-tab-first-hook '(org-hide-block-toggle-maybe)
outline-regexp "\\(?:\\*+\\|=+ \\)"
org-src-mode-hook '(org-src-mode-configure-edit-buffer)
org-finalize-agenda-hook '(bh/org-agenda-to-appt)
org-confirm-shell-link-function 'yes-or-no-p
org-table-export-default-format "orgtbl-to-csv"
org-clock-persist 'history
org-clock-sound "/usr/local/lib/alert1.wav"
org-todo-keywords '((sequence "TODO(t!)" "STARTED(s!)" "|" "DONE(d!/!)")
(sequence "WAITING(w@/!)" "SOMEDAY(S!)" "OPEN(O@)" "|" "CANCELLED(c@/!)")
(sequence "QUOTE(q!)" "QUOTED(Q!)" "|" "APPROVED(A@)" "EXPIRED(E@)"
"REJECTED(R@)")
)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-default-notes-file "~/git/org/refile.org"
org-export-docbook-xslt-proc-command "xsltproc --output %s /usr/share/xml/docbook/stylesheet/nwalsh/fo/docbook.xsl %s"
org-insert-heading-hook '(bh/insert-inactive-timestamp)
org-tag-alist '((:startgroup) ("@errand" . 101) ("@office" . 111) ("@home" . 104) ("@farm" . 102)
(:endgroup) ("PHONE" . 112) ("QUOTE" . 113) ("NEXT" . 110) ("WAITING" . 119)
("HOME" . 72) ("FARM" . 70) ("ORG" . 79) ("JOBS" . 74) ("SAPPI" . 83)
("NORANG" . 78) ("crypt" . 101) ("inet" . 105) ("MARK" . 77) ("BZFLAG" . 66))
org-blank-before-new-entry '((heading) (plain-list-item))
org-habit-graph-column 50
org-export-html-inline-images t
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-export-latex-classes '(("myletter"
"% BEGIN My Letter Defaults\n\\documentclass[10pt,letterpaper]{letter}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n% Default footer\n\\fancyfoot[C]{\\small Page \\thepage\\ of \\pageref{LastPage}}\n% END My Letter Defaults\n\n"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
("myarticle"
"% BEGIN My Article Defaults\n\\documentclass[10pt,letterpaper]{article}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\headrulewidth}{1pt}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n% Default footer\n\\fancyfoot[L]{\\small \\jobname \\\\ \\today}\n\\fancyfoot[C]{\\small Page \\thepage\\ of \\pageref{LastPage}}\n\\fancyfoot[R]{\\small \\copyright \\the\\year\\ Norang Consulting Inc.}\n% END My Article Defaults\n\n"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
("article"
"\\documentclass[11pt,letterpaper]{article}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}")
("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
("report"
"\\documentclass[11pt,letterpaper]{report}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
("book"
"\\documentclass[11pt,letterpaper]{book}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
)
org-publish-project-alist '(("norang-org" :base-directory "~/git/www.norang.ca"
:publishing-directory "/ssh:www-data@www:~/www.norang.ca/htdocs"
:recursive t :section_numbers nil :table-of-contents nil
:base-extension "org" :publishing-function org-publish-org-to-html
:style-include-default nil :section-numbers nil :table-of-contents nil
:style-include-default nil :style
"<link rel=\"stylesheet\" href=\"norang.css\" type=\"text/css\" />"
:author-info nil :creator-info nil)
("norang-extra" :base-directory "~/git/www.norang.ca/"
:publishing-directory "/ssh:www-data@www:~/www.norang.ca/htdocs"
:base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function
org-publish-attachment :recursive t :author nil)
("norang" :components ("norang-org" "norang-extra"))
("doc-org" :base-directory "~/git/doc.norang.ca/" :publishing-directory
"/ssh:www-data@www:~/doc.norang.ca/htdocs" :recursive t
:section_numbers nil :table-of-contents nil :base-extension "org"
:publishing-function (org-publish-org-to-html org-publish-org-to-org)
:plain-source t :htmlized-source t :style-include-default nil :style
"<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />"
:author-info nil :creator-info nil)
("doc-extra" :base-directory "~/git/doc.norang.ca/"
:publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs"
:base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function
org-publish-attachment :recursive t :author nil)
("org" :base-directory "~/git/org/" :publishing-directory
"/ssh:www-data@www:~/org" :recursive t :section_numbers nil
:table-of-contents nil :base-extension "org" :publishing-function
org-publish-org-to-html :style-include-default nil :style
"<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />"
:author-info nil :creator-info nil)
("doc-org-mode" :base-directory "~/git/org-mode-doc/"
:publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs"
:recursive t :section_numbers nil :table-of-contents nil
:base-extension "org" :publishing-function
(org-publish-org-to-html org-publish-org-to-org) :plain-source t
:htmlized-source t :style-include-default nil :style
"<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />"
:author-info nil :creator-info nil)
("doc-org-mode-extra" :base-directory "~/git/org-mode-doc/"
:publishing-directory "/ssh:www-data@www:~/doc.norang.ca/htdocs"
:base-extension "css\\|pdf\\|png\\|jpg\\|gif" :publishing-function
org-publish-attachment :recursive t :author nil)
("doc" :components
("doc-org" "doc-extra" "doc-org-mode" "doc-org-mode-extra"))
)
org-agenda-tags-todo-honor-ignore-options t
org-use-speed-commands t
org-mode-hook '(org-clock-load
(lambda nil (make-variable-buffer-local (quote yas/trigger-key))
(org-set-local (quote yas/trigger-key) [tab])
(define-key yas/keymap [tab] (quote yas/next-field-group)) (flyspell-mode 1))
(lambda nil (add-hook (quote before-save-hook) (quote org-encrypt-entries) nil t))
(lambda nil
(org-add-hook (quote change-major-mode-hook) (quote org-show-block-all)
(quote append) (quote local))
)
)
org-clock-out-remove-zero-time-clocks t
org-cycle-include-plain-lists nil
org-font-lock-hook '(org-inlinetask-fontify)
org-agenda-ndays 1
org-global-properties '(("Effort_ALL" . "0:10 0:30 1:00 2:00 4:00 6:00 8:00 12:00 16:00 24:00")
("STYLE_ALL" . "habit"))
org-refile-targets '((nil :maxlevel . 5) (org-agenda-files :maxlevel . 5))
org-clock-auto-clock-resolution nil
org-return-follows-link t
org-confirm-elisp-link-function 'yes-or-no-p
org-refile-use-outline-path 'file
org-fast-tag-selection-single-key 'expert
org-log-into-drawer t
org-agenda-mode-hook '((lambda nil (hl-line-mode 1)))
org-agenda-start-on-weekday nil
org-agenda-todo-ignore-with-date t
org-enforce-todo-dependencies t
org-agenda-skip-deadline-if-done t
org-show-following-heading t
org-insert-heading-respect-content t
org-crypt-key "F0B66B40"
org-occur-hook '(org-first-headline-recenter)
org-from-is-user-regexp "\\<Bernt Hansen\\>"
org-yank-adjusted-subtrees t
org-drawers '("PROPERTIES" "LOGBOOK" "CLOCK")
org-agenda-log-mode-items '(clock)
org-treat-S-cursor-todo-selection-as-state-change nil
org-export-docbook-xsl-fo-proc-command "fop %s %s"
org-agenda-todo-ignore-deadlines t
org-modules '(org-bbdb org-bibtex org-crypt org-gnus org-id org-info org-jsinfo org-habit
org-inlinetask org-irc org-mew org-mhe org-protocol org-rmail org-vm org-wl org-w3m)
org-columns-default-format "%80ITEM(Task) %10Effort(Estimated Effort){:} %10CLOCKSUM"
org-agenda-auto-exclude-function 'bh/org-auto-exclude-function
org-remember-templates '(("todo" 116 "* TODO %?\n %U\n %a" nil bottom nil)
("note" 110
"* %? :NOTE:\n %U\n %a" nil
bottom nil)
("phone" 112
"* PHONE %:name - %:company - :PHONE:\n Contact Info: %a\n %U\n :CLOCK-IN:\n %?" nil bottom nil)
("Apply to Job" 106
"* TODO jobtask%? :NEXT:inet:\n :PROPERTIES:\n :Effort: 0:30\n :END:\n %U\n jobdetails" "~/git/org/jobs.org" "TODO Job Search" nil)
("appointment" 97 "* %?\n %U" "~/git/org/todo.org" "Appointments" nil)
("Search job site" 115
"* TODO Search job site%! :NEXT:inet:\n %U\n :PROPERTIES:\n :Effort: 0:10\n :END:\n %a " "~/git/org/jobs.org" "Search Jobs" nil)
("org-protocol" 119
"* TODO Review %c%! :NEXT:\n %U\n :PROPERTIES:\n :Effort: 0:10\n :END:" nil bottom nil)
)
org-export-preprocess-after-tree-selection-hook '(org-inlinetask-export-handler)
org-export-docbook-final-hook '(org-inlinetask-remove-terminator)
org-export-latex-final-hook '(org-inlinetask-remove-terminator)
org-lowest-priority 71
)
next reply other threads:[~2009-11-10 19:36 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-11-10 19:36 Bernt Hansen [this message]
2009-11-10 20:14 ` Org-mode version 6.32trans (release_6.32b.157.g04e9); Insert anniversary in the calendar fails Nick Dokos
2009-11-10 20:21 ` Bernt Hansen
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=200911101936.nAAJaTw6030168@gollum.intra.norang.ca \
--to=bernt@norang.ca \
--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).