¥
Size: a a a
2021 November 04
D
нуу на него какой-то чел на комбинаторе линк оставил, мб там
DL
(dolist (mapbind blamer-bindings)
(let ((map (make-sparse-keymap)))
;; (define-key map (kbd (car mapbind))
(define-key map (kbd (car mapbind))
(lambda ()
(interactive)
(funcall (cdr mapbind) commit-info)))
падажжи, а где у тебя тут фигурирует text?
D
эт чуть более старый коммит, его скинул потому что там снизу пример мапинга ‘снаружи’
D
(defun blamer--apply-bindings (text commit-info)
"Apply defined bindings to TEXT and pass COMMIT-INFO to callback."
(let ((map (make-sparse-keymap)))
(dolist (mapbind blamer-bindings)
(define-key map (kbd (car mapbind))
(lambda ()
(interactive)
(funcall (cdr mapbind) commit-info)))
(setq text (propertize text 'keymap map))))
text)
DL
а зачем тебе надо commit-info замыкать? в проперти его прописать нельзя, чтобы оттуда выдирать при необходимости?
f
Открыл файл на 31к строк.
Емакс завис.
Емакс завис.
f
Не хочу жить в мире, где емакс зависает от таких относительно небольших файлов
f
?
A
у меня файлы на 31к нормально вроде открываются
DL
у меня тоже, и даже длиннее
f
Он у меня даже линии посчитать не может
DL
Короче, как бы, наверное, сделал я: просто сделал дженерик кимапу с биндами, а в проперти прописывал бы commit-info
D
я видимо так далеко еще не зашел, в лиспе дженерики это не про обобщения? типа sort(a: T[]) где T любой тип?
DL
¥
в каком лиспе
¥
какие дженерики