mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

texinfo: Add '*line-width*' fluid to control line wrapping.

Browse source 
* module/texinfo/plain-text.scm (*line-width*): New variable.
(wrap*): Honor it.
* doc/ref/texinfo.texi (texinfo plain-text): Document it.
* test-suite/tests/texinfo.plain-text.test: New file.
* test-suite/Makefile.am (SCM_TESTS): Add it.
This commit is contained in:
Ludovic Courtès 2020-01-29 14:56:17 +01:00
parent f2781c9604
commit c4b2bd3781
4 changed files with 49 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
module/texinfo/plain-text.scm
View file

@ -1,6 +1,6 @@
;;;; (texinfo plain-text) -- rendering stexinfo as plain text
;;;;
;;;; Copyright (C) 2009, 2010, 2011, 2013 Free Software Foundation, Inc.
;;;; Copyright (C) 2009, 2010, 2011, 2013, 2020 Free Software Foundation, Inc.
;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com>
;;;;
;;;; This library is free software; you can redistribute it and/or
@ -32,7 +32,8 @@
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-13)
#:use-module (ice-9 match)
#:export (stexi->plain-text))
#:export (stexi->plain-text
*line-width*))
;; The return value is a string.
(define (arg-ref key %-args)
@ -52,6 +53,7 @@
(define *indent* (make-fluid ""))
(define *itemizer* (make-fluid (make-ticker "* ")))
(define *line-width* (make-fluid 72))
(define-macro (with-indent n . body)
`(with-fluids ((*indent* (string-append (fluid-ref *indent*)
@ -69,9 +71,10 @@
,@body))
(define (wrap* . strings)
(let ((indent (fluid-ref *indent*)))
(let ((indent (fluid-ref *indent*))
(width (fluid-ref *line-width*)))
(fill-string (string-concatenate strings)
#:line-width 72 #:initial-indent indent
#:line-width width #:initial-indent indent
#:subsequent-indent indent)))
(define (wrap . strings)
(string-append (apply wrap* strings) "\n\n"))