From: plugd <plugd@thelambdalab.xyz>
Date: Sun, 19 May 2024 20:23:15 +0000 (+0200)
Subject: Sticking with 26.1 compatibility
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=f804b7fc5edcfd10f9d930c73d78de87c625d195;p=lurk.git

Sticking with 26.1 compatibility
---

diff --git a/murk.el b/murk.el
index a10fb2f..6f6fdc0 100644
--- a/murk.el
+++ b/murk.el
@@ -1,13 +1,13 @@
-;;; MURK --- Multiserver Unibuffer iRc Klient -*- lexical-binding:t -*-
+;;; murk.el --- Multiserver Unibuffer iRc Klient -*- lexical-binding:t -*-
 
 ;; Copyright (C) 2024 plugd
 
 ;; Author: plugd <plugd@thelambdalab.xyz>
 ;; Created: 11 May 2024
 ;; Version: 0.0
-;; Keywords: network
 ;; Homepage: http://thelambdalab.xyz/murk
-;; Package-Requires: ((emacs "26"))
+;; Keywords: comm
+;; Package-Requires: ((emacs "26.1"))
 
 ;; This file is not part of GNU Emacs.
 
@@ -26,6 +26,8 @@
 
 ;;; Commentary:
 
+;; A very simple IRC server which uses only a single buffer.
+
 ;;; Code:
 
 (provide 'murk)
@@ -142,7 +144,9 @@ This includes the process and the response string.")
                (list server process nick "")))
 
 (defun murk-connection-remove (server)
-  (setq murk-connection-table (assoc-delete-all server murk-connection-table)))
+  (setq murk-connection-table
+        (seq-remove (lambda (row) (equal (car row) server))
+                    murk-connection-table)))
 
 (defun murk-make-server-filter (server)
   (lambda (_proc string)
@@ -248,7 +252,7 @@ portion of the source component of the message, as mURK doesn't use this.")
              (params-str (match-string 4 string))
              (params
               (if params-str
-                  (let* ((idx (cl-search ":" params-str))
+                  (let* ((idx (seq-position params-str ?:))
                          (l (split-string (string-trim (substring params-str 0 idx))))
                          (r (if idx (list (substring params-str (+ 1 idx))) nil)))
                     (append l r))
@@ -319,7 +323,8 @@ The head of this list is always the current context.")
 
 (defun murk-remove-server-contexts (server)
   (setq murk-contexts
-        (assoc-delete-all server murk-contexts)))
+        (seq-remove (lambda (row) (equal (car row) server))
+                    murk-contexts)))
 
 (defun murk-context->string (ctx)
    (if (murk-server-context-p ctx)
@@ -918,5 +923,4 @@ The head of this list is always the current context.")
     (murk-setup-buffer))
   "Started murk.")
 
-
 ;;; murk.el ends here