The Lambda Lab
/
projects
/
lurk.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
13de999
)
Added command completion.
author
plugd
<plugd@thelambdalab.xyz>
Tue, 13 Jul 2021 22:06:59 +0000
(
00:06
+0200)
committer
plugd
<plugd@thelambdalab.xyz>
Tue, 13 Jul 2021 22:06:59 +0000
(
00:06
+0200)
lurk.el
patch
|
blob
|
history
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))
(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))))
(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
(_
(let* ((end (max lurk-input-marker (point)))
(space-idx (save-excursion