1 files changed, 31 insertions, 4 deletions

@@ -80,7 +80,7 @@ If USE-TLS is non-nil, use TLS."
   (dolist (buffer (filter-server-buffers))
     (with-message (format "Reconnecting to server: %s" (buffer-name buffer))
       (with-current-buffer buffer
-        (erc-server-reconnect)))))
+        (erc-cmd-RECONNECT)))))
 
 (defun erc/disconnect ()
   "Disconnect from all IRC servers."
@@ -183,11 +183,9 @@ erc-modified-channels-alist. Should be executed on window change."
   "Overlay used to set bar")
 
 (setq erc-bar-overlay (make-overlay 0 0))
-
+(overlay-put erc-bar-overlay 'face '(:overline "gray"))
 
 (with-eval-after-load 'erc-track
-  (overlay-put erc-bar-overlay 'face '(:underline "gray"))
-
   ;;put the hook before erc-modified-channels-update
   (defadvice erc-track-mode (after erc-bar-setup-hook
                                    (&rest args) activate)
@@ -197,5 +195,34 @@ erc-modified-channels-alist. Should be executed on window change."
                                        (erc-bar-update-overlay))))
 
 
+;;; ZNC babeee
+;; needed variables are stored in private.el
+(defun znc/connect (znc-server znc-port znc-nick irc-servers)
+  (interactive (let ((zserv (or znc/server
+                                (read-string "ZNC Server: ")))
+                     (zport (or znc/port
+                                (read-number "ZNC Port: ")))
+                     (znick (or znc/nick
+                                (read-string "ZNC Nick: ")))
+                     (servers (or znc/irc-servers
+                                  (list
+                                   (cons
+                                    (read-string "IRC Server to connect to: ")
+                                    (read-passwd "Password: "))))))
+                 (list zserv zport znick servers)))
+  (let ((si 0))
+    (dolist (server irc-servers)
+      (run-at-time si nil
+                   (lambda ()
+                     (erc-tls :server znc-server
+                              :port znc-port
+                              :nick znc-nick
+                              :password (format "%s/%s:%s"
+                                                znc-nick
+                                                (car server)
+                                                (cdr server)))))
+      (setq si (1+ si)))))
+
+
 (provide 'acdw-erc)
 ;;; acdw-erc.el ends here