File: no-margin

package info (click to toggle)
sdc 1.0.8beta-8
  • links: PTS
  • area: contrib
  • in suites: slink
  • size: 1,400 kB
  • ctags: 874
  • sloc: lisp: 8,120; ansic: 967; makefile: 671; perl: 136; sh: 50
file content (12 lines) | stat: -rw-r--r-- 288 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
 
; set the margins to nothing, best for ascii
; at the moment only with lout

(define (ascii-no-margins)
  (set! lout-both-margin "0c")
  (set! lout-inner-margin "0c")
  (set! lout-outer-margin "0c")
  (set! lout-pagetype "Executive")
  #t
  )

(doc-preprocess-hook 'add ascii-no-margins)