;***************************************************************************************************
;* *
;* htmlilizeGetColors.el: get all faces and convert their color values into HTML versions. This *
;* runs only, if started within X and not in "-batch" mode. The result *
;* is inserted here and can be copyed into htmlilize.el. *
;* *
;***************************************************************************************************
;***************************************************************************************************
;* *
;* Copyright (C) 2003 Joerg Kunze *
;* *
;* This file is part of siliconBrain. *
;* *
;* siliconBrain is free software; you can redistribute it and/or modify *
;* it under the terms of the GNU General Public License as published by *
;* the Free Software Foundation; either version 2 of the License, or *
;* (at your option) any later version. *
;* *
;* siliconBrain is distributed in the hope that it will be useful, *
;* but WITHOUT ANY WARRANTY; without even the implied warranty of *
;* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
;* GNU General Public License for more details. *
;* *
;* You should have received a copy of the GNU General Public License *
;* along with this program; if not, write to the Free Software *
;* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
;* *
;***************************************************************************************************
(let (
(siliconBrainRelease "$siliconBrainRelease: 0.2.3 $")
(siliconBrainRcsIdentifier "$Id: htmlilizeGetColors.el,v 1.27 2004/12/14 23:31:26 joerg Exp $")
(siliconBrainSaveStamp "$siliconBrainSaveStamp: 2004/12/14 22:34:37, Joerg Kunze$")
(foreground )
(colorValues )
(color0 )
(color1 )
(color2 )
(colorDefinitionLine))
(global-font-lock-mode nil)
(insert "(let (")
(dolist (face (face-list))
(setq foreground (or
(face-foreground face)
(face-foreground (if (facep (face-attribute face :inherit))
(face-attribute face :inherit)
font-lock-builtin-face
))
(face-foreground font-lock-builtin-face)
))
(setq colorValues (color-values foreground))
(setq color0 (nth 0 colorValues))
(setq color1 (nth 1 colorValues))
(setq color2 (nth 2 colorValues))
(setq colorDefinitionLine (format " ( %-28.28s \"%2.2X%2.2X%2.2X\") ; %-20.20s %5d %5d %5d\n"
(symbol-name face)
(lsh color0 -8) (lsh color1 -8) (lsh color2 -8)
foreground
color0 color1 color2
))
(add-text-properties 46 66 (list 'face face) colorDefinitionLine)
(insert colorDefinitionLine)
)
(insert "))")
)
;***************************************************************************************************
;* *
;* after this comment all is generated by the last sexp. *
;* *
;***************************************************************************************************
(let ( ( info-menu-header "B0C4DE") ; LightSteelBlue 45232 50372 57054
( Info-title-4-face "B0C4DE") ; LightSteelBlue 45232 50372 57054
( Info-title-3-face "B0C4DE") ; LightSteelBlue 45232 50372 57054
( Info-title-2-face "B0C4DE") ; LightSteelBlue 45232 50372 57054
( Info-title-1-face "B0C4DE") ; LightSteelBlue 45232 50372 57054
( info-header-node "FFFFFF") ; white 65535 65535 65535
( info-header-xref "00FFFF") ; cyan 0 65535 65535
( info-xref "00FFFF") ; cyan 0 65535 65535
( info-menu-5 "FF0000") ; red1 65535 0 0
( info-node "FFFFFF") ; white 65535 65535 65535
( sh-heredoc-face "FFFF00") ; yellow 65535 65535 0
( makefile-space-face "B0C4DE") ; LightSteelBlue 45232 50372 57054
( texinfo-heading-face "87CEFA") ; LightSkyBlue 34695 52942 64250
( show-paren-mismatch-face "FFFFFF") ; white 65535 65535 65535
( show-paren-match-face "B0C4DE") ; LightSteelBlue 45232 50372 57054
( font-lock-warning-face "FF0000") ; Red 65535 0 0
( font-lock-constant-face "7FFFD4") ; Aquamarine 32639 65535 54484
( font-lock-type-face "98FB98") ; PaleGreen 39064 64507 39064
( font-lock-variable-name-face "EEDD82") ; LightGoldenrod 61166 56797 33410
( font-lock-function-name-face "87CEFA") ; LightSkyBlue 34695 52942 64250
( font-lock-builtin-face "B0C4DE") ; LightSteelBlue 45232 50372 57054
( font-lock-keyword-face "00FFFF") ; Cyan 0 65535 65535
( font-lock-doc-face "FFA07A") ; LightSalmon 65535 41120 31354
( font-lock-string-face "FFA07A") ; LightSalmon 65535 41120 31354
( font-lock-comment-face "FF7F24") ; chocolate1 65535 32639 9252
( cscope-mouse-face "FFFFFF") ; white 65535 65535 65535
( cscope-line-face "00FF00") ; green 0 65535 0
( cscope-line-number-face "FF0000") ; red 65535 0 0
( cscope-function-face "00FFFF") ; cyan 0 65535 65535
( cscope-file-face "FFFF00") ; yellow 65535 65535 0
( tooltip "000000") ; black 0 0 0
( isearch-lazy-highlight-face "B0C4DE") ; LightSteelBlue 45232 50372 57054
( isearch "8B2323") ; brown4 35723 8995 8995
( trailing-whitespace "B0C4DE") ; LightSteelBlue 45232 50372 57054
( variable-pitch "B0C4DE") ; LightSteelBlue 45232 50372 57054
( fixed-pitch "B0C4DE") ; LightSteelBlue 45232 50372 57054
( secondary-selection "B0C4DE") ; LightSteelBlue 45232 50372 57054
( highlight "B0C4DE") ; LightSteelBlue 45232 50372 57054
( underline "B0C4DE") ; LightSteelBlue 45232 50372 57054
( bold-italic "B0C4DE") ; LightSteelBlue 45232 50372 57054
( italic "B0C4DE") ; LightSteelBlue 45232 50372 57054
( bold "B0C4DE") ; LightSteelBlue 45232 50372 57054
( mouse "B0C4DE") ; LightSteelBlue 45232 50372 57054
( cursor "B0C4DE") ; LightSteelBlue 45232 50372 57054
( border "B0C4DE") ; LightSteelBlue 45232 50372 57054
( menu "B0C4DE") ; LightSteelBlue 45232 50372 57054
( scroll-bar "B0C4DE") ; LightSteelBlue 45232 50372 57054
( fringe "B0C4DE") ; LightSteelBlue 45232 50372 57054
( region "B0C4DE") ; LightSteelBlue 45232 50372 57054
( tool-bar "000000") ; black 0 0 0
( header-line "E5E5E5") ; grey90 58853 58853 58853
( mode-line "000000") ; black 0 0 0
( default "FFFFFF") ; white 65535 65535 65535
))
; $Log: htmlilizeGetColors.el,v $
; Revision 1.27 2004/12/14 23:31:26 joerg
; published for new release 0.2.3
;
; Revision 1.26 2004/12/14 23:17:05 joerg
; published for new release 0.2.2
;
; Revision 1.25 2004/12/14 22:42:23 joerg
; allFiles: all sources have a Log CVS keyword at the end now.
;