A
а я хочу вместо него магит
Size: a a a
2021 January 12
VL
точнее из коробки там vc-dir
смотри project-switch-commands
VL
переменная
VL
в список добавь (list (kbd "your key") "Your command name" function)
A
ммкай, готово
A
еще б научиться оттуда лишнее убирать
A
(add-to-list 'project-switch-commands
'(?g "Magit status" magit-status)))
A
то есть вот собссно все
Aß
они из коробки есть
A
магит сам умеет в корень выбираться
Aß
даже магит туда автоматически подсасывается, только не сразу
Aß
magit-extras если загрузить
A
(setq project-switch-commands
(cons '(?g "Magit status" magit-status)
(cl-remove-if (lambda (r) (equal (cadr r) "VC-Dir")) project-switch-commands))))
(cons '(?g "Magit status" magit-status)
(cl-remove-if (lambda (r) (equal (cadr r) "VC-Dir")) project-switch-commands))))
A
и даже еще лучше. cl-remove-if-not member и список того, что надо оставить
Aß
(cl-remove 'project-vc-dir project-switch-commands :key #'caddr)A
хотя в этом случае можно вообще просто руками собрать нужный список
Aß
или
cl-set-differenceA
(setq project-switch-commands
'((?f "Find file" project-find-file)
(?g "Magit status" magit-status))))
Aß
project-compile тоже полезно