about summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
authorCase Duckworth2021-08-29 10:37:02 -0500
committerCase Duckworth2021-08-29 10:37:02 -0500
commit58f6e3c968d526aa90952b5ef58983740c915914 (patch)
treef0d4e326beeaa0349aad1ba1e4dd8d09c6e950fc /init.el
parentFancify browse-url-set-handlers (diff)
downloademacs-58f6e3c968d526aa90952b5ef58983740c915914.tar.gz
emacs-58f6e3c968d526aa90952b5ef58983740c915914.zip
Change circe nick formatting
Diffstat (limited to 'init.el')
-rw-r--r--init.el72
1 files changed, 36 insertions, 36 deletions
diff --git a/init.el b/init.el index 4de92d4..08f3381 100644 --- a/init.el +++ b/init.el
@@ -1154,47 +1154,47 @@ like a dumbass."
1154 (enable-circe-display-images) 1154 (enable-circe-display-images)
1155 (enable-circe-new-day-notifier))) 1155 (enable-circe-new-day-notifier)))
1156 1156
1157 (setq circe-format-say (format "%s%s%d%s%s%s" 1157 (let ((len (number-to-string (- acdw-irc/left-margin 1
1158 acdw-irc/pre-nick 1158 (+ (length acdw-irc/pre-nick)
1159 "{nick:" 1159 (length acdw-irc/post-nick)))))
1160 (- acdw-irc/left-margin 1 1160 (my-len (number-to-string (- acdw-irc/left-margin 1
1161 (+ (length acdw-irc/pre-nick) 1161 (+ (length acdw-irc/pre-my-nick)
1162 (length acdw-irc/post-nick))) 1162 (length acdw-irc/post-my-nick))))))
1163 "s} " 1163 (setq circe-format-say (concat acdw-irc/pre-nick
1164 acdw-irc/post-nick 1164 "{nick:" len "." len "s} "
1165 "{body}") 1165 acdw-irc/post-nick
1166 circe-format-self-say (format "%s%s%d%s%s%s" 1166 "{body}")
1167 acdw-irc/pre-my-nick 1167 circe-format-self-say (concat acdw-irc/pre-my-nick
1168 "{nick:" 1168 "{nick:" my-len "." my-len "s} "
1169 (- acdw-irc/left-margin 1 1169 acdw-irc/post-my-nick
1170 (+ (length acdw-irc/pre-my-nick) 1170 "{body}")
1171 (length acdw-irc/post-my-nick))) 1171 circe-format-action (concat "*"
1172 "s} " 1172 (repeat-string
1173 acdw-irc/post-my-nick 1173 (- acdw-irc/left-margin 3)
1174 "{body}") 1174 " ")
1175 circe-format-action (concat "*" 1175 "* {nick} {body}")
1176 (repeat-string (- acdw-irc/left-margin 3) 1176 circe-format-self-action (concat "-*"
1177 " ") 1177 (repeat-string
1178 "* {nick} {body}") 1178 (- acdw-irc/left-margin 4)
1179 circe-format-self-action (concat "-*" 1179 " ")
1180 (repeat-string (- acdw-irc/left-margin 4) 1180 "* {nick} {body}")
1181 " ") 1181 lui-fill-type (concat
1182 "* {nick} {body}") 1182 (repeat-string (- acdw-irc/left-margin 2)
1183 lui-fill-type (concat 1183 " ")
1184 (repeat-string (- acdw-irc/left-margin 2) 1184 " ")))
1185 " ")
1186 " "))
1187 1185
1188 (setq lui-time-stamp-position 'right-margin 1186 (setq lui-time-stamp-position 'right-margin
1189 lui-time-stamp-format "%H:%M") 1187 lui-time-stamp-format "%H:%M")
1190 (add-hook 'lui-mode-hook 1188 (add-hook 'lui-mode-hook
1191 (defun lui-mode@setup () 1189 (defun lui-mode@setup ()
1192 (setq right-margin-width 5 1190 (setq-local fringes-outside-margins t
1193 scroll-margin 0 1191 lui-track-bar-behavior 'before-switch-to-buffer
1194 fringes-outside-margins t 1192 right-margin-width 5
1195 word-wrap t 1193 scroll-margin 0
1196 wrap-prefix (repeat-string 1194 word-wrap t
1197 (1+ acdw-irc/left-margin) " "))))) 1195 wrap-prefix (repeat-string
1196 (1+ acdw-irc/left-margin) " "))
1197 (enable-lui-track-bar))))
1198 1198
1199(setup (:straight (consult 1199(setup (:straight (consult
1200 :host github 1200 :host github