about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el8
-rw-r--r--lisp/+circe.el7
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.
61For 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 ()