From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andrea Giugliano Subject: Bug: Org-babel-detangle does not work for subtrees [8.3.5 (8.3.5-elpaplus @ /home/andrea/.emacs.d/elpa/org-plus-contrib-20160808/)] Date: Tue, 30 Aug 2016 17:25:33 +0000 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:45287) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bemn8-0000TO-Kl for emacs-orgmode@gnu.org; Tue, 30 Aug 2016 13:25:43 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bemn4-0000bN-D9 for emacs-orgmode@gnu.org; Tue, 30 Aug 2016 13:25:41 -0400 Received: from col004-omc4s8.hotmail.com ([65.55.34.210]:62792) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bemn4-0000ap-19 for emacs-orgmode@gnu.org; Tue, 30 Aug 2016 13:25:38 -0400 Content-Language: en-US List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: "emacs-orgmode@gnu.org" Hello, I have an org mode file with deep subtrees (i.e., 7 stars nesting level). When I try to detangle a src block generated by " ******* TODO find map :PROPERTIES: :ID: 501cfff7-3b24-47cc-9ada-42e6d46abbe9 :END: #+BEGIN_SRC ocaml :noeval :comments both :mkdirp yes :tangle ~/tmp/findMap.= ml anything here #+END_SRC " and the generated file contains: (* TODO find map *) (* :PROPERTIES: *) (* :ID: 501cfff7-3b24-47cc-9ada-42e6d46abbe9 *) (* :END: *) (* [[file:../home/andrea/workspace/agenda/myTasks.org::*find%20map][find\ m= ap:1]] *) anything here (* find\ map:1 ends here *) the detangle cannot find the header, and proposes me to create a new one in the file. I think that the ideal solution is to allow an user to make org-babel-detangle rely on header IDs, since this not only assures detangle to find the correct header every time, but also push the user to use IDs through org-id (that seems good practice). What do you think? Thanks for the fantastic org mode!! Andrea Emacs : GNU Emacs 24.5.2 (x86_64-unknown-linux-gnu, GTK+ Version 2.24.29) of 2016-08-26 on localhost Package: Org-mode version 8.3.5 (8.3.5-elpaplus @ /home/andrea/.emacs.d/elp= a/org-plus-contrib-20160808/) current state: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (setq org-capture-prepare-finalize-hook '(org-id-get-create) org-reveal-mathjax t org-pandoc-epub-rights "Copyright 2016 Andrea <>" org-tab-first-hook '(org-hide-block-toggle-maybe org-babel-hide-result-tog= gle-maybe org-babel-header-arg-expand) org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-co= mmand-hook) org-occur-hook '(org-first-headline-recenter) org-src-tab-acts-natively t org-metaup-hook '(org-babel-load-in-session-maybe) org-html-format-drawer-function '(lambda (name contents) contents) org-src-window-setup 'current-window org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-= function org-confirm-shell-link-function 'yes-or-no-p org-image-actual-width 550 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default org-latex-pdf-process '("latexmk -pdf %f") org-highlight-latex-and-related '(latex script entities) org-latex-format-headline-function 'org-latex-format-headline-default-func= tion org-default-notes-file "/home/andrea/workspace/agenda/myTasks.org" org-after-todo-state-change-hook '(org-clock-out-if-current) org-latex-format-drawer-function '(lambda (name contents) contents) org-from-is-user-regexp "\\" org-loop-over-headlines-in-active-region 'start-level 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 '((lambda nil (local-set-key "\357" (quote org-mime-org-buffer-htmlize)= )) org-toggle-blocks turn-on-flyspell #[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-resu= lt-all append local] 5] org-babel-result-hide-spec org-babel-hide-all-hashes org-e= ldoc-load) org-archive-hook '(org-attach-archive-delete-maybe) org-use-speed-commands t org-ascii-format-drawer-function '(lambda (name contents width) contents) 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-show-empty-lines org-optimize-window-after-visibility-change) org-babel-tangle-lang-exts '(("haskell" . "hs") ("scala" . "scala") ("ruby= " . "rb") ("python" . "py") ("java" . "java") ("ocaml" = . "ml") ("emacs-lisp" . "el") ("elisp" . "el")) org-confirm-elisp-link-function 'yes-or-no-p org-metadown-hook '(org-babel-pop-to-session-maybe) org-html-format-headline-function 'org-html-format-headline-default-functi= on org-structure-template-alist '(("n" "#+BEGIN_NOTES\n?\n#+END_NOTES") ("p" "#+BEGIN_SRC plantuml :file uml.png \n?\n#= +END_SRC") ("s" "#+BEGIN_SRC ?\n\n#+END_SRC") ("e" "#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE") ("q" "#+BEGIN_QUOTE\n?\n#+END_QUOTE") ("v" "#+BEGIN_VERSE\n?\n#+END_VERSE") ("V" "#+BEGIN_VERBATIM\n?\n#+END_VERBATIM") ("c" "#+BEGIN_CENTER\n?\n#+END_CENTER") ("l" "#+BEGIN_LaTeX\n?\n#+END_LaTeX") ("L" = "#+LaTeX: ") ("h" "#+BEGIN_HTML\n?\n#+END_HTML") ("H" "#= +HTML: ") ("a" "#+BEGIN_ASCII\n?\n#+END_ASCII") ("A" = "#+ASCII: ") ("i" "#+INDEX: ?") ("I" "#+INCLUDE: %file ?= ")) org-babel-load-languages '((ocaml . t) (java . t) (sh . t) (org . t) (pyth= on . t) (ruby . t) (scala . t) (haskell . t) (plantuml = . t) (dot . t)) org-src-preserve-indentation t org-html-format-inlinetask-function 'org-html-format-inlinetask-default-fu= nction org-agenda-files '("/home/andrea/workspace/agenda/myTasks.org") org-clock-out-hook '(org-clock-remove-empty-clock-drawer) )