I am trying to archive completed tasks to a datetree. I am using "Move Subtree to Archive file" (C-c C-x -C-s) And I get the following error:
release_7.4-419-g68114f Org-mode version 7.4 (release_7.4.419.g68114f) afile=/Users/ursr/org/tasksnotes.org_archive org-advertized-archive-subtree: Symbol's function definition is void: org-datetree-find-year-create And I had done a C-c C-x ! to reload all org files, jsut in case. ;-) I have added the following settings taken from the worg site page: http://orgmode.org/worg/org-hacks.html Topic: Archive in a date tree Posted to Org-mode mailing list by Osamu Okano (setq org-archive-location "%s_archive::date-tree") (defadvice org-archive-subtree (around org-archive-subtree-to-data-tree activate) "org-archive-subtree to date-tree" (if (string= "date-tree" (org-extract-archive-heading (org-get-local-archive-location))) (let* ((dct (decode-time (org-current-time))) (y (nth 5 dct)) (m (nth 4 dct)) (d (nth 3 dct)) (this-buffer (current-buffer)) (location (org-get-local-archive-location)) (afile (org-extract-archive-file location)) (org-archive-location (format "%s::*** %04d-%02d-%02d %s" afile y m d (format-time-string "%A" (encode-time 0 0 0 d m y))))) (message "afile=%s" afile) (unless afile (error "Invalid `org-archive-location'")) (save-excursion (switch-to-buffer (find-file-noselect afile)) (org-datetree-find-year-create y) (org-datetree-find-month-create y m) (org-datetree-find-day-create y m d) (widen) (switch-to-buffer this-buffer)) ad-do-it) ad-do-it)) ;; How do I fix this and make sure I can file into a datetree in my archive file? Also are these dates going to be based on USA date field orders or will it work right with European dates? Thanks. Here is my config: Emacs : GNU Emacs 23.2.1 (x86_64-apple-darwin, NS apple-appkit-1038.29) of 2010-05-09 on black.local ErgoEmacs distribution 1.8.1 Package: Org-mode version 7.4 (release_7.4.419.g68114f) current state: ============== (setq org-empty-line-terminates-plain-lists t org-log-done 'time org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars) org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook) org-agenda-files '("~/org/tasksnotes.org" "~/org/projects.org") org-agenda-include-diary t org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent) org-checklist-export-function 'org-export-as-ascii org-completion-use-ido t org-metaup-hook '(org-babel-load-in-session-maybe) org-archive-save-context-info '(time file category todo priority itags olpth ltags) org-agenda-skip-timestamp-if-done t org-after-todo-state-change-hook '(org-clock-out-if-current org-checklist) org-agenda-todo-ignore-scheduled t org-archive-location "%s_archive::date-tree" org-export-blocks-postblock-hook '(org-exp-res/src-name-cleanup) org-export-latex-format-toc-function 'org-export-latex-format-toc-default org-protocol-protocol-alist '(("org-mac-safari-tabs" :protocol "safari-tabs" :function org-mac-safari-tabs :kill-client t) ("org-mac-remember" :protocol "mac-remember" :function org-mac-protocol-remember :kill-client t) ) org-agenda-skip-scheduled-if-done t org-tags-exclude-from-inheritance '("crypt") org-tab-first-hook '(org-hide-block-toggle-maybe org-src-native-tab-command-maybe org-babel-hide-result-toggle-maybe) org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer) org-confirm-shell-link-function 'yes-or-no-p org-reveal-start-hook '(org-decrypt-entry) org-export-first-hook '(org-beamer-initialize-open-trackers) org-todo-keywords '((sequence "TODO(t)" "STARTED(s)" "WAITING(w)" "APPT(a)" "|" "DONE(d)" "CANCELLED(c)" "DEFERRED(f)")) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-default-notes-file "~/org/notes.org" org-babel-pre-tangle-hook '(save-buffer) 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-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers) org-mode-hook '((lambda nil (setq org-mouse-context-menu-function (quote org-mouse-context-menu)) (when (memq (quote context-menu) org-mouse-features) (org-defkey org-mouse-map [mouse-3] nil) (org-defkey org-mode-map [mouse-3] (quote org-mouse-show-context-menu))) (org-defkey org-mode-map [down-mouse-1] (quote org-mouse-down-mouse)) (when (memq (quote context-menu) org-mouse-features) (org-defkey org-mouse-map [C-drag-mouse-1] (quote org-mouse-move-tree)) (org-defkey org-mouse-map [C-down-mouse-1] (quote org-mouse-move-tree-start))) (when (memq (quote yank-link) org-mouse-features) (org-defkey org-mode-map [S-mouse-2] (quote org-mouse-yank-link)) (org-defkey org-mode-map [drag-mouse-3] (quote org-mouse-yank-link))) (when (memq (quote move-tree) org-mouse-features) (org-defkey org-mouse-map [drag-mouse-3] (quote org-mouse-move-tree)) (org-defkey org-mouse-map [down-mouse-3] (quote org-mouse-move-tree-start))) (when (memq (quote activate-stars) org-mouse-features) (font-lock-add-keywords nil (\` (((\, outline-regexp) 0 (\` (face org-link mouse-face highlight keymap (\, org-mouse-map))) (quote prepend)) ) ) t) ) (when (memq (quote activate-bullets) org-mouse-features) (font-lock-add-keywords nil (\` (("^[ ]*\\([-+*]\\|[0-9]+[.)]\\) +" (1 (\` (face org-link keymap (\, org-mouse-map) mouse-face highlight)) (quote prepend))) ) ) t) ) (when (memq (quote activate-checkboxes) org-mouse-features) (font-lock-add-keywords nil (\` (("^[ ]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)" (2 (\` (face bold keymap (\, org-mouse-map) mouse-face highlight)) t)) ) ) t) ) (defadvice org-open-at-point (around org-mouse-open-at-point activate) (let ((context (org-context))) (cond ((assq :headline-stars context) (org-cycle)) ((assq :checkbox context) (org-toggle-checkbox)) ((assq :item-bullet context) (let ((org-cycle-include-plain-lists t)) (org-cycle))) (t ad-do-it)) ) ) ) (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))) (lambda nil (org-add-hook (quote change-major-mode-hook) (quote org-babel-show-result-all) (quote append) (quote local)) ) org-babel-result-hide-spec org-babel-hide-all-hashes soft-wrap-lines) org-font-lock-hook '(org-inlinetask-fontify) org-refile-targets '((org-agenda-files :maxlevel . 5) (nil :maxlevel . 5)) org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe) org-return-follows-link t org-confirm-elisp-link-function 'yes-or-no-p org-refile-use-outline-path 'file org-log-into-drawer t org-agenda-mode-hook '((lambda nil (setq org-mouse-context-menu-function (quote org-mouse-agenda-context-menu)) (org-defkey org-agenda-mode-map [mouse-3] (quote org-mouse-show-context-menu)) (org-defkey org-agenda-mode-map [down-mouse-3] (quote org-mouse-move-tree-start)) (org-defkey org-agenda-mode-map [C-mouse-4] (quote org-agenda-earlier)) (org-defkey org-agenda-mode-map [C-mouse-5] (quote org-agenda-later)) (org-defkey org-agenda-mode-map [drag-mouse-3] (quote (lambda (event) (interactive "e") (case (org-mouse-get-gesture event) (:left (org-agenda-earlier 1)) (:right (org-agenda-later 1))) ) ) ) ) ) org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src org-babel-exp-inline-src-blocks)) org-enforce-todo-dependencies t org-agenda-skip-deadline-if-done t org-refile-allow-creating-parent-nodes 'confirm org-crypt-key "0CB40851" org-occur-hook '(org-first-headline-recenter) org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code) org-modules '(org-bbdb org-bibtex org-crypt org-docview org-gnus org-id org-info org-jsinfo org-habit org-inlinetask org-irc org-mac-message org-mew org-mhe org-protocol org-rmail org-vm org-wl org-w3m org-mouse org-annotate-file org-bookmark org-checklist org-git-link org-mac-iCal org-mac-link-grabber org-registry org2rem org-secretary org-mac-protocol) org-export-preprocess-after-tree-selection-hook '(org-inlinetask-export-handler) org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc org-beamer-auto-fragile-frames org-beamer-place-default-actions-for-lists) org-metadown-hook '(org-babel-pop-to-session-maybe) org-export-blocks '((src org-babel-exp-src-block nil) (comment org-export-blocks-format-comment t) (ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-format-dot nil)) ) It is probably not a bug, but something that I am doing wrong? Any hints? -- Urs Rau _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode