From c9f26bfc770f70d1e0eb20d609d9cf2727fcb3af Mon Sep 17 00:00:00 2001 From: plugd Date: Sat, 11 May 2024 22:50:53 +0200 Subject: [PATCH] Fleshing out connection code. --- murk.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/murk.el b/murk.el index 49adc34..af7fd0e 100644 --- a/murk.el +++ b/murk.el @@ -88,7 +88,7 @@ This includes the process and the response string.") (elt (assoc server murk-connection-table) 2)) (defun murk-set-connection-response (server string) - (setf (elt (assoc server murk-connection-table) 3) string)) + (setf (elt (assoc server murk-connection-table) 2) string)) (defun murk-connection-close (server) (setq murk-connection-table (assoc-delete-all server murk-connection-table))) @@ -114,7 +114,7 @@ This includes the process and the response string.") (host (elt row 1)) (port (elt row 2)) (flags (seq-drop row 3))) - (make-network-process :name (concat "lurk" server) + (make-network-process :name (concat "murk-" server) :host host :service port :family nil @@ -138,7 +138,9 @@ This includes the process and the response string.") (murk-display-error "Already connected to this network.") (if (not (assoc server murk-networks)) (murk-display-error "Network '" server "' is unknown.") - (murk-start-process server) + (let ((proc (murk-start-process server))) + (add-to-list murk-connection-table + (list server proc ""))) (murk-send-msg (murk-msg nil nil "USER" murk-nick 0 "*" murk-nick)) (murk-send-msg (murk-msg nil nil "NICK" murk-nick))))) -- 2.20.1