org-mode/testing/examples/babel.org

a collection of examples for Babel tests

• :noweb header argument expansion
• :noweb header argument expansion using :exports results
• excessive id links on tangling
  • no, don't give me an ID
  • yes, I'd love an ID
• simple named code block
• Pascal's Triangle – exports both test
• calling code blocks from inside table
• executing an lob call line
• exporting an lob call line
• inline source block
• mixed blocks with exports both
• using the :noweb-ref header argument
  • query all mounted disks
  • strip the header row
  • sort by the percent full
  • extract the mount point
• resolving sub-trees as references
  • simple subtree with custom ID
  • simple subtree with global ID
• org-babel-get-inline-src-block-matches
• exporting a code block with a name
• noweb no-export and exports both
• in order evaluation on export
• exporting more than just results from a call line
• strip noweb references on export
• use case of reading entry properties
  • section
    • subsection
      • function definition

:noweb header argument expansion

  (message "expanded1")

  (message "expanded2")

;; noweb-1-yes-start
  <<noweb-example>>

;; noweb-no-start
  <<noweb-example1>>

;; noweb-2-yes-start
  <<noweb-example2>>

  ;; noweb-tangle-start
  <<noweb-example1>>
  <<noweb-example2>>

:noweb header argument expansion using :exports results

;; noweb-no-start
  <<noweb-example1>>

  <<noweb-example1>>
  <<noweb-example2>>

excessive id links on tangling

no, don't give me an ID

  (message "not to be tangled")

yes, I'd love an ID

  (message "for tangling")

simple named code block

  42

42

42

Pascal's Triangle – exports both test

  (require 'cl)
  (defalias 'my-map (if (org-version-check "24.2.50" "cl" :predicate)
                        'cl-map
                      'map))
  (defun pascals-triangle (n)
    (if (= n 0)
        (list (list 1))
      (let* ((prev-triangle (pascals-triangle (- n 1)))
             (prev-row (car (reverse prev-triangle))))
        (append prev-triangle
                (list (my-map 'list #'+
                              (append prev-row '(0))
                              (append '(0) prev-row)))))))
  
  (pascals-triangle n)

calling code blocks from inside table

  (sqrt n)

executing an lob call line

This is an inline call call_echo(input="testing") embedded in prose. This is an inline call call_echo(input="testing")[:results vector] embedded in prose.

call_echo("testing") call_concat(1,2,3)

  (format "%S%S%S" a b c)

exporting an lob call line

  (* 2 it)

The following exports as a normal call line

Now here is an inline call call_double(it=1) stuck in the middle of some prose.

This one should not be exported call_double(it=2) because it is quoted.

Finally this next one should export, even though it starts a line call_double(it=3) because sometimes inline blocks fold with a paragraph.

And, a call with raw results call_double(4)[:results raw] should not have quoted results.

The following 2*5=call_double(5) should export even when prefixed by an = sign.

inline source block

Here is one in the middle

echo 1

of a line. Here is one at the end of a line.

echo 2

echo 3

Here is one at the beginning of a line.

mixed blocks with exports both

• a
• b
• c

    "code block results"

  (reverse lst)

using the :noweb-ref header argument

  <<fullest-disk>>

query all mounted disks

  df

strip the header row

  |sed '1d'

sort by the percent full

  |awk '{print $5 " " $6}'|sort -n |tail -1

extract the mount point

  |awk '{print $2}'

resolving sub-trees as references

  (length text)

  <<simple-subtree>>
  <<d4faa7b3-072b-4dcf-813c-dd7141c633f3>>

simple subtree with custom ID

this is simple

simple subtree with global ID

has length 14

org-babel-get-inline-src-block-matches

echo "One"

block at start of line One spaced block in

 echo "middle"

of line

echo 2} blocks on the src_emacs-lisp{"same"

line Inline block with

 echo "parameters"

.

exporting a code block with a name

exporting a code block with a name

  echo bar

noweb no-export and exports both

Weird interaction.

here is one block

and another

  # I am inside the code block
  <<noweb-no-export-and-exports-both-1>>

in order evaluation on export

First.

  (push it *evaluation-collector*)

Second

  (push 2 *evaluation-collector*)

Third src_emacs-lisp{(push 3 evaluation-collector)}

Fourth

Fifth

  (push 5 *evaluation-collector*)

exporting more than just results from a call line

Here is a call line with more than just the results exported.

strip noweb references on export

  <<strip-export-1>>
  echo "1$i"

use case of reading entry properties

If overriden by caller then use :var from header else use entry property.

section

Note: Just export of a property can be done with a macro: .

• sect inline call_src_block_location_shell(dummy_name="sect inline")
• sect inline call_src_block_location_elisp[:session sect inline]()

subsection

• sub0 inline call_src_block_location_shell(dummy_name="sub0 inline")
• sub0 inline call_src_block_location_elisp[:session sub0 inline]()

• sub1 inline call_src_block_location_shell(dummy_name="sub1 inline", c=5, e=6)
• sub1 inline call_src_block_location_elisp[:session sub1 inline](c=5, e=6)

function definition