Add ZNC stuff...
This commit is contained in:
parent
5431862827
commit
f919fd4db3
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue