diff options
author | Yuchen Pei <hi@ypei.me> | 2022-09-29 10:43:50 +1000 |
---|---|---|
committer | Yuchen Pei <hi@ypei.me> | 2022-09-29 10:43:50 +1000 |
commit | 19b43ada7e304221680df6e6fb53383d9a367d7c (patch) | |
tree | d073e1791d21bfc0cb9cfec7eb30ef3e7cd357ab /hcel-results.el | |
parent | ba93eaa07c02d1fe21c8b267f0e126ff1519a721 (diff) |
cut off component in minibuffer if too long
Diffstat (limited to 'hcel-results.el')
-rw-r--r-- | hcel-results.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/hcel-results.el b/hcel-results.el index 58c6f31..275cab9 100644 --- a/hcel-results.el +++ b/hcel-results.el @@ -332,6 +332,7 @@ Start by choosing a package." (defvar hcel-ids--minibuffer-saved-query nil) (defvar hcel-ids--minibuffer-saved-results nil) (defvar hcel-ids--minibuffer-selected nil) +(defvar hcel-ids-minibuffer-component-max-len 80) (defun hcel-ids--affixation-internal (scope items) (let ((results @@ -344,7 +345,9 @@ Start by choosing a package." (format " :: %s" (hcel-render-components - (alist-get 'components (alist-get 'idType info)))) + (alist-get 'components (alist-get 'idType info)) + nil + hcel-ids-minibuffer-component-max-len)) 'face 'completions-annotations)) (prefix (propertize |