about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-12-18 14:33:49 -0600
committerCase Duckworth2021-12-18 14:33:49 -0600
commit6bef88b512f088a0bf769c45c6e5ee8f5f224b39 (patch)
tree3e3d6e4ba99c189b84adbbcd1b64157e3bcc79e4 /lisp
parentBunches o changes (diff)
downloademacs-6bef88b512f088a0bf769c45c6e5ee8f5f224b39.tar.gz
emacs-6bef88b512f088a0bf769c45c6e5ee8f5f224b39.zip
Set `lui-formatting-list'
Diffstat (limited to 'lisp')
-rw-r--r--lisp/+circe.el7
1 files changed, 7 insertions, 0 deletions
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 ()