15 lines
407 B
Scheme
15 lines
407 B
Scheme
;;;; -*-Scheme-*-
|
|
;;;;
|
|
;;;; ~/.unroff -- initializations for unroff
|
|
|
|
(define signature
|
|
(concat "Markup created by <em>%progname%</em> %version%," nbsp nbsp
|
|
"%monthname+% %day%, %year%," nbsp nbsp "net@cs.tu-berlin.de"))
|
|
|
|
(eval-if-mode (* html)
|
|
(set-option! 'mail-address "net@cs.tu-berlin.de"))
|
|
|
|
(eval-if-mode (ms html)
|
|
(set-option! 'title "An `ms' document")
|
|
(set-option! 'signature signature))
|