cgit.sxemacs.org Git - packages/blob - xemacs-packages/psgml/style.fs

   1 ;;; style.fs --- example style file for fs.el and catalog.sgml -*- lisp -*-
   2
   3 (
   4  ("example"
   5   default-top 1
   6   default-bottom 1)
   7  ("front")
   8  ("body")
   9  ("pubfront" text "")
  10  ("abstract"
  11   block t
  12   before (block t text "ABSTRACT")
  13   left 4)
  14  ("p" block t)
  15  ("title" block t)
  16  ("titlegrp" block t bottom 2 default-bottom 0 default-top 0)
  17  ("subtitle" before (text " // "))
  18  ("list" block t)
  19  ("head" block t)
  20  ("item"
  21   left (+ (fs-char 'left) 3)
  22   hang-from " * ")
  23  ("keyword"
  24   before (text "|")
  25   after (text "|"))
  26  ("chapter"  block t  top 2  before (text "CHAPTER"))
  27  ("lit" block t literal t)
  28  (t
  29   before (text (format "<%s>" (sgml-element-gi e)))
  30   after (text " ")
  31   )
  32 )