Problem with noweb-ref property [9.0.5 (9.0.5-elpaplus @ /home/rainer/.emacs.d/elpa/org-plus-contrib-20170210/)]

Problem with noweb-ref property [9.0.5 (9.0.5-elpaplus @ /home/rainer/.emacs.d/elpa/org-plus-contrib-20170210/)]

[Rainer Hansen]

Hi,

I have tried the following example of using noweb-ref:

--8<---------------cut here---------------start------------->8---
#+BEGIN_SRC sh :tangle yes :noweb yes :shebang #!/bin/sh
<<fullest-disk>>
#+END_SRC

* the mount point of the fullest disk

** query all mounted disks

#+HEADER: :noweb-ref fullest-disk
#+BEGIN_SRC sh
        df \
#+END_SRC


** strip the header row
  :PROPERTIES:
  :noweb-ref: fullest-disk
  :END:

#+BEGIN_SRC sh :noweb yes
        |sed '1d' \
#+END_SRC
--8<---------------cut here---------------end--------------->8---


It was mentioned more than 5 years ago as creating problems:
https://lists.gnu.org/archive/html/emacs-orgmode/2011-12/msg00825.html

Now I got the same problem as mentioned in the post of that time - the
created file contains only

--8<---------------cut here---------------start------------->8---
#!/bin/sh
df \
--8<---------------cut here---------------end--------------->8---

Missing is the second block.

Any ideas why?

Regards,
Rainer



Emacs  : GNU Emacs 26.0.50.2 (x86_64-pc-linux-gnu, GTK+ Version 3.10.8)
 of 2016-10-26
Package: Org mode version 9.0.5 (9.0.5-elpaplus @ /home/rainer/.emacs.d/elpa/org-plus-contrib-20170210/)

current state:
==============
(setq
 org-protocol-default-template-key "l"
 org-export-backends '(ascii beamer html icalendar latex odt freemind)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
 org-calc-default-modes '(calc-internal-prec 12 calc-float-format (fix 2) calc-angle-mode deg calc-prefer-frac nil
			  calc-symbolic-mode nil calc-date-format (YYYY "-" MM "-" DD " " Www (" " hh ":" mm))
			  calc-display-working-message t)
 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-log-done 'time
 org-confirm-shell-link-function 'yes-or-no-p
 org-use-sub-superscripts '{}
 org-default-notes-file "~/orgfiles/notes.org"
 org-agenda-include-diary t
 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 '(#[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-show-block-all append local] 5]
		 #[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-babel-show-result-all append local]
		   5]
		 org-babel-result-hide-spec org-babel-hide-all-hashes turn-on-font-lock org-eldoc-load)
 org-refile-targets '((org-agenda-files :maxlevel . 5) (nil :maxlevel . 5))
 org-format-latex-header "\\documentclass[a4paper]{scrartcl}\n\\usepackage[usenames]{color}\n\\usepackage{amsmath}\n\\usepackage[mathscr]{eucal}\n\\pagestyle{empty}             % do not remove\n[PACKAGES]\n[DEFAULT-PACKAGES]\n% The settings below are copied from fullpage.sty\n% \\setlength{\\textwidth}{\\paperwidth}\n% \\addtolength{\\textwidth}{-3cm}\n% \\setlength{\\oddsidemargin}{1.5cm}\n%\\addtolength{\\oddsidemargin}{-2.54cm}\n% \\setlength{\\evensidemargin}{\\oddsidemargin}\n% \\setlength{\\textheight}{\\paperheight}\n%  \\addtolength{\\textheight}{-\\headheight}\n% \\addtolength{\\textheight}{-\\headsep}\n% \\addtolength{\\textheight}{-\\footskip}\n% \\addtolength{\\textheight}{-3cm}\n% \\setlength{\\topmargin}{1.5cm}\n% \\addtolength{\\topmargin}{-2.54cm}"
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-use-speed-commands t
 org-clock-persist t
 org-refile-use-outline-path 'file
 org-directory "~/orgfiles/"
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
		  org-optimize-window-after-visibility-change)
 org-use-property-inheritance '("noweb-ref")
 org-refile-allow-creating-parent-nodes 'confirm
 org-todo-keywords '((sequence "TODO(t)" "DONE") (sequence "PLANNING(p)" "DEFERRED" "|" "DONE" "CANCELLED"))
 org-modules '(org-bbdb org-bibtex org-gnus org-info org-protocol org-git-link org-irc org-wl org-w3m)
 org-babel-tangle-lang-exts '(("python" . "py") ("awk" . "awk") ("emacs-lisp" . "el") ("elisp" . "el"))
 org-confirm-elisp-link-function 'yes-or-no-p
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-link-parameters '(("id" :follow org-id-open) ("w3m" :store org-w3m-store-link)
		       ("wl" :follow org-wl-open :store org-wl-store-link)
		       ("irc" :follow org-irc-visit :store org-irc-store-link)
		       ("git" :follow org-git-open :store org-git-store-link) ("gitbare" :follow org-gitbare-open)
		       ("info" :follow org-info-open :export org-info-export :store org-info-store-link)
		       ("gnus" :follow org-gnus-open :store org-gnus-store-link)
		       ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
		       ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete org-bbdb-complete-link :store
			org-bbdb-store-link)
		       ("file+sys") ("file+emacs") ("magit" :follow org-magit-open :export org-magit-export)
		       ("doi" :follow org--open-doi-link) ("elisp" :follow org--open-elisp-link)
		       ("file" :complete org-file-complete-link)
		       ("ftp" :follow (lambda (path) (browse-url (concat "ftp:" path))))
		       ("help" :follow org--open-help-link)
		       ("http" :follow (lambda (path) (browse-url (concat "http:" path))))
		       ("https" :follow (lambda (path) (browse-url (concat "https:" path))))
		       ("mailto" :follow (lambda (path) (browse-url (concat "mailto:" path))))
		       ("message" :follow (lambda (path) (browse-url (concat "message:" path))))
		       ("news" :follow (lambda (path) (browse-url (concat "news:" path))))
		       ("shell" :follow org--open-shell-link))
 org-table-duration-custom-format 'days
 org-babel-load-languages '((awk . t) (ditaa . t) (emacs-lisp . t) (python . t) (R . t) (dot . t) (shell . t))
 org-clock-sound "/usr/share/sounds/KDE-Im-Phone-Ring.wav"
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 )

