| Paste number 18084: | checking for undef optional args |
| Pasted by: | metaperl |
| When: | 5 years, 10 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+DYC |
| Channel: | #xemacs |
| Paste contents: |
(defun asciidoc-example-block (text example-label example-description)
"create an asciidoc ExampleBlock, using TEXT and optionally modifying the default EXAMPLE-LABEL and EXAMPLE-DESCRIPTION"
(interactive "sText for example block? \nExample label? (defaults to 'Example') \nExample description (defaults to 'An example') ")
(if (not nullp example-label)
(insert "[caption=" "\"" example-label "\""))
(if (not nullp example-description)
(insert "." example-description))
(asciidoc-delimited-block ?= text))This paste has no annotations.