From 20b51395ade2d520b83530aa548947a1a53fad4a Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Thu, 6 Apr 2006 16:36:26 +0000
Subject: Small aesthetic changes in the Lout engine.

* src/guile/skribilo/engine/lout.scm (lout-make-doc-cover-sheet): Added
  an appropriate `@Break' setting for the title.
  (lout-engine)[:symbol-table]: Don't produce additional space around
  `@Eq'.

* src/guile/skribilo/package/eq/lout.scm (eq): Don't produce additional
  space around `@Eq'.

git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-78
---
 src/guile/skribilo/engine/lout.scm     | 4 ++--
 src/guile/skribilo/package/eq/lout.scm | 7 ++-----
 2 files changed, 4 insertions(+), 7 deletions(-)

(limited to 'src/guile')

diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 3d86eb4..8727df8 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -405,7 +405,7 @@
 	;; In single-column document, `@FullWidth' yields a blank page.
 	(display "\n@FullWidth {"))
     (display "\n//3.0fx\n")
-    (display "\n@Center 1.4f @Font @B { ")
+    (display "\n@Center 1.4f @Font @B { cragged nohyphen 1.4fx } @Break { ")
     (if title
        (output title engine)
        (display "The Lout Document"))
@@ -698,7 +698,7 @@
 				(string-append "{ { Symbol Base } @Font "
 					       "@Char \"" m "\" }"))
 			      (lambda (m)
-				(format #f "@Eq { ~a }\n" m)))))
+				(format #f "{ @Eq { ~a } }" m)))))
 
 
 ;; So that calls to `markup-writer' automatically use `lout-engine'...
diff --git a/src/guile/skribilo/package/eq/lout.scm b/src/guile/skribilo/package/eq/lout.scm
index bd2ccf4..561e4cb 100644
--- a/src/guile/skribilo/package/eq/lout.scm
+++ b/src/guile/skribilo/package/eq/lout.scm
@@ -52,16 +52,13 @@
 ;;;
 
 
-;; FIXME:  Reimplement the `symbol' writer so that `@Sym' is not used within
-;; equations (e.g. output `alpha' instead of `{ @Sym alpha }').
-
 (markup-writer 'eq (find-engine 'lout)
-   :before "\n@Eq { "
+   :before "{ @Eq { "
    :action (lambda (node engine)
 	      (let ((eq (markup-body node)))
 		 ;(fprint (current-error-port) "eq=" eq)
 		 (output eq engine)))
-   :after  " }\n")
+   :after  " } }")
 
 
 ;;
-- 
cgit v1.2.3