acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Format more circe messages

This commit is contained in:
Case Duckworth 2021-10-21 19:00:43 -05:00
parent 68ecd128b7
commit 0e4ccb882c
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
init.el
View File

@ -1191,6 +1191,10 @@ specific to most general, they are these:
(require 'acdw-irc)
(:also-load acdw-circe)
(defun acdw-circe/format-meta (string)
"Return a format string for `lui-format'."
(format "{nick:%1$d.%1$ds} *** %s" (- acdw-irc/left-margin 3) string))
(:option acdw-irc/left-margin 20
circe-channel-killed-confirmation nil
circe-color-nicks-everywhere t
@ -1207,6 +1211,17 @@ specific to most general, they are these:
circe-format-self-say (format
"{nick:%1$d.%1$ds} > {body}"
(- acdw-irc/left-margin 3))
circe-format-server-part (acdw-circe/format-meta
"PART {channel}: {reason}")
circe-format-server-quit (acdw-circe/format-meta "QUIT: {reason}")
circe-format-server-quit-channel (acdw-circe/format-meta
"QUIT {channel}: {reason}")
circe-format-server-join (acdw-circe/format-meta "JOIN: {userinfo}")
circe-format-server-rejoin (acdw-circe/format-meta
(concat "REJOIN: {userinfo}"
" after {departuredelta}"))
circe-format-server-topic (acdw-circe/format-meta
"TOPIC: {new-topic}")
circe-prompt-string (format (format "%%%ds> "
(- acdw-irc/left-margin 2))
" ")