1 #+Title: a collection of examples for Babel tests
4 * =:noweb= header argument expansion
6 :ID: eb1f6498-5bd9-45e0-9c56-50717053e7b7
10 #+begin_src emacs-lisp :results silent :exports code
14 #+name: noweb-example2
15 #+begin_src emacs-lisp :results silent
19 #+begin_src emacs-lisp :noweb yes :results silent
24 #+begin_src emacs-lisp :noweb no :results silent
29 #+begin_src emacs-lisp :noweb yes :results silent
34 #+begin_src emacs-lisp :noweb tangle :results silent
40 * =:noweb= header argument expansion using :exports results
42 :ID: 8701beb4-13d9-468c-997a-8e63e8b66f8d
46 #+begin_src emacs-lisp :exports results
50 #+name: noweb-example2
51 #+begin_src emacs-lisp :exports results
55 #+begin_src emacs-lisp :noweb yes :exports results
60 #+begin_src emacs-lisp :noweb no :exports code
65 #+begin_src emacs-lisp :noweb yes :exports results
70 #+begin_src emacs-lisp :noweb tangle :exports code
75 * excessive id links on tangling
77 :ID: ef06fd7f-012b-4fde-87a2-2ae91504ea7e
80 ** no, don't give me an ID
81 #+begin_src emacs-lisp :tangle no
82 (message "not to be tangled")
85 ** yes, I'd love an ID
87 :ID: ae7b55ca-9ef2-4d30-bd48-da30e35fd0f3
89 #+begin_src emacs-lisp :tangle no
90 (message "for tangling")
92 * simple named code block
94 :ID: 0d82b52d-1bb9-4916-816b-2c67c8108dbb
98 #+begin_src emacs-lisp
105 #+name: i-have-a-name
108 * Pascal's Triangle -- exports both test
110 :ID: 92518f2a-a46a-4205-a3ab-bcce1008a4bb
113 #+name: pascals-triangle
114 #+begin_src emacs-lisp :var n=5 :exports both
116 (defalias 'my-map (if (org-version-check "24.1.50" "cl" :predicate)
119 (defun pascals-triangle (n)
122 (let* ((prev-triangle (pascals-triangle (- n 1)))
123 (prev-row (car (reverse prev-triangle))))
124 (append prev-triangle
125 (list (my-map 'list #'+
126 (append prev-row '(0))
127 (append '(0) prev-row)))))))
132 * calling code blocks from inside table
134 :ID: 6d2ff4ce-4489-4e2a-9c65-e3f71f77d975
138 #+begin_src emacs-lisp :var n=9
142 * executing an lob call line
145 :ID: fab7e291-fde6-45fc-bf6e-a485b8bca2f0
148 #+call: echo(input="testing")
149 #+call: echo(input="testing") :results vector
150 #+call: echo[:var input="testing"]()
151 #+call: echo[:var input="testing"]() :results vector
152 #+call: echo("testing")
153 #+call: echo("testing") :results vector
154 This is an inline call call_echo(input="testing") embedded in prose.
155 This is an inline call call_echo(input="testing")[:results vector] embedded in prose.
156 #+call: lob-minus(8, 4)
161 #+begin_src emacs-lisp :var a=0 :var b=0 :var c=0
162 (format "%S%S%S" a b c)
165 * exporting an lob call line
167 :ID: 72ddeed3-2d17-4c7f-8192-a575d535d3fc
171 #+begin_src emacs-lisp :var it=0
175 The following exports as a normal call line
178 Now here is an inline call call_double(it=1) stuck in the middle of
181 This one should not be exported =call_double(it=2)= because it is
184 Finally this next one should export, even though it starts a line
185 call_double(it=3) because sometimes inline blocks fold with a
188 And, a call with raw results call_double(4)[:results raw] should not
191 The following 2*5=call_double(5) should export even when prefixed by
194 * inline source block
197 :ID: 54cb8dc3-298c-4883-a933-029b3c9d4b18
199 Here is one in the middle src_sh{echo 1} of a line.
200 Here is one at the end of a line. src_sh{echo 2}
201 src_sh{echo 3} Here is one at the beginning of a line.
203 * mixed blocks with exports both
205 :ID: 5daa4d03-e3ea-46b7-b093-62c1b7632df3
213 #+begin_src emacs-lisp :exports both
217 #+begin_src emacs-lisp :var lst=a-list :results list :exports both
221 * using the =:noweb-ref= header argument
223 :ID: 54d68d4b-1544-4745-85ab-4f03b3cbd8a0
227 #+begin_src sh :tangle yes :noweb yes :shebang #!/bin/sh
231 ** query all mounted disks
232 #+begin_src sh :noweb-ref fullest-disk
236 ** strip the header row
237 #+begin_src sh :noweb-ref fullest-disk
241 ** sort by the percent full
242 #+begin_src sh :noweb-ref fullest-disk
243 |awk '{print $5 " " $6}'|sort -n |tail -1
246 ** extract the mount point
247 #+begin_src sh :noweb-ref fullest-disk
250 * resolving sub-trees as references
252 :ID: 2409e8ba-7b5f-4678-8888-e48aa02d8cb4
256 #+begin_src emacs-lisp :var text=d4faa7b3-072b-4dcf-813c-dd7141c633f3
260 #+begin_src org :noweb yes
262 <<d4faa7b3-072b-4dcf-813c-dd7141c633f3>>
265 ** simple subtree with custom ID
267 :CUSTOM_ID: simple-subtree
271 ** simple subtree with global ID
273 :ID: d4faa7b3-072b-4dcf-813c-dd7141c633f3
277 * org-babel-get-inline-src-block-matches
280 :ID: 0D0983D4-DE33-400A-8A05-A225A567BC74
282 src_sh{echo "One"} block at start of line
283 One spaced block in src_sh{ echo "middle" } of line
284 src_sh{echo 2} blocks on the src_emacs-lisp{"same"} line
285 Inline block with src_sh[:results silent]{ echo "parameters" }.
286 * exporting a code block with a name
288 :ID: b02ddd8a-eeb8-42ab-8664-8a759e6f43d9
291 exporting a code block with a name
293 #+begin_src sh :foo "baz"
296 * noweb no-export and exports both
298 :ID: 8a820f6c-7980-43db-8a24-0710d33729c9
304 #+name: noweb-no-export-and-exports-both-1
305 #+BEGIN_SRC sh :exports none
311 #+BEGIN_SRC sh :noweb no-export :exports both
312 # I am inside the code block
313 <<noweb-no-export-and-exports-both-1>>
316 * in order evaluation on export
319 :ID: 96cc7073-97ec-4556-87cf-1f9bffafd317
323 #+name: foo-for-order-of-evaluation
324 #+begin_src emacs-lisp :var it=1
325 (push it *evaluation-collector*)
329 #+begin_src emacs-lisp
330 (push 2 *evaluation-collector*)
333 Third src_emacs-lisp{(push 3 *evaluation-collector*)}
336 #+call: foo-for-order-of-evaluation(4)
339 #+begin_src emacs-lisp
340 (push 5 *evaluation-collector*)
342 * exporting more than just results from a call line
344 :ID: bec63a04-491e-4caa-97f5-108f3020365c
346 Here is a call line with more than just the results exported.
348 * strip noweb references on export
350 :ID: 8e7bd234-99b2-4b14-8cd6-53945e409775
353 #+name: strip-export-1
354 #+BEGIN_SRC sh :exports none
358 #+BEGIN_SRC sh :noweb strip-export :exports code :results silent