mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-03 12:27:26 -05:00
Add: app/irc: make truncate nick character customizable
This commit is contained in:
@ -3,6 +3,9 @@
|
|||||||
(defvar +irc-left-padding 13
|
(defvar +irc-left-padding 13
|
||||||
"TODO")
|
"TODO")
|
||||||
|
|
||||||
|
(defvar +irc-truncate-nick-char ?…
|
||||||
|
"Character to displayed when nick > `+irc-left-padding' in length.")
|
||||||
|
|
||||||
(defvar +irc-scroll-to-bottom-on-commands
|
(defvar +irc-scroll-to-bottom-on-commands
|
||||||
'(self-insert-command yank hilit-yank)
|
'(self-insert-command yank hilit-yank)
|
||||||
"If these commands are called pre prompt the buffer will scroll to `point-max'.")
|
"If these commands are called pre prompt the buffer will scroll to `point-max'.")
|
||||||
@ -93,7 +96,7 @@ playback.")
|
|||||||
:nick)))
|
:nick)))
|
||||||
(when (> (length nick) +irc-left-padding)
|
(when (> (length nick) +irc-left-padding)
|
||||||
(compose-region (+ beg +irc-left-padding -1) end
|
(compose-region (+ beg +irc-left-padding -1) end
|
||||||
?…)))))
|
+irc-truncate-nick-char)))))
|
||||||
(add-hook 'lui-pre-output-hook #'+irc*circe-truncate-nicks)
|
(add-hook 'lui-pre-output-hook #'+irc*circe-truncate-nicks)
|
||||||
|
|
||||||
(defun +irc|circe-message-option-bot (nick &rest ignored)
|
(defun +irc|circe-message-option-bot (nick &rest ignored)
|
||||||
|
Reference in New Issue
Block a user