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
 160 * parsing header arguments
 161   :PROPERTIES:
 162   :ID:       7eb0dc6e-1c53-4275-88b3-b22f3113b9c3
 163   :END:
 164
 165 #+begin_src example-lang :session     :results output :var num=9
 166   the body
 167 #+end_src
 168 * conflicting blocks on export
 169   :PROPERTIES:
 170   :ID:       5daa4d03-e3ea-46b7-b093-62c1b7632df3
 171   :END:
 172 #+results: a-list
 173 - a
 174 - b
 175 - c
 176
 177 #+begin_src emacs-lisp :results wrap :exports both
 178     "code block results"
 179 #+end_src
 180 #+begin_src emacs-lisp :var lst=a-list :results list
 181   (reverse lst)
 182 #+end_src
 183 * using the =:noweb-ref= header argument
 184   :PROPERTIES:
 185   :ID:       54d68d4b-1544-4745-85ab-4f03b3cbd8a0
 186   :END:
 187
 188 #+begin_src sh :tangle yes :noweb yes :shebang #!/bin/sh
 189   <<fullest-disk>>
 190 #+end_src
 191
 192 ** query all mounted disks
 193 #+begin_src sh :noweb-ref fullest-disk
 194   df \
 195 #+end_src
 196
 197 ** strip the header row
 198 #+begin_src sh :noweb-ref fullest-disk
 199   |sed '1d' \
 200 #+end_src
 201
 202 ** sort by the percent full
 203 #+begin_src sh :noweb-ref fullest-disk
 204   |awk '{print $5 " " $6}'|sort -n |tail -1 \
 205 #+end_src
 206
 207 ** extract the mount point
 208 #+begin_src sh :noweb-ref fullest-disk
 209   |awk '{print $2}'
 210 #+end_src