how to font-lock more than one word on a row

how to font-lock more than one word on a row

[Arjan Bos]

Hi all,

Currently I'm trying to work out how to font-lock more than one word on 
a row using matcher functions. I have the following file that I want to 
font-lock.

-- start of file
a a aaaaa
aa aa a aa aaa
aaa
aaaa
aaaaa
aaaaaa
aaaaaaa
aaaaaaaa
aaaaaaaaa
-- end of file

The font-locking is done according to the scrabble score and I have it 
sort of working. I'm using a's because it scores 1 in scrabble.
The font-locking colours the first word. The second word only gets 
coloured if it has the same score. So on the first line, `a a' gets 
coloured, but `aaaaa' remains uncoloured. If I move `aaaaa' to a new 
line, then it gets coloured, but only because I changed something on 
that line. I'm using jit-lock-mode.

The following (partial) code is what I use to do this. Could someone 
please tell me where I go wrong? (I'm hoping that it is something 
obvious, or something obscure but small ;-) )


(defvar scrabble-font-lock-keywords nil
   "font locking for scrabble-mode. Done with functions")

(setq scrabble-font-lock-keywords
       (append
        (list '(scrabble-<5-p-matcher  1 scrabble-font-lock-<5-face))
        (list '(scrabble-=5-p-matcher  1 scrabble-font-lock-=5-face))
        (list '(scrabble-=6-p-matcher  1 scrabble-font-lock-=6-face))
        (list '(scrabble-=7-p-matcher  1 scrabble-font-lock-=7-face))
        (list '(scrabble-=8-p-matcher  1 scrabble-font-lock-=8-face))
        (list '(scrabble-=9-p-matcher  1 scrabble-font-lock-=9-face))
        (list '(scrabble-=10-p-matcher 1 scrabble-font-lock-=10-face))
        (list '(scrabble-=11-p-matcher 1 scrabble-font-lock-=11-face))
        (list '(scrabble-=12-p-matcher 1 scrabble-font-lock-=12-face))
        (list '(scrabble-=13-p-matcher 1 scrabble-font-lock-=13-face))
        (list '(scrabble-=14-p-matcher 1 scrabble-font-lock-=14-face))
        (list '(scrabble-=15-p-matcher 1 scrabble-font-lock-=15-face))
        (list '(scrabble-=16-p-matcher 1 scrabble-font-lock-=16-face))
        (list '(scrabble-=17-p-matcher 1 scrabble-font-lock-=17-face))
        ;; (list '(scrabble-=>18-<=23-p-matcher 1 
scrabble-font-lock-=>18-<=23-face))
        (list '(scrabble->23-p-matcher 1 scrabble-font-lock->23-face))))

(defconst scrabble-font-matcher-regexp
   "\\<\\([a-zA-Z]*\\)\\>"
   "Regular expression used to match words in scrabble")

(defun scrabble-<5-p-matcher (limit)
   "returns t when the scrabble score of a word is less than 5."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (< (scrabble-last-word-score) 5)))

(defun scrabble-=5-p-matcher (limit)
   "returns t when the scrabble score of a word equals 5."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 5)))

(defun scrabble-=6-p-matcher (limit)
   "returns t when the scrabble score of a word equals 6."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 6)))

(defun scrabble-=7-p-matcher (limit)
   "returns t when the scrabble score of a word equals 7."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 7)))

(defun scrabble-=8-p-matcher (limit)
   "returns t when the scrabble score of a word equals 8."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 8)))

(defun scrabble-=9-p-matcher (limit)
   "returns t when the scrabble score of a word equals 9."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 9)))

(defun scrabble-=10-p-matcher (limit)
   "returns t when the scrabble score of a word equals 10."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 10)))

(defun scrabble-=11-p-matcher (limit)
   "returns t when the scrabble score of a word equals 11."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 11)))

(defun scrabble-=12-p-matcher (limit)
   "returns t when the scrabble score of a word equals 12."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 12)))

(defun scrabble-=13-p-matcher (limit)
   "returns t when the scrabble score of a word equals 13."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 13)))

(defun scrabble-=14-p-matcher (limit)
   "returns t when the scrabble score of a word equals 14."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 14)))

(defun scrabble-=15-p-matcher (limit)
   "returns t when the scrabble score of a word equals 15."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 15)))

(defun scrabble-=16-p-matcher (limit)
   "returns t when the scrabble score of a word equals 16."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 16)))

(defun scrabble-=17-p-matcher (limit)
   "returns t when the scrabble score of a word equals 17."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (= (scrabble-last-word-score) 17)))

(defun scrabble-=>18-<=23-p-matcher (limit)
   "returns t when the scrabble score of a word is between 18 and 23 
(inclusive)."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (< (scrabble-last-word-score) 24)
        (> (scrabble-last-word-score) 17)))

(defun scrabble->23-p-matcher (limit)
   "returns t when the scrabble score of a word is greater than 23."
   (and (re-search-forward scrabble-font-matcher-regexp limit t)
        (> (scrabble-last-word-score) 23)))


(defun scrabble-last-word-score ()
   "Returns the scrabble score of the word before or at point."
   (let ((str (match-string-no-properties 1))
	(score 0)
	(n 0))
     (setq str (downcase str))
     (while (< n (length str))
       (setq score (+ score (scrabble-letter-score (substring str n (+ n 
1))))
	    n (+ n 1)))
     score))

TIA,
Arjan

-- 
--
If you really want to contact me, then replace the "I see you" text by 
its three letter accronym, hetnet.

Fabricate Diem PVNC, Motto of the Night Watch -- Terry Pratchett