Re: Problem with noweb-ref property [9.0.5 (9.0.5-elpaplus @ /home/rainer/.emacs.d/elpa/org-plus-contrib-20170210/)]

[Nicolas Goaziou]

Hello,

Rainer Hansen <rainer.hansen@gmx.net> writes:

> I have tried the following example of using noweb-ref:
>
> #+BEGIN_SRC sh :tangle yes :noweb yes :shebang #!/bin/sh
> <<fullest-disk>>
> #+END_SRC
>
> * the mount point of the fullest disk
>
> ** query all mounted disks
>
> #+HEADER: :noweb-ref fullest-disk
> #+BEGIN_SRC sh
>         df \
> #+END_SRC
>
>
> ** strip the header row
>   :PROPERTIES:
>   :noweb-ref: fullest-disk
>   :END:
>
> #+BEGIN_SRC sh :noweb yes
>         |sed '1d' \
> #+END_SRC
>
>
>
> It was mentioned more than 5 years ago as creating problems:
> https://lists.gnu.org/archive/html/emacs-orgmode/2011-12/msg00825.html
>
> Now I got the same problem as mentioned in the post of that time - the
> created file contains only
>
> #!/bin/sh df \
>
> Missing is the second block.
>
> Any ideas why?

See "Incompatible changes > Old Babel header properties are no longer
supported" in ORG-NEWS.

Regards,

-- 
Nicolas Goaziou

Re: Problem with noweb-ref property [9.0.5 (9.0.5-elpaplus @ /home/rainer/.emacs.d/elpa/org-plus-contrib-20170210/)]

[Rainer Hansen]

Hi Nicolas,

Nicolas Goaziou <mail@nicolasgoaziou.fr> writes:

> Hello,
>
> Rainer Hansen <rainer.hansen@gmx.net> writes:
>
>> I have tried the following example of using noweb-ref:
>>
>> #+BEGIN_SRC sh :tangle yes :noweb yes :shebang #!/bin/sh
>> <<fullest-disk>>
>> #+END_SRC
>>
>> * the mount point of the fullest disk
>>
>> ** query all mounted disks
>>
>> #+HEADER: :noweb-ref fullest-disk
>> #+BEGIN_SRC sh
>>         df \
>> #+END_SRC
>>
>>
>> ** strip the header row
>>   :PROPERTIES:
>>   :noweb-ref: fullest-disk
>>   :END:
>>
>> #+BEGIN_SRC sh :noweb yes
>>         |sed '1d' \
>> #+END_SRC
>>
>>
>>
>> It was mentioned more than 5 years ago as creating problems:
>> https://lists.gnu.org/archive/html/emacs-orgmode/2011-12/msg00825.html
>>
>> Now I got the same problem as mentioned in the post of that time - the
>> created file contains only
>>
>> #!/bin/sh df \
>>
>> Missing is the second block.
>>
>> Any ideas why?
>
> See "Incompatible changes > Old Babel header properties are no longer
> supported" in ORG-NEWS.
>
> Regards,

