Lists for org-refile-targets

Lists for org-refile-targets

[Nathan Neff]

[-- Attachment #1.1: Type: text/plain, Size: 1239 bytes --]

Hello,

I'm not a lisp programmer -- I would like to tell org-mode to
use two lists of files (org-agenda-files and notesmine-files) when I refile
my remember notes.

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.

Any suggestions?

Thanks,
--Nate

[-- Attachment #1.2: Type: text/html, Size: 1457 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

Re: Lists for org-refile-targets

[Nick Dokos]

Nathan Neff <nathan.neff@gmail.com> 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

Re: Lists for org-refile-targets

[Nathan Neff]

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

Re: Lists for org-refile-targets

[Nathan Neff]

[-- Attachment #1.1: Type: text/plain, Size: 6446 bytes --]

On Fri, Dec 4, 2009 at 1:03 PM, Nick Dokos <nicholas.dokos@hp.com> wrote:

> Nathan Neff <nathan.neff@gmail.com> wrote:
>
> > On Fri, Dec 4, 2009 at 10:45 AM, Nick Dokos <nicholas.dokos@hp.com>
> wrote:
> >
> >     Nathan Neff <nathan.neff@gmail.com> 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)
> >
>
> Are you sure you have not omitted a space after a period somewhere?
> (nil :maxfile . 5) is very different from (nil :maxfile .5).
> What is the value of org-refile-targets?
>
> Other than that, I can't see anything wrong in the code (and I think the
> (nil :maxlevel 5) part is legal), so I think you'll need to do some
> debugging.  The code in questions is around line 8973 in org.el and
> looks like this:
>
>         ((eq (car desc) :maxlevel)
>           (setq fast-path-p t)
>           (setq descre (concat "^\\*\\{1," (number-to-string
>                                             (if org-odd-levels-only
>                                                 (1- (* 2 (cdr desc)))
>                                              (cdr desc)))
>                               "\\}[ \t]")))
>
> I would suggest that you add a call to debug:
>
>         ((eq (car desc) :maxlevel)
>           (setq fast-path-p t)
>           (debug)
>           (setq descre (concat "^\\*\\{1," (number-to-string
>                                             (if org-odd-levels-only
>                                                 (1- (* 2 (cdr desc)))
>                                              (cdr desc)))
>                               "\\}[ \t]")))
>
> Load the org.el file explicitly:
>
> M-x load-file <RET> /path/to/org.el <RET>
>
> and then try your refile. When  it drops into the debugger, you can
> say "e" and type an expression to be evaluated into the minibuffer.
> E.g. e desc <RET> --> (:maxfile . 5) but if it looks like this
> (:maxfile .5) watch out!
>
>
Nick -- thank you very much.  The problem was that I had no space between
the period and the 5 on line two below:


(org-agenda-files :maxlevel . 5)
;;BAD
(notesmine-files :maxlevel . 5)

I will keep your debugging advice for the next time --
hopefully I'll be able to find these kinds of problems before
pinging the list.

Thanks again,
--Nate

> HTH,
> Nick
>

[-- Attachment #1.2: Type: text/html, Size: 8275 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