18084 metaperl (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)) 3351889264 #xemacs