|
|
A Scribe style is a customization
file that can be loaded before the document is processed. A description
of the existing styles can be found in the
package documentation.
| (style . styles) | Scribe function |
This function loads style files. That is, it configures
the Scribe compiler according to the specification of the loaded files.
The load path of style files is the value of the variable
*scribe-style-path*. It can
be set by the mean of a Scribe
command line option.
Note: the style
function must be called before
the document call. Otherwise it has no effect.
As an example, here is the global style used to
render this document:
;*=====================================================================*/
;* serrano/prgm/project/scribe/styles/manual.scr */
;* ------------------------------------------------------------- */
;* Author : Manuel Serrano */
;* Creation : Wed Nov 28 10:39:47 2001 */
;* Last change : Thu Apr 11 13:39:52 2002 (serrano) */
;* Copyright : 2001-02 Manuel Serrano */
;* ------------------------------------------------------------- */
;* The Scribe manuals style */
;*=====================================================================*/
;*---------------------------------------------------------------------*/
;* Coloring */
;*---------------------------------------------------------------------*/
(define *prgm-color* "#ffffcc")
(define *html-color* "#ccccff")
(define *example-color* "#ccccff")
(define *display-color* "#ccffcc")
(define *keyword-color* "#00cf00")
(set! *scribe-background* "#ffefd5")
(set! *scribe-foreground* "black")
(set! *scribe-tbackground* "#ffe4c4")
(set! *scribe-tforeground* "#800020")
(set! *scribe-prgm-color* *prgm-color*)
;*---------------------------------------------------------------------*/
;* Display width */
;*---------------------------------------------------------------------*/
(define *display-width* .9)
;*---------------------------------------------------------------------*/
;* Footer */
;*---------------------------------------------------------------------*/
(if (scribe-format? 'html)
(set! *scribe-footer* [
,(hrule) ,(font :size -1 [
This page has been generated by ,(ref :url (scribe-url) "Scribe").
,(linebreak)
Last update ,(it (date))])]))
;*---------------------------------------------------------------------*/
;* Fonts */
;*---------------------------------------------------------------------*/
(set! *scribe-title-font* "face=\"sans-serif\" size='+10'")
(set! *scribe-author-font* "size='+5'")
(set! *scribe-index-font-size* "+5")
;*---------------------------------------------------------------------*/
;* HTML Sections */
;*---------------------------------------------------------------------*/
(if (scribe-format? 'html)
(begin
(set! *scribe-html-section-title-start*
(lambda ()
(print "<table width=\"100%\">")
(print "<tr><td bgcolor=\"" *scribe-tbackground* "\">")
(print "<font face=\"sans-serif\" size=\"+1\"><b>")))
(set! *scribe-html-section-title-stop*
(lambda ()
(print "</b></font></td></tr></table><p>")))))
;*---------------------------------------------------------------------*/
;* TeX ... */
;*---------------------------------------------------------------------*/
(if (scribe-format? 'tex)
(begin
(set! *scribe-tex-document-class* "book")
(set! *scribe-tex-packages* (cons "fullpage" *scribe-tex-packages*))))
;*---------------------------------------------------------------------*/
;* Numbering */
;*---------------------------------------------------------------------*/
(set! *scribe-chapter-numbering*
(lambda (x) x)) |
|