handle more irc control characters

init.el

@@ -540,9 +540,15 @@
     (setq-local completing-read-function #'completing-read-default)
     (setq-local completion-in-region-function #'completion--in-region))
 
+  ;; https://github.com/mgalgs/.emacs.d/blob/master/init.el#L599-L602
+  (defun mgalgs-erc-ansi-colors ()
+    "For ansi color escape sequences"
+    (ansi-color-apply-on-region (point-min) (point-max)))
+
   :hook
   ((erc-insert-post erc-send-post) . erc-save-buffer-in-logs)
   ((erc-mode) . basil-default-completion)
+  ((erc-insert-modify) . mgalgs-erc-ansi-colors)
   :config
   (load (concat user-utils "erc-faces"))
   
@@ -582,3 +588,12 @@
   :defer t
   :config
   (setq inferior-lisp-program "sbcl"))
+
+;;; Define Word
+
+(use-package define-word
+  :ensure t
+  :defer t
+  :bind
+  (("C-c d" . define-word-at-point)
+   ("C-c D" . define-word)))