emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] Lists for org-refile-targets


From: Nathan Neff
Subject: Re: [Orgmode] Lists for org-refile-targets
Date: Fri, 4 Dec 2009 12:25:18 -0600

I still get the "Wrong type argument: numberp, (0.5)" error.

Here's the stacktrace for the error that I get when I set org-refile-targets with the following 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)
     )
   )
  )

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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]