VL
Ну так решение очевидно ...
Написать имакс на электроне
Size: a a a
2021 January 01
𝘎(
а я конфиг для емакса пилю
го вместе
𝘎(
Написать имакс на электроне
просто в вебассембли скомпилить
𝘎(
я те говорю за эъим блят ь будущчее
ND
го вместе
Бля, я уже спать попиздил
𝘎(
Бля, я уже спать попиздил
(
VL
а я конфиг для емакса пилю
Лол я допилил вроде
𝘎(
Бля, я уже спать попиздил
можем завтра
VL
Убрал orderless
ND
Убрал orderless
Где-то плачет один омар
VL
Убрал embark-live-occur
VL
Научился пользоваться дефолтным capf
VL
Пытаюсь опять вернуть экшны в свой воркфлоу через embark
VL
Но отучился и сложно
Aß
(defun my-completion-insert-strings (strings)
"STRINGS."
(when (consp strings)
(let (last)
(dolist (str strings)
(unless (equal str last)
(setq last str)
(let ((begin (point)))
(insert (if (consp str) (car str) str))
(put-text-property begin (point) 'mouse-face 'highlight))
(when (consp str)
(let ((begin (point)))
(insert (cadr str))
(put-text-property begin (point) 'mouse-face nil)
(font-lock-prepend-text-property begin (point) 'face 'completions-annotations)))
(insert "\n"))))))Aß
A ß
(defun my-completion-insert-strings (strings)
"STRINGS."
(when (consp strings)
(let (last)
(dolist (str strings)
(unless (equal str last)
(setq last str)
(let ((begin (point)))
(insert (if (consp str) (car str) str))
(put-text-property begin (point) 'mouse-face 'highlight))
(when (consp str)
(let ((begin (point)))
(insert (cadr str))
(put-text-property begin (point) 'mouse-face nil)
(font-lock-prepend-text-property begin (point) 'face 'completions-annotations)))
(insert "\n"))))))@xFA25E вот с этой фигней и completions-frame-mode выглядит уже прилично
VL
Но отучился и сложно
Icomplete тоже дропнул
Aß
(advice-add 'completion--insert-strings :override #'my-completion-insert-strings)VL
A ß
@xFA25E вот с этой фигней и completions-frame-mode выглядит уже прилично
Потом гляну