Re: Bug: Source blocks before first ":tangle yes" are not tangled to file [9.4 (nil @ /Users/ezchi/.emacs.d/.local/straight/build/org-mode/)]

[Enze Chi]

Hi Charles:

Thanks for the clear explanation. Add default ":tangle yes" does what I expected. 

But when I try to tangle it to a file like this (with default ":tangle no"):

(org-babel-tangle nil "foo.el")

I end up get 2 files:

foo.el:

(setq foo "hello")

test_tangle.el:

(setq bar "world")

Should I expect only:

foo.el:

(setq bar "world")

On Fri, Sep 4, 2020 at 3:10 AM Berry, Charles <ccberry@health.ucsd.edu> wrote:

Not a bug. See inline.

> On Sep 3, 2020, at 12:37 AM, Enze Chi <enze.chi@gmail.com> wrote:
>
>
> 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
>
>      https://orgmode.org/manual/Feedback.html#Feedback
>
> Your bug report will be posted to the Org mailing list.
> ------------------------------------------------------------------------
>
> I have a org file like this (test_tangle.org):
>
> #+begin_src emacs-lisp
>   (setq foo "hello") ;
> #+end_src
>

There was no :tangle header arg specified for this block. Hence it is never tangled.  I believe this is well documented in the manual.

Running `org-babel-view-src-block-info' (C-c C-v C-i) with point in the src block will confirm this this by listing the header args including `:tangle no'

If you want all src blocks to be tangled, you should study

(info "(org) Using Header Arguments")

to set a system-wide or buffer wide default.

HTH,

Chuck


> #+begin_src emacs-lisp :tangle yes
>   (setq bar "world")
> #+end_src
>
>
> After I run "(org-babel-tangle nil nil)"
>
> I expect both of them are tangled to "test_tangle.el":
>
> (setq foo "hello")
> (setq bar "world")
>
>
> But I only got:
>
> (setq bar "world")
>
>
>
> Emacs  : GNU Emacs 27.1.50 (build 1, x86_64-apple-darwin19.6.0, NS appkit-1894.60 Version 10.15.6 (Build 19G73))
>  of 2020-08-14
> Package: Org mode version 9.4 (nil @ /Users/ezchi/.emacs.d/.local/straight/build/org-mode/)
>
> current state:
> ==============
> (setq
>  org-src-mode-hook '(org-src-babel-configure-edit-buffer
>     org-src-mode-configure-edit-buffer)
>  org-link-shell-confirm-function 'yes-or-no-p
>  org-metadown-hook '(org-babel-pop-to-session-maybe)
>  org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
>  org-mode-hook '(#[0 "\300\301\302\303\304$\207"
>   [add-hook change-major-mode-hook org-show-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)
>  org-archive-hook '(org-attach-archive-delete-maybe)
>  org-confirm-elisp-link-function 'yes-or-no-p
>  org-agenda-before-write-hook '(org-agenda-add-entry-text)
>  org-metaup-hook '(org-babel-load-in-session-maybe)
>  org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
>  org-babel-pre-tangle-hook '(save-buffer)
>  org-tab-first-hook '(org-babel-hide-result-toggle-maybe
>      org-babel-header-arg-expand)
>  org-agenda-loop-over-headlines-in-active-region nil
>  org-occur-hook '(org-first-headline-recenter)
>  org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
>  org-cycle-show-empty-lines
>  org-optimize-window-after-visibility-change)
>  org-speed-command-hook '(org-speed-command-activate
>  org-babel-speed-command-activate)
>  org-export-before-parsing-hook '(org-attach-expand-links)
>  org-confirm-shell-link-function 'yes-or-no-p
>  org-link-parameters '(("attachment" :follow org-attach-follow :complete
> org-attach-complete-link)
>       ("id" :follow org-id-open)
>       ("eww" :follow org-eww-open :store org-eww-store-link)
>       ("rmail" :follow org-rmail-open :store
> org-rmail-store-link)
>       ("mhe" :follow org-mhe-open :store org-mhe-store-link)
>       ("irc" :follow org-irc-visit :store org-irc-store-link
> :export org-irc-export)
>       ("info" :follow org-info-open :export org-info-export
> :store org-info-store-link)
>       ("gnus" :follow org-gnus-open :store
> org-gnus-store-link)
>       ("docview" :follow org-docview-open :export
> org-docview-export :store org-docview-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)
>       ("w3m" :store org-w3m-store-link) ("file+sys")
>       ("file+emacs") ("shell" :follow org-link--open-shell)
>       ("news" :follow
> #[514 "\301\300\302Q\"\207"
>  ["news" browse-url ":"] 6 "\n\n(fn URL ARG)"]
> )
>       ("mailto" :follow
> #[514 "\301\300\302Q\"\207"
>  ["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"]
> )
>       ("https" :follow
> #[514 "\301\300\302Q\"\207"
>  ["https" browse-url ":"] 6 "\n\n(fn URL ARG)"]
> )
>       ("http" :follow
> #[514 "\301\300\302Q\"\207"
>  ["http" browse-url ":"] 6 "\n\n(fn URL ARG)"]
> )
>       ("ftp" :follow
> #[514 "\301\300\302Q\"\207" ["ftp" browse-url ":"]
>  6 "\n\n(fn URL ARG)"]
> )
>       ("help" :follow org-link--open-help)
>       ("file" :complete org-link-complete-file)
>       ("elisp" :follow org-link--open-elisp)
>       ("doi" :follow org-link--open-doi))
>  org-link-elisp-confirm-function 'yes-or-no-p
>  )
>