x11-wm/stumpwm.stumpwm
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm.git synced 2026-09-10 07:26:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

updated completion previews

Browse source 
forgot to add this function
This commit is contained in:
Shozo 2020-03-07 17:19:40 +01:00 committed by GitHub
parent c919e66db2
commit 6dc0bc8292
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
input.lisp
View file

@ -404,15 +404,14 @@ with t, second with a, and third with o."
(multiple-value-bind (completions more)
(take *maximum-completions*
(remove-duplicates
(remove-if
(lambda (str)
(or (string= str "")
(< (length str) (length input-line))
(string/= input-line
(subseq str 0 (length input-line)))))
all-completions)
:test #'string=))
(if more
(remove-if
(lambda (str)
(or (string= str "")
(< (length str) (length input-line))
(not (potential-string-expansion input-line str))))
all-completions)
:test #'string=))
(if more
(append (butlast completions)
(list (format nil "... and ~D more" (1+ (length more)))))
completions))))