mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-02-16 16:24:18 +00:00
109 lines
3.9 KiB
EmacsLisp
109 lines
3.9 KiB
EmacsLisp
;; This buffer is for text that is not saved, and for Lisp evaluation.
|
|
;; To create a file, visit it with C-x C-f and enter text in its buffer.
|
|
(require 'cl)
|
|
|
|
(defvar self-chat-num 0)
|
|
(defvar self-chat-last nil)
|
|
(defvar self-chat-last2 nil)
|
|
(defvar self-chat-highlights nil)
|
|
(defvar self-chat-alist nil)
|
|
|
|
(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)))
|
|
|
|
(define-key self-chat-mode-map (kbd "RET") #'self-chat-insert-next)
|
|
(define-key self-chat-mode-map (kbd "DEL") #'delete-self-chat-line)
|
|
(define-key self-chat-mode-map (kbd "C-DEL") #'delete-self-chat-text)
|
|
|
|
(defun self-chat-insert-next ()
|
|
(interactive)
|
|
(when (not (bolp))
|
|
(call-interactively #'newline)
|
|
(call-interactively #'newline))
|
|
(call-interactively #'user-chat/body))
|
|
|
|
(defun chat-pre ()
|
|
(when (or (not self-chat-last)
|
|
(not (= self-chat-num self-chat-last)))
|
|
(setq self-chat-last2 self-chat-last
|
|
self-chat-last self-chat-num))
|
|
(insert "> "))
|
|
|
|
(defun chat-post ()
|
|
(if-let ((name (alist-get self-chat-num self-chat-alist)))
|
|
(insert name ": ")))
|
|
|
|
(defun delete-self-chat-text ()
|
|
(interactive)
|
|
(beginning-of-line)
|
|
(search-forward ":")
|
|
(call-interactively #'forward-char)
|
|
(call-interactively #'set-mark-command)
|
|
(end-of-line)
|
|
(call-interactively #'kill-region))
|
|
|
|
(defun delete-self-chat-line ()
|
|
(interactive)
|
|
(save-excursion
|
|
(call-interactively #'set-mark-command)
|
|
(beginning-of-line)
|
|
(call-interactively #'kill-ring-save))
|
|
(cond ((= 0 (length (current-kill 0)))
|
|
(call-interactively #'backward-char))
|
|
((string-match-p "^> [A-z]*: $" (current-kill 0))
|
|
(set-mark-command nil)
|
|
(previous-line)
|
|
(previous-line)
|
|
(end-of-line)
|
|
(call-interactively #'kill-region))
|
|
(t
|
|
(call-interactively #'delete-backward-char))))
|
|
|
|
(defmacro define-users (list)
|
|
`(progn
|
|
(setq self-chat-num 0
|
|
self-chat-last nil
|
|
self-chat-last2 nil
|
|
self-chat-highlights nil
|
|
self-chat-alist nil)
|
|
(defhydra user-chat (:exit t
|
|
:body-pre (chat-pre)
|
|
:after-exit (chat-post))
|
|
""
|
|
("RET" nil "Same")
|
|
("TAB" (when self-chat-last2 (setq self-chat-num self-chat-last2)) "Switch")
|
|
,@(let ((num 0))
|
|
(mapcar #'(lambda (triple)
|
|
(let ((name (car triple))
|
|
(key (cadr triple)))
|
|
(prog1 `(,key (setq self-chat-num ,num) ,name)
|
|
(cl-incf num))))
|
|
list))
|
|
("r" (setq self-chat-num (random ,(length list))) "Random"))
|
|
,@(let ((num 0))
|
|
(mapcan #'(lambda (triple)
|
|
(let* ((name (car triple))
|
|
(color (caddr triple))
|
|
(face-sym (intern (format "sc-%s-face" (downcase name)))))
|
|
(prog1`((add-to-list 'self-chat-alist
|
|
'(,num . ,name))
|
|
(defface ,face-sym '((t (:foreground ,color))) ,(concat name
|
|
"'s face for self-chat-mode"))
|
|
(defvar ,face-sym ',face-sym)
|
|
(add-to-list 'self-chat-highlights
|
|
'(,(format "^> %s:.*$" name) . ,face-sym)))
|
|
(cl-incf num))))
|
|
list))))
|
|
|
|
(define-users (("Tau" "t" "turquoise1")
|
|
("Arc" "a" "gold")
|
|
("Tom" "T" "rosy brown")
|
|
("Dan" "d" "spring green")
|
|
("Ver" "v" "white")
|
|
("Coop" "c" "cornsilk")
|
|
("Net" "n" "magenta")
|
|
("Someone" "s" "dim gray")
|
|
("Everyone" "e" "pale green")))
|
|
|
|
(provide 'self-chat-mode)
|