Merge pull request #168 from bandresen/app_irc__updates

app/irc updates

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)
+  (if (+workspace-exists-p +irc--workspace-name)
-       (cl-loop for network in circe-network-options
+      (+workspace-switch +irc--workspace-name)
-                collect (circe (car network)))))
+    (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)

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)