testing/examples/ob-header-arg-defaults.org

   1 #+TITLE: Tests for default header arguments to Babel source blocks
   2 #+OPTIONS: ^:nil
   3 #+PROPERTY: header-args  :var t1="gh1" t2="gh2_clobbered"
   4 #+PROPERTY: header-args+ :var t4="gh4" t2="gh2" :var end=9
   5 #+PROPERTY: header-args:emacs-lisp  :var t1="ge1" t4="ge4_clobbered"
   6 #+PROPERTY: header-args:emacs-lisp+ :var t4="ge4" :var t5="ge5"
   7 #+PROPERTY: header-args:emacs-lisp+ :results silent :noweb yes
   8
   9 #+NAME: showvar
  10 #+BEGIN_SRC emacs-lisp :execute no
  11   (mapconcat (lambda (n)
  12                (let* ((n (string (+ 48 n)))
  13                       (p (intern (concat "t" n))))
  14                  (if (boundp p) (eval p) (concat "--" n))))
  15              (number-sequence 1 end)
  16              "/")
  17 #+END_SRC
  18
  19 * Global property
  20   :PROPERTIES:
  21   :ID:       3fdadb69-5d15-411e-aad0-f7860cdd7816
  22   :END:
  23
  24 | Global                 | t1  | t2  | t3  | t4  | t5  | t6  | t7  | t8  | t9  |
  25 |------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
  26 | header-args            | gh1 | gh2 | --- | gh4 | --- | --- | --- | --- | --- |
  27 | header-args:emacs-lisp | ge1 | --- | --- | ge4 | ge5 | --- | --- | --- | --- |
  28 |------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
  29 | Result                 | ge1 | gh2 | --3 | ge4 | ge5 | --6 | --7 | --8 | --9 |
  30
  31 #+CALL: showvar() :results silent
  32 #+BEGIN_SRC emacs-lisp :var end=7
  33 <<showvar>>
  34 #+END_SRC
  35
  36 * Tree property
  37 ** Overwrite
  38   :PROPERTIES:
  39   :ID:       a9cdfeda-9f31-4bb5-b694-2cf452f07dfd
  40   :header-args: :var t7="th7"
  41   :header-args:emacs-lisp: :var t8="te8"
  42   :header-args:emacs-lisp+: :results silent :noweb yes :var end=9
  43   :END:
  44
  45 | Global                 | t1  | t2  | t3  | t4  | t5  | t6  | t7  | t8  | t9  |
  46 |------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
  47 | header-args            | gh1 | gh2 | --- | gh4 | --- | --- | --- | --- | --- |
  48 | header-args:emacs-lisp | ge1 | --- | --- | ge4 | ge5 | --- | --- | --- | --- |
  49 |------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
  50 | Tree                   | t1  | t2  | t3  | t4  | t5  | t6  | t7  | t8  | t9  |
  51 |------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
  52 | header-args            | --- | --- | --- | --- | --- | --- | th7 | --- | --- |
  53 | header-args:emacs-lisp | --- | --- | --- | --- | --- | --- | --- | te8 | --- |
  54 |------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
  55 | Result #+CALL          | ge1 | gh2 | --3 | ge4 | ge5 | --6 | th7 | te8 | --9 |
  56 | Result noweb           | --1 | --2 | --3 | --4 | --5 | --6 | th7 | te8 | --9 |
  57
  58 #+CALL: showvar() :results silent
  59 #+BEGIN_SRC emacs-lisp
  60 <<showvar>>
  61 #+END_SRC
  62
  63 ** Accumulate
  64   :PROPERTIES:
  65   :ID:       1d97d258-fd50-4107-a095-e4625bffc57b
  66   :header-args+: :var t2="th2" t3="th3"
  67   :header-args:emacs-lisp+: :var t5="te5" end=8
  68   :END:
  69
  70 | Global                  | t1  | t2  | t3  | t4  | t5  | t6  | t7  | t8  | t9  |
  71 |-------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
  72 | header-args             | gh1 | gh2 | --- | gh4 | --- | --- | --- | --- | --- |
  73 | header-args:emacs-lisp  | ge1 | --- | --- | ge4 | ge5 | --- | --- | --- | --- |
  74 |-------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
  75 | Tree                    | t1  | t2  | t3  | t4  | t5  | t6  | t7  | t8  | t9  |
  76 |-------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
  77 | header-args+            | --- | th2 | th3 | --- | --- | --- | --- | --- | --- |
  78 | header-args:emacs-lisp+ | --- | --- | --- | --- | te5 | --- | --- | --- | --- |
  79 |-------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
  80 | Result #+CALL           | ge1 | th2 | th3 | ge4 | te5 | --6 | --7 | --8 | --9 |
  81 | Result noweb            | ge1 | th2 | th3 | ge4 | te5 | --6 | --7 | --8 | --9 |
  82
  83 #+CALL: showvar(end=6) :results silent
  84 #+BEGIN_SRC emacs-lisp
  85 <<showvar>>
  86 #+END_SRC
  87
  88 ** Complex
  89   :PROPERTIES:
  90   :ID:       fa0e912d-d9b4-47b0-9f9e-1cbb39f7cbc2
  91   :header-args+: :var t2="th2"
  92   :header-args:emacs-lisp: :var t5="te5" end=7
  93   :header-args:emacs-lisp+: :results silent :noweb yes :var end=9
  94   :END:
  95
  96 | Global                 | t1  | t2  | t3  | t4  | t5  | t6  | t7  | t8  | t9  |
  97 |------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
  98 | header-args            | gh1 | gh2 | --- | gh4 | --- | --- | --- | --- | --- |
  99 | header-args:emacs-lisp | ge1 | --- | --- | ge4 | ge5 | --- | --- | --- | --- |
 100 |------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
 101 | Tree                   | t1  | t2  | t3  | t4  | t5  | t6  | t7  | t8  | t9  |
 102 |------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
 103 | header-args+           | --- | th2 | --- | --- | --- | --- | --- | --- | --- |
 104 | header-args:emacs-lisp | --- | --- | --- | --- | te5 | --- | --- | --- | --- |
 105 |------------------------+-----+-----+-----+-----+-----+-----+-----+-----+-----|
 106 | Result #+CALL          | gh1 | th2 | go3 | gh4 | te5 | --6 | --7 | --8 | --9 |
 107 | Result noweb           | gh1 | th2 | --3 | gh4 | te5 | --6 | --7 | --8 | --9 |
 108
 109 #+CALL: showvar(end=6) :results silent
 110 #+BEGIN_SRC emacs-lisp
 111 <<showvar>>
 112 #+END_SRC