default_faces.st - enscript - GNU Enscript
 (HTM) git clone git://thinkerwim.org/enscript.git
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       default_faces.st (965B)
       ---
            1 /*
            2  * Initialize the default faces.
            3  */
            4 
            5 sub make_face(ps_font_name, boldp, italicp)
            6 {
            7   return list(ps_font_name, boldp, italicp, 0, 0);
            8 }
            9 
           10 fontname        = 0;
           11 boldp                = 1;
           12 italicp                = 2;
           13 fg_color        = 3;
           14 bg_color        = 4;
           15 
           16 state default_faces
           17 {
           18   BEGIN {
           19     face_bold                 = make_face(bold_font, 1, 0);
           20     face_italic                = make_face(italic_font, 0, 1);
           21     face_bold_italic        = make_face(bold_italic_font, 1, 1);
           22     face_comment        = make_face(italic_font, 0, 1);
           23     face_function_name        = make_face(bold_font, 1, 0);
           24 
           25     if (color)
           26       face_variable_name        = make_face(font, 0, 0);
           27     else
           28       face_variable_name        = make_face(bold_font, 1, 0);
           29 
           30     face_keyword        = make_face(bold_font, 1, 0);
           31     face_reference        = make_face(bold_font, 1, 0);
           32     face_string                = make_face(bold_font, 1, 0);
           33     face_builtin        = make_face(bold_font, 1, 0);
           34     face_type                = make_face(bold_font, 1, 0);
           35     face_highlight        = make_face(font, 0, 0);
           36 
           37     return;
           38   }
           39 }
           40 
           41 
           42 /*
           43 Local variables:
           44 mode: c
           45 End:
           46 */