From: plugd 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 ;; 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