summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2022-01-03 17:05:03 -0600
committerCase Duckworth2022-01-03 17:05:03 -0600
commit8c712dc9f0adbfb02da35a2379a739e114939e89 (patch)
tree21200ba8968663948c9b087dce0f87f07608dc4c /lisp
parentFix typos (diff)
downloademacs-8c712dc9f0adbfb02da35a2379a739e114939e89.tar.gz
emacs-8c712dc9f0adbfb02da35a2379a739e114939e89.zip
Format circe messages better
Diffstat (limited to 'lisp')
-rw-r--r--lisp/+circe.el18
1 files changed, 15 insertions, 3 deletions
diff --git a/lisp/+circe.el b/lisp/+circe.el index 9078907..501bd21 100644 --- a/lisp/+circe.el +++ b/lisp/+circe.el
@@ -66,9 +66,21 @@ message the current topic."
66 66
67;;; Formatting messages 67;;; Formatting messages
68 68
69(defun +circe-format-meta (string) 69(defun +circe-format-meta (string &optional no-nick)
70 "Return a format string for `lui-format' for metadata messages." 70 "Return a format string for `lui-format' for metadata messages.
71 (format "{nick:%1$d.%1$ds} *** %s" (- +circe-left-margin 3) string)) 71Include nick unless NO-NICK is non-nil. If NO-NICK is a string,
72replace {nick} in the string with {NO-NICK}."
73 (cond
74 ((stringp no-nick)
75 (format "{%1$s:%2$d.%2$ds} *** %3$s"
76 no-nick (- +circe-left-margin 3) string))
77 (no-nick
78 (format (format "%%%ds *** %s" (- +circe-left-margin 3) string) " "))
79 (t
80 (format "{nick:%1$d.%1$ds} *** %s" (- +circe-left-margin 3) string))))
81
82(defun +circe-format-meta* (string)
83 "Return a format string for `lui-format' for metadata messages, /without/ ")
72 84
73(defmacro +lui-make-formatting-list-rx (char) 85(defmacro +lui-make-formatting-list-rx (char)
74 "Make a formatting regex for CHAR delimiters. 86 "Make a formatting regex for CHAR delimiters.