From b6f2df4110c9ffe83bd3a3c4b3aa378682f8d626 Mon Sep 17 00:00:00 2001 From: plugd Date: Wed, 14 Jul 2021 00:06:59 +0200 Subject: [PATCH] Added command completion. --- lurk.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) 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 -- 2.20.1