From 6bef88b512f088a0bf769c45c6e5ee8f5f224b39 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 18 Dec 2021 14:33:49 -0600
Subject: Set `lui-formatting-list'

---
 init.el        | 8 +++++++-
 lisp/+circe.el | 7 +++++++
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index bda1fd8..87f5424 100644
--- a/init.el
+++ b/init.el
@@ -351,7 +351,13 @@
              lui-time-stamp-format "[ %H:%M"
              lui-track-behavior 'before-switch-to-buffer
              lui-track-indicator 'fringe
-             lui-fill-remove-face-from-newline nil)
+             lui-fill-remove-face-from-newline nil
+             lui-formatting-list `((,(+lui-make-formatting-list-rx "*")
+                                    1 lui-strong-face)
+                                   (,(+lui-make-formatting-list-rx "_")
+                                    1 lui-emphasis-face)
+                                   (,(+lui-make-formatting-list-rx "/")
+                                    1 lui-emphasis-face)))
     (:hook 'visual-line-mode
            'enable-lui-track
            'visual-fill-column-mode)
diff --git a/lisp/+circe.el b/lisp/+circe.el
index 7b11ce2..d9ea9cf 100644
--- a/lisp/+circe.el
+++ b/lisp/+circe.el
@@ -56,6 +56,13 @@ message the current topic.")
   "Return a format string for `lui-format' for metadata messages."
   (format "{nick:%1$d.%1$ds} *** %s" (- +circe-left-margin 3) string))
 
+(defmacro +lui-make-formatting-list-rx (char)
+  "Make a formatting regex for CHAR delimiters.
+For entry into `lui-formatting-list'."
+  `(rx (or bol whitespace)
+         (group ,char (+? (not (any whitespace ,char))) ,char)
+         (or eol whitespace)))
+
 ;;; Hooks & Advice
 
 (defun +circe-chat@set-prompt ()
-- 
cgit 1.4.1-21-gabe81