pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Don't care about casing!

Browse source
This commit is contained in:
Benson Chu 2025-08-13 14:27:11 -05:00
parent 7b81c0a68c
commit 42a896742c
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/self-chat-mode.el
View file

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