|
0
|
1 ;;; Create XPM text buttons under XEmacs (requires 19.12 or beyond)
|
|
|
2 ;;; Copyright (C) 1995 Kyle E. Jones
|
|
|
3 ;;;
|
|
|
4 ;;; This program is free software; you can redistribute it and/or modify
|
|
|
5 ;;; it under the terms of the GNU General Public License as published by
|
|
|
6 ;;; the Free Software Foundation; either version 1, or (at your option)
|
|
|
7 ;;; any later version.
|
|
|
8 ;;;
|
|
|
9 ;;; This program is distributed in the hope that it will be useful,
|
|
|
10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
12 ;;; GNU General Public License for more details.
|
|
|
13 ;;;
|
|
|
14 ;;; A copy of the GNU General Public License can be obtained from this
|
|
|
15 ;;; program's author (send electronic mail to kyle@uunet.uu.net) or from
|
|
|
16 ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
|
|
|
17 ;;; 02139, USA.
|
|
|
18 ;;;
|
|
|
19 ;;; Synched up with: Not in FSF.
|
|
|
20 ;;;
|
|
|
21 ;;; Send bug reports to kyle@wonderworks.com
|
|
|
22
|
|
|
23 ;;; The sole interface function is xpm-button-create.
|
|
|
24
|
|
|
25
|
|
|
26 (provide 'xpm-button)
|
|
|
27
|
|
|
28 (defvar xpm-button-version "1.02"
|
|
|
29 "Version string for xpm-button.")
|
|
|
30
|
|
|
31 (defvar xpm-button-vertical-padding 3
|
|
|
32 "Number of pixels between the text and the top/bottom of the button.")
|
|
|
33
|
|
|
34 (defvar xpm-button-horizontal-padding 3
|
|
|
35 "Number of pixels between the text and the left/right edges of the button.")
|
|
|
36
|
|
|
37 (defvar xpm-button-font-pixel-lines
|
|
|
38 '(
|
|
|
39 " xx xxxxxx xxxx x xxxxxxx xxxxxxxx xxxxxxxx xxxx x xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxxx xxx xxx xxxxx xxxxxxx xxxxx xxxxxxx xxxx x xxxxxxxx xxxx xxx xxxx xxx xxxx xxxx xxx xxxx xxxx xxxx xxx xxxxxxxx xxx xxx xxx xxx xx xx xxx xxx x xx x xxxx xxxx xxx xxxxx xxx xxxxxx xxxx xxxx x xx xxxx x x xxxx xx x x xxx x x x xxxx xx xxxx xx xx x x x xxxx x x "
|
|
|
40 " xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx x xx xxx xxx xxx x xx xx xx xx xx xx xx xx xx xx xx xx xx xx x xx x xx xx x xx x xx x xx xxx xx xx xx x xx xx xx xx xx xx x x xxx xx xx xx xx xxx xxxx x xx xxxxxx xx xx xx xx x xx xx x x x xx xxx xx xxxx x xx x x x x x x xx xx xx xx xx x x x xx xx xx x "
|
|
|
41 " x xx xx xx xx x xx xx xx x xx x xx x xx xx xx xx xx x xx xxx xxx xxxx x xx xx xx xx xx xx xx xx xx x x xx x xx x xx x xx xx x xxx x xx x x xxx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx x xx x xx xx x x xx x xx xx xx xx x xxxx x xxxxxx x x xx x x xxx xx x xxx xx xx x xx xx xx xx x x x x xx xx x x "
|
|
|
42 " x xx xx xx xx x xx xx xx x xx x x xx x xx xx xx xx xx x xx x xx x xx x xxx x xx xx xx xx xx xx xx xx xxxx x xx x xx x xx x xx x xx x xxxx xx x xxx xxxx xx xx xxx xx xx xxx xxxxx xxxx xx xx xxx xxx xx xxx xx xxx xx xx xxx xx xxx xxx xx xx xx xxx xx xxxx xxxxx xxx xxx xxxx xxx xxx xxxx xxx xxx xxx xxxx xxx xxxxxx xx xx xx xx xx x xx xxxx xx xx xx x xx xx xx xx x x xx x x x xx x xx x x xx x x xx xxx x x x x x x xx xx xx xx xx xx x xx xx xx xx xx x "
|
|
|
43 " x xx xxxxx xx xx xx xxxxx xxxxx xx xxxxxxxx xx xx xxxxx xx x xx x xx x xxx x xx xx xx xx xx xx xxxxx xxxxx xx xx x xx x xx x xx x xxx xx x xx x xx xxx xxx xxx xx xxx xxx xxx xx xx xx xx xxx xx xx xx xx xx xx xxx xxx xx xxx xx xxx xxx xxx xxx xxx xxx xxxxx x x xx xx xx xx x xx xx x xx x xx x x xxx xx xx xx xx xx x xx x xx xxxxx xx xxxx xxxxx xx x xx x xx xx x x x xxxx xx x x xx x xx xx xxxx x x xx xx xxxxxx x xx x xx x xx xx xxx xxx x xx x x "
|
|
|
44 " xxxxxx xx xx xx xx xx xx x xx x xx xxxx xx xx xx xx xx xxx xx x xx x xx x xxxx xx xx xxxxx xx xx xx xx xx xxxx xx xx x xx x xx x xx x x xxx xx xxx xxxx xx xx xx xx xx xxxxxx xx xx xx xx xx xx xx xxxx xx xx xx xx xx xx xx xx xx xx xx xx xx xxxx xx xx xx xx x xx xxx x xxx xx x xxx xx xx xx xx xx x xx xx xx xx xx x xxx xx xxxxxx xx x xx xx x xxxxxx xxx xx x xx x x x x xxxx xx xx xxxxxx xxxxxxx xx x xx x xxx xxx xx x xx x "
|
|
|
45 " x xx xx xx xx x xx xx xx x xx xx xx xx xx xx xx xx xx xx xx x x xx xx x xxx xx xx xx xxx x xx xx xx x xx xx xx x xx x xx xx x xxx xx xxx x xx xx xx xx xx xx xx xx xx xxxx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xxxx xx xx xx xx x xx xxx x xxx xx x xxx xx xx xx x x xx xx xxxxxx xx xx xx xx xx x xx xx xx x xx x xx xx x x xx x x x xx x xx xxx xx xx xxxxxx x xx x xx x xxx xxx x x x "
|
|
|
46 " x xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xxx xx xx x xx xx x xx xx xx xx xx xxx xx xxx xx xx xx xxx xx xx xx xx x xx xx xxx xx xx xxx xx xxx xxx xx xxx xxx xxx xx xx x xx xx xx xx xx xx xx xx xx xx xx xx xxx xxx xxx xxx xxx xxx xx x x xx xx xxx xx xx xx x xx xx xxx x x x xx xxxxxx xx xx xx xx xx xx xx xx xx xx xx x xx x x x x xx x x x xx x xxx xxxxx x x x xx xx xx xx xx xx xx xx xx xx x xx xx x "
|
|
|
47 "xxx xxxx xxxxxxx xxxxx xxxxxxx xxxxxxxx xxxx xxxx x xxxx xxxx xxxx xxx xxxx xxx xxxxxxxx xxx xx xxxx xxx x xxxxx xxxx xxxxx xxxx xx x xxxx xxxx xxxxx xx xx xx xxx xxxx xxxx xxxxxxxx xx xxx x xxx xxx xx xxx xxx xxxx xxxxxx xxxx xxx xxxx xx xxxx xxx xxxx xxxx xxx xxx xxxx xxx xxx xx xx xx xx xxxx xxxx xx xx xxx xx xx xx xxx xxx xx xxxxxx xx xxxx xxxxxx xxxx xxxx xxxx xxxx xx xxxx xxx xx xxxxxx x x xxxx x xx xxxx xx xx xx x xx xx xx xx xx xx xx xx x xx x x "
|
|
|
48 " xxxx xxxxxx xx xx xx x x x x xx xx xx xx x x "
|
|
|
49 " xx x xx xx xx xx xxx x x xxxxxxx xxxx xx xxxx xx x x "
|
|
|
50 " xxxxx xx xxxx xxxx xx "
|
|
|
51 )
|
|
|
52 "List of strings representing pixel lines for the button font.")
|
|
|
53
|
|
|
54 (defvar xpm-button-font-line-indices
|
|
|
55 '(("A" 0 10)
|
|
|
56 ("B" 11 19)
|
|
|
57 ("C" 20 28)
|
|
|
58 ("D" 29 38)
|
|
|
59 ("E" 39 47)
|
|
|
60 ("F" 48 56)
|
|
|
61 ("G" 57 66)
|
|
|
62 ("H" 67 77)
|
|
|
63 ("I" 78 82)
|
|
|
64 ("J" 83 90)
|
|
|
65 ("K" 91 100)
|
|
|
66 ("L" 101 109)
|
|
|
67 ("M" 110 121)
|
|
|
68 ("N" 122 132)
|
|
|
69 ("O" 133 142)
|
|
|
70 ("P" 143 151)
|
|
|
71 ("Q" 152 162)
|
|
|
72 ("R" 163 172)
|
|
|
73 ("S" 173 180)
|
|
|
74 ("T" 181 189)
|
|
|
75 ("U" 190 199)
|
|
|
76 ("V" 200 210)
|
|
|
77 ("W" 211 224)
|
|
|
78 ("X" 225 234)
|
|
|
79 ("Y" 235 243)
|
|
|
80 ("Z" 244 252)
|
|
|
81 ("a" 253 260)
|
|
|
82 ("b" 261 269)
|
|
|
83 ("c" 270 276)
|
|
|
84 ("d" 277 285)
|
|
|
85 ("e" 286 292)
|
|
|
86 ("f" 293 298)
|
|
|
87 ("g" 299 306)
|
|
|
88 ("h" 307 315)
|
|
|
89 ("i" 316 320)
|
|
|
90 ("j" 321 324)
|
|
|
91 ("k" 325 333)
|
|
|
92 ("l" 334 338)
|
|
|
93 ("m" 339 351)
|
|
|
94 ("n" 352 360)
|
|
|
95 ("o" 361 368)
|
|
|
96 ("p" 369 377)
|
|
|
97 ("q" 378 386)
|
|
|
98 ("r" 387 393)
|
|
|
99 ("s" 394 399)
|
|
|
100 ("t" 400 405)
|
|
|
101 ("u" 406 414)
|
|
|
102 ("v" 415 423)
|
|
|
103 ("w" 424 436)
|
|
|
104 ("x" 437 444)
|
|
|
105 ("y" 445 453)
|
|
|
106 ("z" 454 460)
|
|
|
107 ("0" 461 467)
|
|
|
108 ("1" 468 472)
|
|
|
109 ("2" 473 479)
|
|
|
110 ("3" 480 486)
|
|
|
111 ("4" 487 493)
|
|
|
112 ("5" 494 500)
|
|
|
113 ("6" 501 507)
|
|
|
114 ("7" 508 514)
|
|
|
115 ("8" 515 521)
|
|
|
116 ("9" 522 528)
|
|
|
117 ("`" 529 531)
|
|
|
118 ("~" 532 538)
|
|
|
119 ("!" 539 541)
|
|
|
120 ("@" 542 552)
|
|
|
121 ("#" 553 560)
|
|
|
122 ("$" 561 567)
|
|
|
123 ("%" 568 580)
|
|
|
124 ("^" 581 586)
|
|
|
125 ("&" 587 597)
|
|
|
126 ("*" 598 603)
|
|
|
127 ("(" 604 608)
|
|
|
128 (")" 609 613)
|
|
|
129 ("-" 614 620)
|
|
|
130 ("_" 621 628)
|
|
|
131 ("=" 629 635)
|
|
|
132 ("+" 636 643)
|
|
|
133 ("[" 644 648)
|
|
|
134 ("{" 649 653)
|
|
|
135 ("]" 654 658)
|
|
|
136 ("}" 659 663)
|
|
|
137 (";" 664 666)
|
|
|
138 (":" 667 669)
|
|
|
139 ("'" 670 672)
|
|
|
140 ("\"" 673 676)
|
|
|
141 ("," 677 679)
|
|
|
142 ("<" 680 686)
|
|
|
143 ("." 687 689)
|
|
|
144 (">" 690 696)
|
|
|
145 ("/" 697 700)
|
|
|
146 ("?" 701 707)
|
|
|
147 ("\\" 708 713)
|
|
|
148 ("|" 714 715)
|
|
|
149 (" " 716 719))
|
|
|
150 "Indices into the xpm-button-font-pixel-lines strings for each character.
|
|
|
151 Format is
|
|
|
152 (STR START END)
|
|
|
153 STR contains the character.
|
|
|
154 START is where the character's pixels start in each string of
|
|
|
155 xpm-button-font-pixel-lines (0 is the index of the first pixel).
|
|
|
156 END is the index of the position after the last pixel of the character.")
|
|
|
157
|
|
|
158 (defun xpm-button-color-rgb-components (color)
|
|
|
159 "Return the RGB components of COLOR as a list of integers (R G B).
|
|
|
160 16-bit values are always returned.
|
|
|
161 #FEFEFE and rgb:fe/fe/fe style color specifications are parsed directly
|
|
|
162 into their components."
|
|
|
163 (color-instance-rgb-components (make-color-instance color)))
|
|
|
164
|
|
|
165 (defun xpm-button-compute-contrast-color (color)
|
|
|
166 "Compute a contrasting color for COLOR.
|
|
|
167 The new color is created by xor-ing the RGB values of COLOR with all ones."
|
|
|
168 (let* ((rgb (xpm-button-color-rgb-components color))
|
|
|
169 (r (logxor (nth 0 rgb) 65535))
|
|
|
170 (g (logxor (nth 1 rgb) 65535))
|
|
|
171 (b (logxor (nth 2 rgb) 65535)))
|
|
|
172 (format "rgb:%04x/%04x/%04x" r g b)))
|
|
|
173
|
|
|
174 (defun xpm-button-compute-shadow-colors (color)
|
|
|
175 "Compute shadow colors for COLOR.
|
|
|
176 COLOR should be a string naming a color.
|
|
|
177 Returns (COLOR1 . COLOR2) where COLOR1 is the brighter shadow color
|
|
|
178 and COLOR2 is the dimmer color."
|
|
|
179 (let* ((rgb (xpm-button-color-rgb-components color))
|
|
|
180 (r (nth 0 rgb))
|
|
|
181 (g (nth 1 rgb))
|
|
|
182 (b (nth 2 rgb))
|
|
|
183 (bright-r (/ (* r 12) 10))
|
|
|
184 (bright-g (/ (* g 12) 10))
|
|
|
185 (bright-b (/ (* b 12) 10))
|
|
|
186 (dim-r (/ (* r 8) 10))
|
|
|
187 (dim-g (/ (* g 8) 10))
|
|
|
188 (dim-b (/ (* b 8) 10)))
|
|
|
189 (if (> bright-r 65535)
|
|
|
190 (setq bright-r 65535))
|
|
|
191 (if (> bright-g 65535)
|
|
|
192 (setq bright-g 65535))
|
|
|
193 (if (> bright-b 65535)
|
|
|
194 (setq bright-b 65535))
|
|
|
195 (cons (format "rgb:%04x/%04x/%04x" bright-r bright-g bright-b)
|
|
|
196 (format "rgb:%04x/%04x/%04x" dim-r dim-g dim-b))))
|
|
|
197
|
|
|
198 ;;;###autoload
|
|
|
199 (defun xpm-button-create (text shadow-thickness fg-color bg-color)
|
|
|
200 "Returns a list of XPM image instantiators for a button displaying TEXT.
|
|
|
201 The list is of the form
|
|
|
202 (UP DOWN DISABLED)
|
|
|
203 where UP, DOWN, and DISABLED are the up, down and disabled image
|
|
|
204 instantiators for the button.
|
|
|
205
|
|
|
206 SHADOW-THICKNESS specifies how many pixels should be used for the
|
|
|
207 shadows on the edges of the buttons. It should be a positive integer,
|
|
|
208 or 0 to mean no shadows on the edges.
|
|
|
209 FG-COLOR is the color used to display the text. It should be a string.
|
|
|
210 BG-COLOR is the background color the text will be displayed upon.
|
|
|
211 It should be a string."
|
|
|
212 (save-excursion
|
|
|
213 (set-buffer (get-buffer-create " xpm-button"))
|
|
|
214 (erase-buffer)
|
|
|
215 ;; create the correct number of lines for the pixels for the
|
|
|
216 ;; characters.
|
|
|
217 (insert-char ?\n (length xpm-button-font-pixel-lines))
|
|
|
218 (let ((i 0)
|
|
|
219 (str (make-string 1 0))
|
|
|
220 (lim (length text))
|
|
|
221 (bg-char ? )
|
|
|
222 font-pixel-lines q)
|
|
|
223 ;; loop through text, adding the character pixels
|
|
|
224 (while (< i lim)
|
|
|
225 (aset str 0 (aref text i))
|
|
|
226 (if (null (setq q (assoc str xpm-button-font-line-indices)))
|
|
|
227 nil ; no pixel data for this character
|
|
|
228 (goto-char (point-min))
|
|
|
229 (setq font-pixel-lines xpm-button-font-pixel-lines)
|
|
|
230 (while font-pixel-lines
|
|
|
231 (end-of-line)
|
|
|
232 (if (not (bolp))
|
|
|
233 ;; Insert space before some of the characters.
|
|
|
234 ;; This isn't really correct for this font
|
|
|
235 ;; but doing it right is too hard.
|
|
|
236 ;; This isn't TeX after all.
|
|
|
237 (if (memq (aref str 0) '(?, ?. ?\" ?! ?| ?\' ?\`))
|
|
|
238 (insert-char bg-char 1))
|
|
|
239 ;; offset the start a bit from the left edge of the button
|
|
|
240 (insert-char bg-char xpm-button-horizontal-padding))
|
|
|
241 ;; insert the character pixels.
|
|
|
242 (insert (substring (car font-pixel-lines) (nth 1 q) (nth 2 q)))
|
|
|
243 (forward-line)
|
|
|
244 (setq font-pixel-lines (cdr font-pixel-lines))))
|
|
|
245 (setq i (1+ i)))
|
|
|
246 ;; now offset the text from the right edge of the button.
|
|
|
247 (goto-char (point-min))
|
|
|
248 (while (not (eobp))
|
|
|
249 (end-of-line)
|
|
|
250 (insert-char bg-char xpm-button-horizontal-padding)
|
|
|
251 (forward-line)))
|
|
|
252 (let ((bright-char ?b)
|
|
|
253 (dim-char ?d)
|
|
|
254 (fg-char ?x)
|
|
|
255 (bg-char ? )
|
|
|
256 (shadow-colors (xpm-button-compute-shadow-colors bg-color))
|
|
|
257 i len up-string down-string disabled-string)
|
|
|
258 ;; find the length of a pixel line.
|
|
|
259 (goto-char (point-min))
|
|
|
260 (end-of-line)
|
|
|
261 (setq len (- (point) (point-min)))
|
|
|
262 ;; offset text from the top of the button
|
|
|
263 (goto-char (point-min))
|
|
|
264 (setq i xpm-button-vertical-padding)
|
|
|
265 (while (> i 0)
|
|
|
266 (insert-char bg-char len)
|
|
|
267 (insert ?\n)
|
|
|
268 (setq i (1- i)))
|
|
|
269 ;; offset text from the bottom of the button
|
|
|
270 (goto-char (point-max))
|
|
|
271 (setq i xpm-button-vertical-padding)
|
|
|
272 (while (> i 0)
|
|
|
273 (insert-char bg-char len)
|
|
|
274 (insert ?\n)
|
|
|
275 (setq i (1- i)))
|
|
|
276 ;; add shadows to the pixel lines
|
|
|
277 (goto-char (point-min))
|
|
|
278 (while (not (eobp))
|
|
|
279 (insert-char bright-char shadow-thickness)
|
|
|
280 (end-of-line)
|
|
|
281 (insert-char dim-char shadow-thickness)
|
|
|
282 (forward-line))
|
|
|
283 ;; add top and bottom shadow lines
|
|
|
284 (setq i shadow-thickness)
|
|
|
285 (goto-char (point-min))
|
|
|
286 (while (> i 0)
|
|
|
287 (insert-char bright-char (+ len shadow-thickness i))
|
|
|
288 (insert-char dim-char (- shadow-thickness i))
|
|
|
289 (insert ?\n)
|
|
|
290 (setq i (1- i)))
|
|
|
291 (setq i shadow-thickness)
|
|
|
292 (goto-char (point-max))
|
|
|
293 (while (> i 0)
|
|
|
294 (insert-char bright-char i)
|
|
|
295 (insert-char dim-char (+ len (* 2 shadow-thickness) (- i)))
|
|
|
296 (insert ?\n)
|
|
|
297 (setq i (1- i)))
|
|
|
298 ;; add doublequotes, commas and XPM header goop.
|
|
|
299 (goto-char (point-min))
|
|
|
300 (while (not (eobp))
|
|
|
301 (insert "\"")
|
|
|
302 (end-of-line)
|
|
|
303 (insert "\",")
|
|
|
304 (forward-line))
|
|
|
305 (insert "};\n")
|
|
|
306 (goto-char (point-min))
|
|
|
307 ;; color map for the UP button
|
|
|
308 (insert (format
|
|
|
309 "/* XPM */
|
|
|
310 static char * button_xpm[] = {
|
|
|
311 \"%d %d 4 1\",
|
|
|
312 \"%c c %s\",
|
|
|
313 \"%c c %s\",
|
|
|
314 \"%c c %s\",
|
|
|
315 \"%c c %s\",
|
|
|
316 "
|
|
|
317 (+ len (* shadow-thickness 2))
|
|
|
318 (+ (* xpm-button-vertical-padding 2)
|
|
|
319 (* shadow-thickness 2)
|
|
|
320 (length xpm-button-font-pixel-lines))
|
|
|
321 fg-char fg-color
|
|
|
322 bg-char bg-color
|
|
|
323 bright-char (car shadow-colors)
|
|
|
324 dim-char (cdr shadow-colors)))
|
|
|
325 (setq up-string (buffer-string))
|
|
|
326 (delete-region (point-min) (point))
|
|
|
327 ;; color map for the DOWN button
|
|
|
328 (insert (format
|
|
|
329 "/* XPM */
|
|
|
330 static char * button_xpm[] = {
|
|
|
331 \"%d %d 4 1\",
|
|
|
332 \"%c c %s\",
|
|
|
333 \"%c c %s\",
|
|
|
334 \"%c c %s\",
|
|
|
335 \"%c c %s\",
|
|
|
336 "
|
|
|
337 (+ len (* shadow-thickness 2))
|
|
|
338 (+ (* xpm-button-vertical-padding 2)
|
|
|
339 (* shadow-thickness 2)
|
|
|
340 (length xpm-button-font-pixel-lines))
|
|
|
341 fg-char (xpm-button-compute-contrast-color fg-color)
|
|
|
342 bg-char bg-color
|
|
|
343 bright-char (cdr shadow-colors)
|
|
|
344 dim-char (car shadow-colors)))
|
|
|
345 (setq down-string (buffer-string))
|
|
|
346 (delete-region (point-min) (point))
|
|
|
347 ;; color map for the DISABLED button
|
|
|
348 (insert (format
|
|
|
349 "/* XPM */
|
|
|
350 static char * button_xpm[] = {
|
|
|
351 \"%d %d 4 1\",
|
|
|
352 \"%c c %s\",
|
|
|
353 \"%c c %s\",
|
|
|
354 \"%c c %s\",
|
|
|
355 \"%c c %s\",
|
|
|
356 "
|
|
|
357 (+ len (* shadow-thickness 2))
|
|
|
358 (+ (* xpm-button-vertical-padding 2)
|
|
|
359 (* shadow-thickness 2)
|
|
|
360 (length xpm-button-font-pixel-lines))
|
|
|
361 fg-char fg-color
|
|
|
362 bg-char bg-color
|
|
|
363 bright-char (car shadow-colors)
|
|
|
364 dim-char (cdr shadow-colors)))
|
|
|
365 ;; stipple the foreground pixels
|
|
|
366 (let ((str (make-string 1 0))
|
|
|
367 (bit 0)
|
|
|
368 lim line-start)
|
|
|
369 (aset str 0 fg-char)
|
|
|
370 (while (not (eobp))
|
|
|
371 (setq lim (save-excursion (end-of-line) (point))
|
|
|
372 line-start (point))
|
|
|
373 (while (search-forward str lim t)
|
|
|
374 (if (= (% (- (point) line-start) 2) bit)
|
|
|
375 (subst-char-in-region (1- (point)) (point) fg-char bg-char t)))
|
|
|
376 (if (zerop bit)
|
|
|
377 (setq bit 1)
|
|
|
378 (setq bit 0))
|
|
|
379 (forward-line)))
|
|
|
380 (setq disabled-string (buffer-string))
|
|
|
381
|
|
|
382 (list (vector 'xpm ':data up-string)
|
|
|
383 (vector 'xpm ':data down-string)
|
|
|
384 (vector 'xpm ':data disabled-string)) )))
|
