unroff/misc/sample.unroff

15 lines
407 B
Plaintext
Raw Normal View History

2023-02-13 08:45:50 -05:00
;;;; -*-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))