summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/engine/info.scm27
1 files changed, 27 insertions, 0 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index a67288f..d25e584 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -760,5 +760,32 @@
(output label e)
(output ")" e))))
+;*---------------------------------------------------------------------*/
+;* info ::%prog ... */
+;*---------------------------------------------------------------------*/
+(markup-writer 'prog info-engine
+ :options '(:line :mark)
+ :action (lambda (n e)
+ ;; Skip a line and indent the program.
+ (newline)
+ (set! *margin* (+ 2 *margin*))
+ (with-justification
+ (make-justifier *text-column-width* 'verbatim)
+ (lambda ()
+ (output (markup-body n) e)))
+ (set! *margin* (- *margin* 2))))
+
+(markup-writer '&prog-line info-engine
+ :action (lambda (n e)
+ ;; Output the program line on a line of its own.
+ (let ((num (markup-option n :number)))
+ (and (number? num)
+ (output-justified (format #f "~3d: " num))))
+ (output (markup-body n) e)
+ (output-flush *margin*)))
+
+;;; Local Variables:
+;;; eval: (put 'markup-writer 'scheme-indent-function 2)
+;;; End:
;;; info.scm ends here