Added command completion.

diff --git a/lurk.el b/lurk.el
index 7b46aae..085a8ed 100644 (file)
--- 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