Source

psgml / style.fs

Full commit
andreasj 0762976 






























;;; style.fs --- example style file for fs.el and catalog.sgml -*- lisp -*-

(
 ("example"
  default-top 1
  default-bottom 1)
 ("front")
 ("body")
 ("pubfront" text "")
 ("abstract"
  block t
  before (block t text "ABSTRACT")
  left 4)
 ("p" block t)
 ("title" block t)
 ("titlegrp" block t bottom 2 default-bottom 0 default-top 0)
 ("subtitle" before (text " // "))
 ("list" block t)
 ("head" block t)
 ("item"
  left (+ (fs-char 'left) 3)
  hang-from " * ")
 ("keyword"
  before (text "|")
  after (text "|"))
 ("chapter"  block t  top 2  before (text "CHAPTER"))
 ("lit" block t literal t)
 (t
  before (text (format "<%s>" (sgml-element-gi e)))
  after (text " ")
  )
)