61 |
;;;; Faces for fontification |
;;;; Faces for fontification |
62 |
;;;; |
;;;; |
63 |
|
|
64 |
(defface cvs-header-face |
(defface cvs-header |
65 |
'((((class color) (background dark)) |
'((((class color) (background dark)) |
66 |
(:foreground "lightyellow" :weight bold)) |
(:foreground "lightyellow" :weight bold)) |
67 |
(((class color) (background light)) |
(((class color) (background light)) |
69 |
(t (:weight bold))) |
(t (:weight bold))) |
70 |
"PCL-CVS face used to highlight directory changes." |
"PCL-CVS face used to highlight directory changes." |
71 |
:group 'pcl-cvs) |
:group 'pcl-cvs) |
72 |
|
;; backward-compatibility alias |
73 |
|
(put 'cvs-header-face 'face-alias 'cvs-header) |
74 |
|
|
75 |
(defface cvs-filename-face |
(defface cvs-filename |
76 |
'((((class color) (background dark)) |
'((((class color) (background dark)) |
77 |
(:foreground "lightblue")) |
(:foreground "lightblue")) |
78 |
(((class color) (background light)) |
(((class color) (background light)) |
80 |
(t ())) |
(t ())) |
81 |
"PCL-CVS face used to highlight file names." |
"PCL-CVS face used to highlight file names." |
82 |
:group 'pcl-cvs) |
:group 'pcl-cvs) |
83 |
|
;; backward-compatibility alias |
84 |
|
(put 'cvs-filename-face 'face-alias 'cvs-filename) |
85 |
|
|
86 |
(defface cvs-unknown-face |
(defface cvs-unknown |
87 |
'((((class color) (background dark)) |
'((((class color) (background dark)) |
88 |
(:foreground "red")) |
(:foreground "red")) |
89 |
(((class color) (background light)) |
(((class color) (background light)) |
91 |
(t (:slant italic))) |
(t (:slant italic))) |
92 |
"PCL-CVS face used to highlight unknown file status." |
"PCL-CVS face used to highlight unknown file status." |
93 |
:group 'pcl-cvs) |
:group 'pcl-cvs) |
94 |
|
;; backward-compatibility alias |
95 |
|
(put 'cvs-unknown-face 'face-alias 'cvs-unknown) |
96 |
|
|
97 |
(defface cvs-handled-face |
(defface cvs-handled |
98 |
'((((class color) (background dark)) |
'((((class color) (background dark)) |
99 |
(:foreground "pink")) |
(:foreground "pink")) |
100 |
(((class color) (background light)) |
(((class color) (background light)) |
102 |
(t ())) |
(t ())) |
103 |
"PCL-CVS face used to highlight handled file status." |
"PCL-CVS face used to highlight handled file status." |
104 |
:group 'pcl-cvs) |
:group 'pcl-cvs) |
105 |
|
;; backward-compatibility alias |
106 |
|
(put 'cvs-handled-face 'face-alias 'cvs-handled) |
107 |
|
|
108 |
(defface cvs-need-action-face |
(defface cvs-need-action |
109 |
'((((class color) (background dark)) |
'((((class color) (background dark)) |
110 |
(:foreground "orange")) |
(:foreground "orange")) |
111 |
(((class color) (background light)) |
(((class color) (background light)) |
113 |
(t (:slant italic))) |
(t (:slant italic))) |
114 |
"PCL-CVS face used to highlight status of files needing action." |
"PCL-CVS face used to highlight status of files needing action." |
115 |
:group 'pcl-cvs) |
:group 'pcl-cvs) |
116 |
|
;; backward-compatibility alias |
117 |
|
(put 'cvs-need-action-face 'face-alias 'cvs-need-action) |
118 |
|
|
119 |
(defface cvs-marked-face |
(defface cvs-marked |
120 |
'((((min-colors 88) (class color) (background dark)) |
'((((min-colors 88) (class color) (background dark)) |
121 |
(:foreground "green1" :weight bold)) |
(:foreground "green1" :weight bold)) |
122 |
(((class color) (background dark)) |
(((class color) (background dark)) |
126 |
(t (:weight bold))) |
(t (:weight bold))) |
127 |
"PCL-CVS face used to highlight marked file indicator." |
"PCL-CVS face used to highlight marked file indicator." |
128 |
:group 'pcl-cvs) |
:group 'pcl-cvs) |
129 |
|
;; backward-compatibility alias |
130 |
|
(put 'cvs-marked-face 'face-alias 'cvs-marked) |
131 |
|
|
132 |
(defface cvs-msg-face |
(defface cvs-msg |
133 |
'((t (:slant italic))) |
'((t (:slant italic))) |
134 |
"PCL-CVS face used to highlight CVS messages." |
"PCL-CVS face used to highlight CVS messages." |
135 |
:group 'pcl-cvs) |
:group 'pcl-cvs) |
136 |
|
;; backward-compatibility alias |
137 |
|
(put 'cvs-msg-face 'face-alias 'cvs-msg) |
138 |
|
|
139 |
(defvar cvs-fi-up-to-date-face 'cvs-handled-face) |
(defvar cvs-fi-up-to-date-face 'cvs-handled) |
140 |
(defvar cvs-fi-unknown-face 'cvs-unknown-face) |
(defvar cvs-fi-unknown-face 'cvs-unknown) |
141 |
(defvar cvs-fi-conflict-face 'font-lock-warning-face) |
(defvar cvs-fi-conflict-face 'font-lock-warning-face) |
142 |
|
|
143 |
;; There is normally no need to alter the following variable, but if |
;; There is normally no need to alter the following variable, but if |
346 |
(case type |
(case type |
347 |
(DIRCHANGE (concat "In directory " |
(DIRCHANGE (concat "In directory " |
348 |
(cvs-add-face (cvs-fileinfo->full-name fileinfo) |
(cvs-add-face (cvs-fileinfo->full-name fileinfo) |
349 |
'cvs-header-face t |
'cvs-header t 'cvs-goal-column t) |
|
'cvs-goal-column t) |
|
350 |
":")) |
":")) |
351 |
(MESSAGE |
(MESSAGE |
352 |
(cvs-add-face (format "Message: %s" (cvs-fileinfo->full-log fileinfo)) |
(cvs-add-face (format "Message: %s" (cvs-fileinfo->full-log fileinfo)) |
353 |
'cvs-msg-face)) |
'cvs-msg)) |
354 |
(t |
(t |
355 |
(let* ((status (if (cvs-fileinfo->marked fileinfo) |
(let* ((status (if (cvs-fileinfo->marked fileinfo) |
356 |
(cvs-add-face "*" 'cvs-marked-face) |
(cvs-add-face "*" 'cvs-marked) |
357 |
" ")) |
" ")) |
358 |
(file (cvs-add-face (cvs-fileinfo->pp-name fileinfo) |
(file (cvs-add-face (cvs-fileinfo->pp-name fileinfo) |
359 |
'cvs-filename-face t |
'cvs-filename t 'cvs-goal-column t)) |
|
'cvs-goal-column t)) |
|
360 |
(base (or (cvs-fileinfo->base-rev fileinfo) "")) |
(base (or (cvs-fileinfo->base-rev fileinfo) "")) |
361 |
(head (cvs-fileinfo->head-rev fileinfo)) |
(head (cvs-fileinfo->head-rev fileinfo)) |
362 |
(type |
(type |
369 |
(downcase (symbol-name type)) |
(downcase (symbol-name type)) |
370 |
"-face")))) |
"-face")))) |
371 |
(or (and (boundp sym) (symbol-value sym)) |
(or (and (boundp sym) (symbol-value sym)) |
372 |
'cvs-need-action-face)))) |
'cvs-need-action)))) |
373 |
(cvs-add-face str face cvs-status-map))) |
(cvs-add-face str face cvs-status-map))) |
374 |
(side (or |
(side (or |
375 |
;; maybe a subtype |
;; maybe a subtype |