diff options
-rw-r--r-- | init.el | 72 |
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 |