diff --git a/modules/app/irc/autoload/irc.el b/modules/app/irc/autoload/irc.el index 388410492..1e1f01210 100644 --- a/modules/app/irc/autoload/irc.el +++ b/modules/app/irc/autoload/irc.el @@ -20,9 +20,11 @@ If INHIBIT-WORKSPACE (the universal argument) is non-nil, don't spawn a new workspace for it." (interactive "P") - (and (+irc-setup-wconf inhibit-workspace) - (cl-loop for network in circe-network-options - collect (circe (car network))))) + (if (+workspace-exists-p +irc--workspace-name) + (+workspace-switch +irc--workspace-name) + (and (+irc-setup-wconf inhibit-workspace) + (cl-loop for network in circe-network-options + collect (circe (car network)))))) ;;;###autoload (defun +irc/connect (&optional inhibit-workspace) diff --git a/modules/app/irc/config.el b/modules/app/irc/config.el index c1704c314..db4c039a5 100644 --- a/modules/app/irc/config.el +++ b/modules/app/irc/config.el @@ -3,6 +3,9 @@ (defvar +irc-left-padding 13 "TODO") +(defvar +irc-truncate-nick-char ?… + "Character to displayed when nick > `+irc-left-padding' in length.") + (defvar +irc-scroll-to-bottom-on-commands '(self-insert-command yank hilit-yank) "If these commands are called pre prompt the buffer will scroll to `point-max'.") @@ -93,7 +96,7 @@ playback.") :nick))) (when (> (length nick) +irc-left-padding) (compose-region (+ beg +irc-left-padding -1) end - ?…))))) + +irc-truncate-nick-char))))) (add-hook 'lui-pre-output-hook #'+irc*circe-truncate-nicks) (defun +irc|circe-message-option-bot (nick &rest ignored)