Don't care about casing!

This commit is contained in:
Benson Chu 2025-08-13 14:27:11 -05:00
parent 7b81c0a68c
commit 42a896742c

View file

@ -12,7 +12,7 @@
(define-derived-mode self-chat-mode fundamental-mode "self-chat"
"This is a mode where I become crazy and talk to myself."
(setq font-lock-defaults '(self-chat-highlights))
(setq font-lock-defaults '(self-chat-highlights nil t))
(olivetti-mode 1))
(defun self-chat-buffer ()
@ -148,10 +148,10 @@ shuffling is done in place."
"'s face for self-chat-mode"))
(defvar ,face-sym ',face-sym)
(add-to-list 'self-chat-highlights
'(,(rx symbol-start (literal name) symbol-end) 0 ,face-sym prepend)
t)
'(,(rx symbol-start (literal name) symbol-end) . ,face-sym))
(add-to-list 'self-chat-highlights
'(,(format "^> %s:.*$" name) . ,face-sym)))
'(,(format "^> %s:.*$" name) 0 ,face-sym keep)
t))
(cl-incf num))))
list))))