From: Nathan Neff <nathan.neff@gmail.com>
To: emacs-orgmode@gnu.org
Subject: Re: Lists for org-refile-targets
Date: Fri, 4 Dec 2009 12:25:18 -0600 [thread overview]
Message-ID: <211769420912041025j18e88376lb6c1b2feb7a2585a@mail.gmail.com> (raw)
In-Reply-To: <211769420912041023m5a592367jc85e5397ecdb1a1e@mail.gmail.com>
[-- Attachment #1.1: Type: text/plain, Size: 3077 bytes --]
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)
[-- Attachment #1.2: Type: text/html, Size: 3569 bytes --]
[-- Attachment #2: Type: text/plain, Size: 201 bytes --]
_______________________________________________
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
next prev parent reply other threads:[~2009-12-04 18:25 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-12-04 16:10 Lists for org-refile-targets Nathan Neff
2009-12-04 16:45 ` Nick Dokos
[not found] ` <211769420912041023m5a592367jc85e5397ecdb1a1e@mail.gmail.com>
2009-12-04 18:25 ` Nathan Neff [this message]
[not found] ` <28578.1259953419@gamaville.dokosmarshall.org>
2009-12-04 19:17 ` Nathan Neff
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=211769420912041025j18e88376lb6c1b2feb7a2585a@mail.gmail.com \
--to=nathan.neff@gmail.com \
--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).