;;; -*- coding: utf-8 -*-

(define-module (skribilo engine para)
  :use-module (skribilo ast)
  :use-module (skribilo engine)
  :autoload   (skribilo output) (output)
  :use-module (skribilo utils syntax)
  :use-module (skribilo writer)
  :export (para-engine))

(skribilo-module-syntax)

(define para-engine
  (make-engine 'para
               :version 1.0
               :delegate (find-engine 'base)))


(markup-writer
 'paragraph
 :options '(:text)
 :action
 (lambda (n e)
   (let ((text (markup-option n :text)))
     (if text
         (begin
           (display text)
           (newline))
         (begin
           (output (markup-body n) e)
           (newline))))))