X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=lurk.git;a=blobdiff_plain;f=lurk.el;h=085a8ed77c993b1680292fbc53961944068d696b;hp=7b46aae44923166e9bf1e6d939d77444e7f1cd1d;hb=b6f2df4110c9ffe83bd3a3c4b3aa378682f8d626;hpb=13de999a3a8667a9c5dafbdb70a591f0660e2ee2

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