testing/examples/babel.org

   1 #+Title: a collection of examples for Babel tests
   2 #+OPTIONS: ^:nil
   3
   4 * =:noweb= header argument expansion
   5   :PROPERTIES:
   6   :ID:       eb1f6498-5bd9-45e0-9c56-50717053e7b7
   7   :END:
   8
   9 #+source: noweb-example
  10 #+begin_src emacs-lisp
  11   (message "expanded")
  12 #+end_src
  13
  14 #+begin_src emacs-lisp :noweb yes
  15   ;; noweb-yes-start
  16   <<noweb-example>>
  17   ;; noweb-yes-end
  18 #+end_src
  19
  20 #+begin_src emacs-lisp :noweb no
  21   ;; noweb-no-start
  22   <<noweb-example>>
  23   ;; noweb-no-end
  24 #+end_src
  25
  26 #+begin_src emacs-lisp :noweb tangle
  27   ;; noweb-tangle-start
  28   <<noweb-example>>
  29   ;; noweb-tangle-end
  30 #+end_src
  31
  32 * elisp forms in header arguments
  33   :PROPERTIES:
  34   :ID:       22d67284-bf14-4cdc-8319-f4bd876829d7
  35   :var:      prop=(+ 2 2)
  36   :END:
  37
  38 #+begin_src emacs-lisp
  39   prop
  40 #+end_src
  41
  42 #+results:
  43 : 4
  44
  45 * excessive id links on tangling
  46   :PROPERTIES:
  47   :ID:       ef06fd7f-012b-4fde-87a2-2ae91504ea7e
  48   :END:
  49
  50 ** no, don't give me an ID
  51 #+begin_src emacs-lisp :tangle no
  52   (message "not to be tangled")
  53 #+end_src
  54
  55 ** yes, I'd love an ID
  56    :PROPERTIES:
  57    :ID:       ae7b55ca-9ef2-4d30-bd48-da30e35fd0f3
  58    :END:
  59 #+begin_src emacs-lisp :tangle no
  60   (message "for tangling")
  61 #+end_src
  62 * simple variable resolution
  63   :PROPERTIES:
  64   :ID:       f68821bc-7f49-4389-85b5-914791ee3718
  65   :END:
  66
  67 #+source: four
  68 #+begin_src emacs-lisp
  69   (list 1 2 3 4)
  70 #+end_src
  71
  72 #+begin_src emacs-lisp :var four=four
  73   (length four)
  74 #+end_src
  75
  76 #+results:
  77 : 4
  78
  79 * multi-line header arguments
  80   :PROPERTIES:
  81   :ID:       b77c8857-6c76-4ea9-8a61-ddc2648d96c4
  82   :END:
  83
  84 #+headers: :var letters='(a b c d e f g)
  85 #+begin_src emacs-lisp :var numbers='(1 2 3 4 5 6 7)
  86   (map 'list #'list numbers letters)
  87 #+end_src
  88
  89 #+results:
  90 | 1 | a |
  91 | 2 | b |
  92 | 3 | c |
  93 | 4 | d |
  94 | 5 | e |
  95 | 6 | f |
  96 | 7 | g |
  97
  98 * simple named code block
  99   :PROPERTIES:
 100   :ID:       0d82b52d-1bb9-4916-816b-2c67c8108dbb
 101   :END:
 102
 103 #+source: i-have-a-name
 104 #+begin_src emacs-lisp
 105   42
 106 #+end_src
 107
 108 #+results:
 109 : 42
 110
 111 #+results: i-have-a-name
 112 : 42
 113
 114 * Pascal's Triangle -- export test
 115   :PROPERTIES:
 116   :ID:       92518f2a-a46a-4205-a3ab-bcce1008a4bb
 117   :END:
 118
 119 #+source: pascals-triangle
 120 #+begin_src emacs-lisp :var n=5 :exports both
 121   (defun pascals-triangle (n)
 122     (if (= n 0)
 123         (list (list 1))
 124       (let* ((prev-triangle (pascals-triangle (- n 1)))
 125              (prev-row (car (reverse prev-triangle))))
 126         (append prev-triangle
 127                 (list (map 'list #'+
 128                            (append prev-row '(0))
 129                            (append '(0) prev-row)))))))
 130
 131   (pascals-triangle n)
 132 #+end_src
 133
 134 * calling code blocks from inside table
 135   :PROPERTIES:
 136   :ID:       6d2ff4ce-4489-4e2a-9c65-e3f71f77d975
 137   :END:
 138
 139 #+source: take-sqrt
 140 #+begin_src emacs-lisp :var n=9
 141   (sqrt n)
 142 #+end_src
 143
 144 * executing an lob call line
 145   :PROPERTIES:
 146   :results:  silent
 147   :ID:       fab7e291-fde6-45fc-bf6e-a485b8bca2f0
 148   :END:
 149
 150 #+call: echo(input="testing")
 151 #+call: echo(input="testing") :results vector
 152 #+call: echo[:var input="testing"]()
 153 #+call: echo[:var input="testing"]() :results vector
 154 #+call: echo("testing")
 155 #+call: echo("testing") :results vector
 156 This is an inline call call_echo(input="testing") embedded in prose.
 157 This is an inline call call_echo(input="testing")[:results vector] embedded in prose.
 158 #+call: lob-minus(8, 4)
 159 call_echo("testing")
 160 call_concat(1,2,3)
 161
 162 #+source: concat
 163 #+begin_src emacs-lisp :var a=0 :var b=0 :var c=0
 164   (format "%S%S%S" a b c)
 165 #+end_src
 166
 167 * exporting an lob call line
 168   :PROPERTIES:
 169   :ID:       72ddeed3-2d17-4c7f-8192-a575d535d3fc
 170   :END:
 171
 172 #+source: double
 173 #+begin_src emacs-lisp :var it=0
 174   (* 2 it)
 175 #+end_src
 176
 177 The following exports as a normal call line
 178 #+call: double(it=0)
 179
 180 Now here is an inline call call_double(it=1) stuck in the middle of
 181 some prose.
 182
 183 This one should not be exported =call_double(it=2)= because it is
 184 quoted.
 185
 186 Finally this next one should export, even though it starts a line
 187 call_double(it=3) because sometimes inline blocks fold with a
 188 paragraph.
 189
 190 And, a call with raw results call_double(4)[:results raw] should not
 191 have quoted results.
 192
 193 The following 2*5=call_double(5) should export even when prefixed by
 194 an = sign.
 195
 196 * parsing header arguments
 197   :PROPERTIES:
 198   :ID:       7eb0dc6e-1c53-4275-88b3-b22f3113b9c3
 199   :END:
 200
 201 #+begin_src example-lang :session     :results output :var num=9
 202   the body
 203 #+end_src
 204 * conflicting blocks on export
 205   :PROPERTIES:
 206   :ID:       5daa4d03-e3ea-46b7-b093-62c1b7632df3
 207   :END:
 208 #+results: a-list
 209 - a
 210 - b
 211 - c
 212
 213 #+begin_src emacs-lisp :results wrap :exports both
 214     "code block results"
 215 #+end_src
 216 #+begin_src emacs-lisp :var lst=a-list :results list
 217   (reverse lst)
 218 #+end_src
 219 * using the =:noweb-ref= header argument
 220   :PROPERTIES:
 221   :ID:       54d68d4b-1544-4745-85ab-4f03b3cbd8a0
 222   :END:
 223
 224 #+begin_src sh :tangle yes :noweb yes :shebang #!/bin/sh
 225   <<fullest-disk>>
 226 #+end_src
 227
 228 ** query all mounted disks
 229 #+begin_src sh :noweb-ref fullest-disk
 230   df \
 231 #+end_src
 232
 233 ** strip the header row
 234 #+begin_src sh :noweb-ref fullest-disk
 235   |sed '1d' \
 236 #+end_src
 237
 238 ** sort by the percent full
 239 #+begin_src sh :noweb-ref fullest-disk
 240   |awk '{print $5 " " $6}'|sort -n |tail -1 \
 241 #+end_src
 242
 243 ** extract the mount point
 244 #+begin_src sh :noweb-ref fullest-disk
 245   |awk '{print $2}'
 246 #+end_src
 247 * resolving sub-trees as references
 248   :PROPERTIES:
 249   :ID:       2409e8ba-7b5f-4678-8888-e48aa02d8cb4
 250   :results:  silent
 251   :END:
 252
 253 #+begin_src emacs-lisp :var text=d4faa7b3-072b-4dcf-813c-dd7141c633f3
 254   (length text)
 255 #+end_src
 256
 257 #+begin_src org :noweb yes
 258   <<simple-subtree>>
 259   <<d4faa7b3-072b-4dcf-813c-dd7141c633f3>>
 260 #+end_src
 261
 262 ** simple subtree with custom ID
 263    :PROPERTIES:
 264    :CUSTOM_ID: simple-subtree
 265    :END:
 266 this is simple
 267
 268 ** simple subtree with global ID
 269    :PROPERTIES:
 270    :ID:       d4faa7b3-072b-4dcf-813c-dd7141c633f3
 271    :END:
 272 has length 14