diff options
-rw-r--r-- | init.el | 8 | ||||
-rw-r--r-- | lisp/+circe.el | 7 |
2 files changed, 14 insertions, 1 deletions
diff --git a/init.el b/init.el index bda1fd8..87f5424 100644 --- a/init.el +++ b/init.el | |||
@@ -351,7 +351,13 @@ | |||
351 | lui-time-stamp-format "[ %H:%M" | 351 | lui-time-stamp-format "[ %H:%M" |
352 | lui-track-behavior 'before-switch-to-buffer | 352 | lui-track-behavior 'before-switch-to-buffer |
353 | lui-track-indicator 'fringe | 353 | lui-track-indicator 'fringe |
354 | lui-fill-remove-face-from-newline nil) | 354 | lui-fill-remove-face-from-newline nil |
355 | lui-formatting-list `((,(+lui-make-formatting-list-rx "*") | ||
356 | 1 lui-strong-face) | ||
357 | (,(+lui-make-formatting-list-rx "_") | ||
358 | 1 lui-emphasis-face) | ||
359 | (,(+lui-make-formatting-list-rx "/") | ||
360 | 1 lui-emphasis-face))) | ||
355 | (:hook 'visual-line-mode | 361 | (:hook 'visual-line-mode |
356 | 'enable-lui-track | 362 | 'enable-lui-track |
357 | 'visual-fill-column-mode) | 363 | '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.") | |||
56 | "Return a format string for `lui-format' for metadata messages." | 56 | "Return a format string for `lui-format' for metadata messages." |
57 | (format "{nick:%1$d.%1$ds} *** %s" (- +circe-left-margin 3) string)) | 57 | (format "{nick:%1$d.%1$ds} *** %s" (- +circe-left-margin 3) string)) |
58 | 58 | ||
59 | (defmacro +lui-make-formatting-list-rx (char) | ||
60 | "Make a formatting regex for CHAR delimiters. | ||
61 | For entry into `lui-formatting-list'." | ||
62 | `(rx (or bol whitespace) | ||
63 | (group ,char (+? (not (any whitespace ,char))) ,char) | ||
64 | (or eol whitespace))) | ||
65 | |||
59 | ;;; Hooks & Advice | 66 | ;;; Hooks & Advice |
60 | 67 | ||
61 | (defun +circe-chat@set-prompt () | 68 | (defun +circe-chat@set-prompt () |