Nathan Neff <
address@hidden> wrote:
> On Fri, Dec 4, 2009 at 10:45 AM, Nick Dokos <
address@hidden> wrote:
>
> Nathan Neff <
address@hidden> wrote:
>
> > Currently, I'm getting an error when I try to refile my notes
> > and I think it's something very basic.
> >
> > Here's the relevant code:
> >
> > ;; Use environment variable $ORGDIR to get dir for org-directory
> > (setq org-directory (getenv "ORGDIR"))
> > (setq notesmine-dir "~/Documents/notesmine-org")
> >
> > (setq org-agenda-files (file-expand-wildcards (concat org-directory "/*.org")))
> > (setq notesmine-files (file-expand-wildcards (concat notesmine-dir "/*.org")))
> >
> > ; Targets include this file and any file contributing to the agenda - up to 5 levels deep
> > (setq org-refile-targets
> > (quote
> > (
> > (org-agenda-files :maxlevel . 5)
> > (notesmine-files :maxlevel . 5)
> > (nil :maxlevel . 5)
> > )
> > )
> > )
> >
> > I've tried concatenating org-agenda-files and notesmine-files, but I keep getting errors
> > when trying to refile. The error that I get is:
> > "Wrong type argument, numberp (0.5)"
> >
> > I can provide a stack trace, but I don't think this is a bug -- I just think that
> > I'm not concatenating the list of files that I want to use in org-refile-targets
> > correctly.
> >
>
> [A stacktrace is always useful. It doesn't matter whether it's a bug in org or in
> your code: it can help narrow down the problem]
>
> I suspect that the last line is the problem:
>
> > (nil :maxlevel . 5)
>
> What happens if you delete it?
>
> HTH,
> Nick
>
> I still get the "Wrong type argument: numberp, (0.5)" error.
>
> Here's the stacktrace:
>
> Debugger entered--Lisp error: (wrong-type-argument numberp (0.5))
> number-to-string((0.5))
> (concat "^\\*\\{1," (number-to-string (if org-odd-levels-only ... ...)) "\\}[ ]")
> (setq descre (concat "^\\*\\{1," (number-to-string ...) "\\}[ ]"))
> (cond ((eq ... :tag) (setq descre ...)) ((eq ... :todo) (setq descre ...)) ((eq ... :regexp) (setq descre ...)) ((eq ... :level) (setq descre ...))
> ((eq ... :maxlevel) (setq fast-path-p t) (setq descre ...)) (t (error "Bad refiling target description %s" desc)))
> (while (setq entry (pop entries)) (setq files (car entry) desc (cdr entry)) (setq fast-path-p nil) (cond (... ...) (... ...) (... ...) (... ...)) (if
> (stringp files) (setq files ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ... ...) (t ...)) (while (setq f ...) (with-current-buffer ... ...
> ... ... ...)))
> (save-current-buffer (set-buffer (or default-buffer ...)) (while (setq entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... ... ...
> ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))
> (with-current-buffer (or default-buffer (current-buffer)) (while (setq entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... ... ...
> ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))
> (let ((case-fold-search nil) (entries ...) targets txt re files f desc descre fast-path-p level pos0) (message "Getting targets...")
> (with-current-buffer (or default-buffer ...) (while ... ... ... ... ... ... ...)) (message "Getting targets...done") (nreverse targets))
> org-get-refile-targets(#<buffer
notes.org>)
> (setq org-refile-target-table (org-get-refile-targets default-buffer))
> (let ((org-refile-targets org-refile-targets) (org-refile-use-outline-path org-refile-use-outline-path)) (setq org-refile-target-table
> (org-get-refile-targets default-buffer)))
> org-refile-get-location("Refile to: " #<buffer
notes.org> nil)
> (or rfloc (org-refile-get-location (if goto "Goto: " "Refile to: ") buffer org-refile-allow-creating-parent-nodes))
> (let* ((marker ...) (buffer ...) (pos ...) (rfloc ...)) (with-current-buffer buffer (save-excursion ...)))
> (if (equal goto (quote ...)) (org-refile-goto-last-stored) (let* (... ... ... ...) (with-current-buffer buffer ...)))
> org-agenda-refile(nil)
> call-interactively(org-agenda-refile nil nil)
>