diff options
| author | Case Duckworth | 2021-12-18 14:33:49 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-12-18 14:33:49 -0600 |
| commit | 6bef88b512f088a0bf769c45c6e5ee8f5f224b39 (patch) | |
| tree | 3e3d6e4ba99c189b84adbbcd1b64157e3bcc79e4 /lisp | |
| parent | Bunches o changes (diff) | |
| download | emacs-6bef88b512f088a0bf769c45c6e5ee8f5f224b39.tar.gz emacs-6bef88b512f088a0bf769c45c6e5ee8f5f224b39.zip | |
Set `lui-formatting-list'
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/+circe.el | 7 |
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. | ||
| 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 () |