From 497fe962a0a369cb3638b3aa2f3d50f566def46d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 28 Aug 2021 00:25:59 -0500
Subject: Add ZNC stuff...

*NOTE*: private.el has also been updated!!!
---
 lisp/acdw-erc.el | 35 +++++++++++++++++++++++++++++++----
 1 file changed, 31 insertions(+), 4 deletions(-)

(limited to 'lisp')

diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el
index e375c61..801e871 100644
--- a/lisp/acdw-erc.el
+++ b/lisp/acdw-erc.el
@@ -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)
@@ -196,6 +194,35 @@ erc-modified-channels-alist. Should be executed on window change."
   (add-hook 'erc-send-completed-hook (lambda (str)
                                        (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
-- 
cgit 1.4.1-21-gabe81