thanks for the quick answer.

However, I have still problems. I have adapted the example,
http://orgmode.org/manual/noweb_002dref.html#noweb_002dref, in the
Orgmode handbook to the changed Babel header properties. However, the
generated file contained only "#!/bin/sh". I have activated property
inheritance for "noweb-ref" and moving the cursor on the #+BEGIN_SRC sh
lines shows that they have ":noweb-ref: fullest-disk" as header
argument.

org-use-property-inheritance is '("noweb-ref")

Here is the changed code from the Org mode manual:

--8<---------------cut here---------------start------------->8---
#+BEGIN_SRC sh :tangle yes :noweb yes :shebang #!/bin/sh
  <<fullest-disk>>
#+END_SRC

* the mount point of the fullest disk
  :PROPERTIES:
  :header-args: :noweb-ref: fullest-disk
  :END:

** query all mounted disks

#+BEGIN_SRC sh
  df \
#+END_SRC

** strip the header row
#+BEGIN_SRC sh
  |sed '1d' \
#+END_SRC

** sort by the percent full
#+BEGIN_SRC sh
  |awk '{print $5 " " $6}'|sort -n |tail -1 \
#+END_SRC

** extract the mount point
#+BEGIN_SRC sh
  |awk '{print $2}'
#+END_SRC
--8<---------------cut here---------------end--------------->8---

Any ideas why it is still not working.

Regards,
Rainer

Re: Problem with noweb-ref property [9.0.5 (9.0.5-elpaplus @ /home/rainer/.emacs.d/elpa/org-plus-contrib-20170210/)]

[Nicolas Goaziou]

Rainer Hansen <rainer.hansen@gmx.net> writes:

> However, I have still problems. I have adapted the example,
> http://orgmode.org/manual/noweb_002dref.html#noweb_002dref,

I fixed it.

> in the
> Orgmode handbook to the changed Babel header properties. However, the
> generated file contained only "#!/bin/sh". I have activated property
> inheritance for "noweb-ref" and moving the cursor on the #+BEGIN_SRC sh
> lines shows that they have ":noweb-ref: fullest-disk" as header
> argument.
>
> org-use-property-inheritance is '("noweb-ref")

This is useless. "noweb-ref" is not a property, and header-args are
always inherited IIRC.

> Here is the changed code from the Org mode manual:
>
> #+BEGIN_SRC sh :tangle yes :noweb yes :shebang #!/bin/sh
>   <<fullest-disk>>
> #+END_SRC
>
> * the mount point of the fullest disk
>   :PROPERTIES:
>   :header-args: :noweb-ref: fullest-disk

It should be

  :header-args: :noweb-ref fullest-disk

Regards,

Re: Problem with noweb-ref property [9.0.5 (9.0.5-elpaplus @ /home/rainer/.emacs.d/elpa/org-plus-contrib-20170210/)]

[Rainer Hansen]

Nicolas Goaziou <mail@nicolasgoaziou.fr> writes:

> Rainer Hansen <rainer.hansen@gmx.net> writes:
>
>> However, I have still problems. I have adapted the example,
>> http://orgmode.org/manual/noweb_002dref.html#noweb_002dref,
>
> I fixed it.
>
Great.
>>
>> org-use-property-inheritance is '("noweb-ref")
>
> This is useless. "noweb-ref" is not a property, and header-args are
> always inherited IIRC.
>
Thanks for the clarification.
>> Here is the changed code from the Org mode manual:
>>
>> #+BEGIN_SRC sh :tangle yes :noweb yes :shebang #!/bin/sh
>>   <<fullest-disk>>
>> #+END_SRC
>>
>> * the mount point of the fullest disk
>>   :PROPERTIES:
>>   :header-args: :noweb-ref: fullest-disk
>
> It should be
>
>   :header-args: :noweb-ref fullest-disk
>
That was it. Now it is working fine.
Thanks for your help.