1 #+TITLE: Tests for default header arguments to Babel source blocks
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
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)
21 :ID: 3fdadb69-5d15-411e-aad0-f7860cdd7816
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 |
31 #+CALL: showvar() :results silent
32 #+BEGIN_SRC emacs-lisp :var end=7
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
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 |
58 #+CALL: showvar() :results silent
59 #+BEGIN_SRC emacs-lisp
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
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 |
83 #+CALL: showvar(end=6) :results silent
84 #+BEGIN_SRC emacs-lisp
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
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 |
109 #+CALL: showvar(end=6) :results silent
110 #+BEGIN_SRC emacs-lisp