From: plugd <plugd@thelambdalab.xyz>
Date: Sat, 11 May 2024 20:50:53 +0000 (+0200)
Subject: Fleshing out connection code.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=c9f26bfc770f70d1e0eb20d609d9cf2727fcb3af;p=lurk.git

Fleshing out connection code.
---

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)))))