LDP
/
LDP
mirror of https://github.com/tLDP/LDP
0
1
Fork 0
Code Releases Activity

fix for green/black <screen> tag; made it light gray shading with black text in a table that has a border of 1 (vs. 0)

This commit is contained in:
gferg 2001-07-17 14:42:42 +00:00
parent cb032c4908
commit a6d45f9372
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
LDP/builder/dsssl/ldp.dsl
View File

@ -280,8 +280,9 @@
;;
(define (shade-verbatim-element-colors element)
(case element
(("SYNOPSIS") (list "#000000" "#6495ed"))
(("PROGRAMLISTING") (list "#000000" "#98FB98"))
(("SYNOPSIS") (list "#000000" "#6495ED"))
(("PROGRAMLISTING") (list "#000000" "#E0E0E0"))
(("SCREEN") (list "#000000" "#E0E0E0"))
;; ...
;; Add your verbatim elements here
;; ...
@ -289,7 +290,10 @@
(define (shade-verbatim-attr-element element)
(list
(list "BORDER" "0")
(list "BORDER"
(cond
((equal? element (normalize "SCREEN")) "1")
(else "0")))
(list "BGCOLOR" (car (cdr (shade-verbatim-element-colors element))))
(list "WIDTH" ($table-width$))))