From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nathan Neff Subject: Re: Lists for org-refile-targets Date: Fri, 4 Dec 2009 12:25:18 -0600 Message-ID: <211769420912041025j18e88376lb6c1b2feb7a2585a@mail.gmail.com> References: <211769420912040810r530be418g6eaf4e5589c02121@mail.gmail.com> <27084.1259945144@gamaville.dokosmarshall.org> <211769420912041023m5a592367jc85e5397ecdb1a1e@mail.gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============1371189176==" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NGcqP-00047f-0v for emacs-orgmode@gnu.org; Fri, 04 Dec 2009 13:25:29 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NGcqK-0003yA-EA for emacs-orgmode@gnu.org; Fri, 04 Dec 2009 13:25:28 -0500 Received: from [199.232.76.173] (port=44421 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NGcqK-0003xu-13 for emacs-orgmode@gnu.org; Fri, 04 Dec 2009 13:25:24 -0500 Received: from mail-bw0-f215.google.com ([209.85.218.215]:52201) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NGcqH-0006Ux-2d for emacs-orgmode@gnu.org; Fri, 04 Dec 2009 13:25:22 -0500 Received: by bwz7 with SMTP id 7so2382894bwz.26 for ; Fri, 04 Dec 2009 10:25:20 -0800 (PST) In-Reply-To: <211769420912041023m5a592367jc85e5397ecdb1a1e@mail.gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --===============1371189176== Content-Type: multipart/alternative; boundary=0015175cd87ee1b4900479eb3a9e --0015175cd87ee1b4900479eb3a9e Content-Type: text/plain; charset=ISO-8859-1 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(#) (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: " # 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) --0015175cd87ee1b4900479eb3a9e Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable I still get the "Wrong type argument: numberp, (0.5)" error.
<= div class=3D"gmail_quote">
Here's the stacktrace for the error that = I get when I set org-refile-targets with the following code:


=A0 ;; Use environment variable $ORGDIR to get dir for org-directory
=A0 (setq org-directory (getenv "ORGDIR"))
=A0 (setq notesmine-dir "~/Documents/notesmine-org")

=A0 (setq org-agenda-files (file-expand-wildcards (concat org-directory "/= *.org")))
=A0 (setq notesmine-files (file-expand-wildcards (concat notesmine-dir "/*= .org")))

=A0 ; Targets include this file and any file contributing to the agenda - up to= 5 levels deep
=A0 (setq org-refile-targets
=A0=A0 (quote
=A0=A0=A0=A0 (
=A0=A0=A0=A0=A0=A0 (org-agenda-files :maxlevel . 5)
=A0=A0=A0=A0=A0=A0 (notesmine-files :maxlevel . 5)
=A0=A0=A0=A0=A0=A0 (nil :maxlevel . 5)
=A0=A0=A0=A0 )
=A0=A0 )
=A0 )

Debugger entered--Lisp error: (wrong-type-argument numberp (0.5))
= =A0 number-to-string((0.5))
=A0 (concat "^\\*\\{1," (number-to-string (if org-odd-levels-only= ... ...)) "\\}[ =A0=A0=A0 ]")
=A0 (setq descre (concat "= ^\\*\\{1," (number-to-string ...) "\\}[ =A0=A0=A0 ]"))
= =A0 (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 &qu= ot;Bad refiling target description %s" desc)))
=A0 (while (setq entry (pop entries)) (setq files (car entry) desc (cdr ent= ry)) (setq fast-path-p nil) (cond (... ...) (... ...) (... ...) (... ...)) = (if (stringp files) (setq files ...)) (cond (... ...) (... ...) (... ...) (= ... ...) (... ... ...) (t ...)) (while (setq f ...) (with-current-buffer ..= . ... ... ... ...)))
=A0 (save-current-buffer (set-buffer (or default-buffer ...)) (while (setq = entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... ... .= .. ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))
=A0 (with-current-buffer (or default-buffer (current-buffer)) (while (setq = entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... ... .= .. ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))
=A0 (let ((case-fold-search nil) (entries ...) targets txt re files f desc = descre fast-path-p level pos0) (message "Getting targets...") (wi= th-current-buffer (or default-buffer ...) (while ... ... ... ... ... ... ..= .)) (message "Getting targets...done") (nreverse targets))
=A0 org-get-refile-targets(#<buffer notes.org>)
=A0 (setq org-refile-target-table (org-ge= t-refile-targets default-buffer))
=A0 (let ((org-refile-targets org-refi= le-targets) (org-refile-use-outline-path org-refile-use-outline-path)) (set= q org-refile-target-table (org-get-refile-targets default-buffer)))
=A0 org-refile-get-location("Refile to: " #<buffer notes.org> nil)
=A0 (or rfloc= (org-refile-get-location (if goto "Goto: " "Refile to: &quo= t;) buffer org-refile-allow-creating-parent-nodes))
=A0 (let* ((marker ...) (buffer ...) (pos ...) (rfloc ...)) (with-current-b= uffer buffer (save-excursion ...)))
=A0 (if (equal goto (quote ...)) (or= g-refile-goto-last-stored) (let* (... ... ... ...) (with-current-buffer buf= fer ...)))
=A0 org-agenda-refile(nil)
=A0 call-interactively(org-agenda-refile nil = nil)



--0015175cd87ee1b4900479eb3a9e-- --===============1371189176== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ 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 --===============1371189176==--