The Lambda Lab
/
projects
/
lurk.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
ff1085d
)
Fleshing out connection code.
author
plugd
<plugd@thelambdalab.xyz>
Sat, 11 May 2024 20:50:53 +0000
(22:50 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Sun, 26 May 2024 19:14:04 +0000
(21:14 +0200)
murk.el
patch
|
blob
|
history
diff --git
a/murk.el
b/murk.el
index
49adc34
..
af7fd0e
100644
(file)
--- 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)
(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)))
(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)))
(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
: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-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)))))
(murk-send-msg (murk-msg nil nil "USER" murk-nick 0 "*" murk-nick))
(murk-send-msg (murk-msg nil nil "NICK" murk-nick)))))