fix-help-header ( classes -- classes )

Vocabulary

help.html

Inputs

classes

an object

Outputs

classes

an object

Definition

USING: kernel sequences splitting ;

IN: help.html

: fix-help-header ( classes -- classes )
    dup [ [ ".a" head? ] [ "#f4efd9;" subseq-of? ] bi and ] find 
    [
        "padding: 10px;" "" replace
        "background-color: #f4efd9;" "" replace "}" ?tail drop
        " border-bottom: 1px dashed #d5d5d5; width: 100%; padding-top:..."
        append swap pick set-nth {
            ".a a { color: black; font-size: 24pt; line-height: 100%; }"
            ".a * a { color: #2a5db0; font-size: 12pt; }"
            ".a td { border: none; }"
            ".a tr:hover { background-color: transparent }"
        } prepend
    ] [ drop ] if* ;