Commit a986eef0 authored by Ludovic Courtès's avatar Ludovic Courtès

activity-report-2018: Use the lab book image on the front cover.

* doc/lab-book-cover.svg: New file.
* doc/build.scm (markdown->lout): Use it on the front cover.
parent 61497633
...@@ -37,6 +37,9 @@ directory containing Lout files." ...@@ -37,6 +37,9 @@ directory containing Lout files."
(define logo (define logo
(local-file "../image-sources/guixhpc-logo-transparent-white.svg")) (local-file "../image-sources/guixhpc-logo-transparent-white.svg"))
(define lab-book
(local-file "lab-book-cover.svg"))
(define build (define build
(with-extensions %authoring-packages (with-extensions %authoring-packages
#~(begin #~(begin
...@@ -121,11 +124,15 @@ directory containing Lout files." ...@@ -121,11 +124,15 @@ directory containing Lout files."
(define (make-front-cover doc engine) (define (make-front-cover doc engine)
(format #t "{ @IncludeGraphic { ~s } }" (format #t "{ @IncludeGraphic { ~s } }"
#+(svg->eps logo "guix-logo.eps")) #+(svg->eps logo "guix-logo.eps"))
(output (! " (format #t "
//0.3c { Helvetica Bold 9p } @Font \"darkgrey\" @Color //0.3c { Helvetica Bold 9p } @Font \"darkgrey\" @Color
{ Reproducible software deployment for high-performance computing. } { Reproducible software deployment for high-performance computing. }
//0.6rt { Helvetica Bold 24p } @Font { Activity Report 2017--2018 } //0.6rt
@Center 0.3 @Scale { @IncludeGraphic { ~s } }\n"
#+(svg->eps lab-book "lab-book.eps"))
(output (! "
//0.8rt { Helvetica Bold 24p } @Font { Activity Report 2017--2018 }
//1rt //1rt
{ Helvetica Base 9p } @Font \"darkgrey\" @Color { $1 } { Helvetica Base 9p } @Font \"darkgrey\" @Color { $1 }
@NP\n @NP\n
......
This diff is collapsed.
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