initial commit

roleplay.el

@@ -0,0 +1,15 @@
+(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)
+)