mirror of https://github.com/tLDP/LDP
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:
parent
cb032c4908
commit
a6d45f9372
|
@ -280,8 +280,9 @@
|
||||||
;;
|
;;
|
||||||
(define (shade-verbatim-element-colors element)
|
(define (shade-verbatim-element-colors element)
|
||||||
(case element
|
(case element
|
||||||
(("SYNOPSIS") (list "#000000" "#6495ed"))
|
(("SYNOPSIS") (list "#000000" "#6495ED"))
|
||||||
(("PROGRAMLISTING") (list "#000000" "#98FB98"))
|
(("PROGRAMLISTING") (list "#000000" "#E0E0E0"))
|
||||||
|
(("SCREEN") (list "#000000" "#E0E0E0"))
|
||||||
;; ...
|
;; ...
|
||||||
;; Add your verbatim elements here
|
;; Add your verbatim elements here
|
||||||
;; ...
|
;; ...
|
||||||
|
@ -289,7 +290,10 @@
|
||||||
|
|
||||||
(define (shade-verbatim-attr-element element)
|
(define (shade-verbatim-attr-element element)
|
||||||
(list
|
(list
|
||||||
(list "BORDER" "0")
|
(list "BORDER"
|
||||||
|
(cond
|
||||||
|
((equal? element (normalize "SCREEN")) "1")
|
||||||
|
(else "0")))
|
||||||
(list "BGCOLOR" (car (cdr (shade-verbatim-element-colors element))))
|
(list "BGCOLOR" (car (cdr (shade-verbatim-element-colors element))))
|
||||||
(list "WIDTH" ($table-width$))))
|
(list "WIDTH" ($table-width$))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue