From: plugd <plugd@thelambdalab.xyz>
Date: Tue, 13 Jul 2021 22:06:59 +0000 (+0200)
Subject: Added command completion.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=b6f2df4110c9ffe83bd3a3c4b3aa378682f8d626;p=lurk.git

Added command completion.
---

diff --git a/lurk.el b/lurk.el
index 7b46aae..085a8ed 100644
--- a/lurk.el
+++ b/lurk.el
@@ -961,14 +961,19 @@ in which case they match anything.")
   (interactive)
   (when (and (>= (point) lurk-input-marker))
     (pcase (buffer-substring lurk-input-marker (point))
-      ((rx (: "/connect" (+ " ")
-              (opt (let network (* (not whitespace))))
-              string-end))
+      ((rx (: "/connect" (+ " ") (* (not whitespace)) string-end))
        (let ((space-idx (save-excursion
                           (re-search-backward " " lurk-input-marker t))))
          (completion-in-region (+ 1 space-idx)
                                (point)
                                (mapcar (lambda (row) (car row)) lurk-networks))))
+      ((rx (: "/" (* (not whitespace)) string-end))
+       (message (buffer-substring lurk-input-marker (point)))
+       (completion-in-region lurk-input-marker (point)
+                             '("/connect"
+                               "/join"
+                               "/part"
+                               "/quit")))
       (_
        (let* ((end (max lurk-input-marker (point)))
               (space-idx (save-excursion