Home Explore Help
Sign In
swflint
/
org-mode-mirror
1
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Tree: 1fd92b6637
Branches Tags
org-mode-mir...
/
testing
/
examples
/
babel.org

babel.org 12 KB
History Raw

a collection of examples for Babel tests

:noweb header argument expansion 

  (message "expanded1")

  (message "expanded2")

;; noweb-1-yes-start
  <<noweb-example>>

;; noweb-no-start
  <<noweb-example1>>

;; noweb-2-yes-start
  <<noweb-example2>>

  ;; noweb-tangle-start
  <<noweb-example1>>
  <<noweb-example2>>

:noweb header argument expansion using :exports results 

  (message "expanded1")

  (message "expanded2")

;; noweb-1-yes-start
  <<noweb-example>>

;; noweb-no-start
  <<noweb-example1>>

;; noweb-2-yes-start
  <<noweb-example2>>

  <<noweb-example1>>
  <<noweb-example2>>

excessive id links on tangling

no, don't give me an ID 

  (message "not to be tangled")

yes, I'd love an ID 

  (message "for tangling")

simple named code block 

  42

42

42

Pascal's Triangle – exports both test 

  (require 'cl)
  (defalias 'my-map (if (org-version-check "24.2.50" "cl" :predicate)
                        'cl-map
                      'map))
  (defun pascals-triangle (n)
    (if (= n 0)
        (list (list 1))
      (let* ((prev-triangle (pascals-triangle (- n 1)))
             (prev-row (car (reverse prev-triangle))))
        (append prev-triangle
                (list (my-map 'list #'+
                              (append prev-row '(0))
                              (append '(0) prev-row)))))))
  
  (pascals-triangle n)

calling code blocks from inside table 

  (sqrt n)

executing an lob call line

This is an inline call call_echo(input="testing") embedded in prose. This is an inline call call_echo(input="testing")[:results vector] embedded in prose.

call_echo("testing") call_concat(1,2,3) 

  (format "%S%S%S" a b c)

exporting an lob call line 

  (* 2 it)

The following exports as a normal call line

Now here is an inline call call_double(it=1) stuck in the middle of some prose.

This one should not be exported call_double(it=2) because it is quoted.

Finally this next one should export, even though it starts a line call_double(it=3) because sometimes inline blocks fold with a paragraph.

And, a call with raw results call_double(4)[:results raw] should not have quoted results.

The following 2*5=call_double(5) should export even when prefixed by an = sign.

inline source block

Here is one in the middle src_sh{echo 1} of a line. Here is one at the end of a line. src_sh{echo 2} src_sh{echo 3} Here is one at the beginning of a line.

exported inline source block

Here is one in the middle src_sh{echo 1} of a line. Here is one at the end of a line. src_sh{echo 2} src_sh{echo 3} Here is one at the beginning of a line. Here is one that is also evaluated: src_sh[:exports both]{echo 4}

mixed blocks with exports both

  • a

  • b

  • c 

    "code block results"

  (reverse lst)

using the :noweb-ref header argument 

  <<fullest-disk>>

query all mounted disks 

  df

strip the header row 

  |sed '1d'

sort by the percent full 

  |awk '{print $5 " " $6}'|sort -n |tail -1

extract the mount point 

  |awk '{print $2}'

resolving sub-trees as references 

  (length text)

  <<simple-subtree>>
  <<d4faa7b3-072b-4dcf-813c-dd7141c633f3>>

simple subtree with custom ID

this is simple

simple subtree with global ID

has length 14

exporting a code block with a name

exporting a code block with a name 

  echo bar

noweb no-export and exports both

Weird interaction.

here is one block 

  echo 1

and another 

  # I am inside the code block
  <<noweb-no-export-and-exports-both-1>>

in order evaluation on export

First. 

  (push it *evaluation-collector*)

Second 

  (push 2 *evaluation-collector*)

Third src_emacs-lisp{(car (push 3 evaluation-collector))}

Fourth

Fifth 

  (push 5 *evaluation-collector*)

exporting more than just results from a call line

Here is a call line with more than just the results exported.

strip noweb references on export 

  i="10"

  <<strip-export-1>>
  echo "1$i"

use case of reading entry properties

Use case checked and documented with this test: During their evaluation the source blocks read values from properties from the entry where the call has been made unless the value is overridden with the optional argument of the caller.

section

Note: Just export of a property can be done with a macro: {{{property(a)}}}.

  • sect inline call_src_block_location_shell()[:results raw]

  • sect inline call_src_block_location_elisp()[:results raw]

    subsection

  • sub0 inline call_src_block_location_shell()[:results raw]

  • sub0 inline call_src_block_location_elisp()[:results raw]

  • sub1 inline call_src_block_location_shell(c=5, e=6)[:results raw]

  • sub1 inline call_src_block_location_elisp(c=5, e=6)[:results raw]

    function definition

comments for ":var":

  • The "or" is to deal with a property not present.

  • The t is to get property inheritance. 

  printf "shell a:$a, b:$b, c:$c, d:$d, e:$e"

  (setq
   ;; - The first `or' together with ":var <var>='nil" is to check for
   ;;   a value bound from an optional call argument, in the examples
   ;;   here: c=5, e=6
   ;; - The second `or' is to deal with a property not present
   ;; - The t is to get property inheritance
   a (or a (string-to-number
            (or (org-entry-get org-babel-current-src-block-location "a" t)
                "0")))
   b (or b (string-to-number
            (or (org-entry-get org-babel-current-src-block-location "b" t)
                "0")))
   c (or c (string-to-number
            (or (org-entry-get org-babel-current-src-block-location "c" t)
                "0")))
   d (or d (string-to-number
            (or (org-entry-get org-babel-current-src-block-location "e" t)
                "0")))
   e (or e (string-to-number
            (or (org-entry-get org-babel-current-src-block-location "d" t)
                "0"))))
  (format "elisp a:%d, b:%d, c:%d, d:%d, e:%d" a b c d e)

:file-ext and :output-dir header args 

nil

nil

nil

nil

nil

nil