Bug: Extra spaces in babel #+call arguments [7.9.3d (release_7.9.3d-823-gd06fa4 @ /usr/share/emacs/24.2/site-lisp/org/)

Bug: Extra spaces in babel #+call arguments [7.9.3d (release_7.9.3d-823-gd06fa4 @ /usr/share/emacs/24.2/site-lisp/org/)

[Rick Lupton]

[-- Attachment #1: Type: text/plain, Size: 3996 bytes --]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

I am using org-babel to include the latest version of
externally-generated images in my org-mode file, which works well. But
there is a problem with using "#+CALL:" to include a link to the image:
if the argument to #+CALL includes parentheses, extra spaces are
added. Please see the examples below, run with "emacs -Q".

(set up sh execution)
#+begin_src lisp
(org-babel-do-load-languages
 'org-babel-load-languages
 '((sh . t)))
#+end_src

The following block works as expected when run with =C-c C-c=: the link is
just the passed filename plus ".txt".

#+name: test
#+begin_src sh :var filename="test james (fred)" :results file
echo "$filename.txt"
#+end_src

#+RESULTS: test
[[file:test james (fred).txt]]

But using call adds an extra space when there are parentheses in the
argument:

#+call: test(filename="test") :results file

#+RESULTS: test(filename="test"):results file
[[file:test.txt]]

#+call: test(filename="test (foo)") :results file

#+RESULTS: test(filename="test (foo)") :results file
[[file:test (foo) .txt]]

This last line shows the bug.

As a separate question, is it possible to get ":results file" as the
default from the original block so it doesn't have to be repeated in each
#+CALL ?

Thanks,
Rick

Emacs  : GNU Emacs 24.2.1 (x86_64-pc-linux-gnu, GTK+ Version 2.24.10)
 of 2012-10-07 on americium, modified by Debian
Package: Org-mode version 7.9.3d (release_7.9.3d-823-gd06fa4 @
/usr/share/emacs/24.2/site-lisp/org/)

current state:
==============
(setq
 org-export-preprocess-before-selecting-backend-code-hook
'(org-beamer-select-beamer-code)
 org-tab-first-hook '(org-hide-block-toggle-maybe
              org-src-native-tab-command-maybe
              org-babel-hide-result-toggle-maybe
              org-babel-header-arg-expand)
 org-speed-command-hook '(org-speed-command-default-hook
              org-babel-speed-command-hook)
 org-occur-hook '(org-first-headline-recenter)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-export-preprocess-before-normalizing-links-hook
'(org-remove-file-link-modifiers)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc
                   org-beamer-auto-fragile-frames
                   org-beamer-place-default-actions-for-lists)
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
             org-src-mode-configure-edit-buffer)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-pre-tangle-hook '(save-buffer)
 org-mode-hook '(#[nil "\300\301\302\303\304$\207"
           [org-add-hook change-major-mode-hook org-show-block-all
            append local]
           5]
         #[nil "\300\301\302\303\304$\207"
           [org-add-hook change-major-mode-hook
            org-babel-show-result-all append local]
           5]
         org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
              org-babel-execute-safely-maybe)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
          org-cycle-hide-inline-tasks org-cycle-show-empty-lines
          org-optimize-window-after-visibility-change)
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-babel-load-languages '((sh . t))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-descriptive-links nil
 )

[-- Attachment #2: Type: text/html, Size: 4741 bytes --]

Re: Bug: Extra spaces in babel #+call arguments [7.9.3d (release_7.9.3d-823-gd06fa4 @ /usr/share/emacs/24.2/site-lisp/org/)

[Thomas S. Dye]

Aloha Rick,

Rick Lupton <r.lupton@gmail.com> writes:

> As a separate question, is it possible to get ":results file" as the
> default from the original block so it doesn't have to be repeated in each
> #+CALL ?

This should work:

* Appropriate Heading Level
  :PROPERTIES:
  :RESULTS:  file
  :END:

All the best,
Tom

-- 
Thomas S. Dye
http://www.tsdye.com

Re: Bug: Extra spaces in babel #+call arguments [7.9.3d (release_7.9.3d-823-gd06fa4 @ /usr/share/emacs/24.2/site-lisp/org/)

[Rick Lupton]

Thomas S. Dye <tsd <at> tsdye.com> writes:
> Rick Lupton <r.lupton <at> gmail.com> writes:
> 
> > As a separate question, is it possible to get ":results file" as the
> > default from the original block so it doesn't have to be repeated in each
> > #+CALL ?
> 
> This should work:
> 
> * Appropriate Heading Level
>   :PROPERTIES:
>   :RESULTS:  file
>   :END:
> 

Yes, that works fine thanks.

For the other question, it's easy to work around -- as below -- though it'd be
nice not to have to.

#+name: nbimg
#+begin_src sh :var nb="" :var tag="" :results output file
# get rid of spurious trailing spaces
fn=$(echo $nb | sed 's/^ *//g')
nbimage -o auto_images "$fn.ipynb" "$tag"
#+end_src

Thanks,
Rick