15 lines
584 B
EmacsLisp
15 lines
584 B
EmacsLisp
(setq rp-color-MIU "#AA60AA")
|
||
|
||
;(replace-regexp "\\(?:^\\|[–-]\\s-*\\)MIU:\\(.*:\\s-)\\(.+?\\)\\($\\|\\s-+[-–]\\s-+\\)" (concat "–<font style=\"color:" rp-color-miu "\"> \\2 </font>\\3"))
|
||
(defun xess ()
|
||
(interactive)
|
||
(message "%s" (eval(intern-soft "rp-color-MIU")))
|
||
)
|
||
|
||
(defun rp-dialogue ()
|
||
(interactive)
|
||
(setq last-point (point))
|
||
(move-beginning-of-line 1)
|
||
(replace-regexp "\\(?:^\\|[–-]\\s-*\\)\\(.*\\): \\(.+?\\)\\($\\|\\s-+[-–]\\s-+\\)" (concat "–<font style=\"color:"(eval(intern-soft "rp-color-\\\\\\1"))"\">\\2 </font>\\3"))
|
||
(goto-char last-point)
|
||
)
|