Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv8770/Drei
Modified Files: drawing-options.lisp Log Message: Change to some prettier (IMO) syntax highlighting colours than default Emacs.
--- /project/mcclim/cvsroot/mcclim/Drei/drawing-options.lisp 2008/01/07 23:00:51 1.3 +++ /project/mcclim/cvsroot/mcclim/Drei/drawing-options.lisp 2008/01/12 11:44:56 1.4 @@ -61,33 +61,37 @@ ;;; syntax highlighting rules are free to ignore these, but I think ;;; the default rules should at least use these.
-(defvar *keyword-drawing-options* (make-drawing-options :face (make-face :ink +orchid+)) +(defvar *keyword-drawing-options* + (make-drawing-options :face (make-face :ink +red3+)) "The drawing options used for drawing the syntactical equivalent of keyword symbols. In Lisp, this is used for keyword symbols.")
-(defvar *special-operator-drawing-options* (make-drawing-options :face (make-face :ink +purple+)) +(defvar *special-operator-drawing-options* + (make-drawing-options :face (make-face :ink +steel-blue+ + :style (make-text-style nil :bold nil))) "The drawing options used for drawing the syntactical equivalent of special operators. In Lisp, this is used for macros and special operators, in most other languages, it should probably be used for language keywords.")
-(defvar *special-variable-drawing-options* (make-drawing-options :face (make-face :ink +darkgoldenrod+)) +(defparameter *special-variable-drawing-options* + (make-drawing-options :face (make-face :ink +darkgoldenrod4+)) "The drawing options used for drawing variables that are somehow special. In Lisp, this is used for globally bound non-constant variables with dynamic scope. In other language, it should probably be used for global variables or similar.")
-(defvar *string-drawing-options* (make-drawing-options - :face (make-face :ink +rosy-brown+ - :style (make-text-style nil :italic nil))) +(defvar *string-drawing-options* + (make-drawing-options :face (make-face :ink +green4+)) "The drawing options used for syntax-highlighting strings.")
-(defvar *comment-drawing-options* (make-drawing-options - :face (make-face :ink +maroon+ - :style (make-text-style nil :bold nil))) +(defvar *comment-drawing-options* + (make-drawing-options :face (make-face :ink +maroon+ + :style (make-text-style nil :bold nil))) "The drawing options used for drawing comments in source code.")
-(defvar *error-drawing-options* (make-drawing-options :face (make-face :ink +red+)) +(defvar *error-drawing-options* + (make-drawing-options :face (make-face :ink +red+)) "The drawing options used for drawing syntax errors.")