emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: org-advertized-archive-subtree: Symbol's function definition is void: org-datetree-find-year-create [7.4 (release_7.4.419.g68114f)]
@ 2011-02-19 17:38 Urs Rau (UK)
  2011-03-03 10:28 ` Bastien
  0 siblings, 1 reply; 2+ messages in thread
From: Urs Rau (UK) @ 2011-02-19 17:38 UTC (permalink / raw)
  To: Org Mode

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

^ permalink raw reply	[flat|nested] 2+ messages in thread

* Re: Bug: org-advertized-archive-subtree: Symbol's function definition is void: org-datetree-find-year-create [7.4 (release_7.4.419.g68114f)]
  2011-02-19 17:38 Bug: org-advertized-archive-subtree: Symbol's function definition is void: org-datetree-find-year-create [7.4 (release_7.4.419.g68114f)] Urs Rau (UK)
@ 2011-03-03 10:28 ` Bastien
  0 siblings, 0 replies; 2+ messages in thread
From: Bastien @ 2011-03-03 10:28 UTC (permalink / raw)
  To: Urs Rau (UK); +Cc: Org Mode

Hi Urs,

"Urs Rau (UK)" <urs.rau@om.org> writes:

> 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. ;-)

What if you explicitely load org-datetree.el?  It should work.

> Also are these dates going to be based on USA date field orders or
> will it work right with European dates?

For now org-datetree handles dates like YYYY-MM-DD only.

HTH,

-- 
 Bastien

-- 
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

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2011-03-03 10:29 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-02-19 17:38 Bug: org-advertized-archive-subtree: Symbol's function definition is void: org-datetree-find-year-create [7.4 (release_7.4.419.g68114f)] Urs Rau (UK)
2011-03-03 10:28 ` Bastien

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).