From: plugd <plugd@thelambdalab.xyz>
Date: Thu, 15 Jul 2021 08:11:50 +0000 (+0200)
Subject: Appended spaces to autocompletions.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=405da5a7b32b37d510c30d3c5f27dd3ce01028ad;p=lurk.git

Appended spaces to autocompletions.
---

diff --git a/lurk.el b/lurk.el
index 42f4cdb..2a1bf3b 100644
--- a/lurk.el
+++ b/lurk.el
@@ -1056,12 +1056,13 @@ in which case they match anything.")
                             (re-search-backward " " lurk-input-marker t)))
                (table-row (assoc (upcase cmd-str) lurk-command-table #'equal)))
            (if (and table-row (elt table-row 3))
-               (let ((completions (funcall (elt table-row 3))))
+               (let* ((completions-nospace (funcall (elt table-row 3)))
+                      (completions (mapcar (lambda (el) (concat el " ")) completions-nospace)))
                  (completion-in-region (+ 1 space-idx) (point) completions)))))
         ((rx (: "/" (* (not whitespace)) string-end))
          (message (buffer-substring lurk-input-marker (point)))
          (completion-in-region lurk-input-marker (point)
-                               (mapcar (lambda (row) (string-join (list "/" (car row))))
+                               (mapcar (lambda (row) (concat "/" (car row) " "))
                                        lurk-command-table)))
         (_
          (let* ((end (max lurk-input-marker (point)))