Commit 46d61179 authored by Ludovic Courtès's avatar Ludovic Courtès

activity-report-2018: Tweak style.

* doc/build.scm (markdown->lout): Add a back cover, use a large font
size, enable margin kerning.
* doc/doc-style.lout: Make margins smaller.
parent 8935902a
......@@ -85,6 +85,13 @@ directory containing Lout files."
(map sxml->skribilo strings))
((? string? str) str)))
(define (back-cover)
(! (format #f "@NP
#@I { \"https://guix-hpc.bordeaux.inria.fr/\"
//1rt
@Right 0.9 @Scale @IncludeGraphic { ~s }\n"
#+(svg->eps logo "guix-logo.eps"))))
(define top
;; The Skribilo document.
(document
......@@ -93,7 +100,8 @@ directory containing Lout files."
(author #:name name))
(string-split (assoc-ref headers 'author)
#\,))
(map sxml->skribilo body)))
(map sxml->skribilo body)
(back-cover)))
(define %unicode-chars
;; XXX: The Lout engine in Skribilo 0.9.4 doesn't automatically
......@@ -109,17 +117,18 @@ directory containing Lout files."
(#\… "...")))
(define (make-front-cover doc engine)
(format #t "0.9 @Scale { @IncludeGraphic { ~s } }"
(format #t "{ @IncludeGraphic { ~s } }"
#+(svg->eps logo "guix-logo.eps"))
(output (! "
//0.3c { Helvetica Bold 8p } @Font \"darkgrey\" @Color
//0.3c { Helvetica Bold 9p } @Font \"darkgrey\" @Color
{ Reproducible software deployment for high-performance computing. }
//0.6rt { Helvetica Bold 22p } @Font { Activity Report 2017--2018 }
//0.6rt { Helvetica Bold 24p } @Font { Activity Report 2017--2018 }
//1rt
{ Helvetica Base 8p } @Font \"darkgrey\" @Color { $1 }
{ Helvetica Base 9p } @Font \"darkgrey\" @Color { $1 }
@NP\n
@NP\n" ;page 2 must be empty
@NP # page 2 must be empty
//.2bt\n"
(assoc-ref headers 'author))
engine))
......@@ -138,10 +147,11 @@ directory containing Lout files."
(engine-custom-set! lout-engine 'document-include
"@Include { doc-style.lout }\n")
(engine-custom-set! lout-engine 'initial-font
"GentiumPlus Base 9p")
"GentiumPlus Base 11p")
(engine-custom-set! lout-engine 'initial-break
(string-append "unbreakablefirst "
"unbreakablelast "
"marginkerning "
"hyphen adjust 1.3fx"))
(engine-custom-set! lout-engine 'includes
(string-append
......
......@@ -41,7 +41,7 @@
@Use { @BasicSetup
# @InitialFont { Times Base 12p } # initial font
# @InitialBreak {{adjust 1.2fx hyphen} @OrIfPlain {ragged 1fx nohyphen}}
@InitialBreak { unbreakablefirst unbreakablelast hyphen adjust marginkerning 1.3fx }
# @InitialOutdent { 2f @OrIfPlain 4s } # initial outdent
# @InitialSpace { lout } # initial space style
# @InitialLanguage { English } # initial language
......@@ -88,12 +88,12 @@
# @PageHeight { 66f } # page height if type Other
# @PageOrientation { Portrait } # Portrait, Landscape, etc.
# @PageBackground { } # background of each page
@TopMargin { 1.6c @OrIfPlain 6f } # top margin of all pages
@FootMargin { 2.8c @OrIfPlain 6f } # bottom margin of all pages
@OddLeftMargin { 1.8c @OrIfPlain 10s } # left margin of odd pages
@OddRightMargin { 2.8c @OrIfPlain 10s } # right margin of odd pages
@EvenLeftMargin { 2.8c @OrIfPlain 10s } # left margin of even pages
@EvenRightMargin { 1.8c @OrIfPlain 10s } # right margin of even pages
@TopMargin { 1.0c @OrIfPlain 6f } # top margin of all pages
@FootMargin { 2.0c @OrIfPlain 6f } # bottom margin of all pages
@OddLeftMargin { 1.2c @OrIfPlain 10s } # left margin of odd pages
@OddRightMargin { 2.0c @OrIfPlain 10s } # right margin of odd pages
@EvenLeftMargin { 2.0c @OrIfPlain 10s } # left margin of even pages
@EvenRightMargin { 1.2c @OrIfPlain 10s } # right margin of even pages
# @OddLeftBodyMargin { 0c } # extra margin for page body
# @OddRightBodyMargin { 0c } # extra margin for page body
# @EvenLeftBodyMargin { 0c } # extra margin for page body
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment