Обновление linum и linum-относительного фона при изменении цветовой темы в emacs/spacemacs
Попытка выровнять нумерацию строк с разделителем и тем же цветом фона, что и у подсветки строк в Spacemacs, была довольно сложной. Специально, когда дело дошло до того, что делали одновременно и в родном и в родственном роде.
Я не знаю, в порядке ли этот код, но пока он справляется:
(defun dotspacemacs/user-config ()
"Configuration function for user code.
This function is called at the very end of Spacemacs initialization after
layers configuration. You are free to put any user code."
(global-linum-mode t)
(unless window-system
(add-hook 'linum-before-numbering-hook
(lambda ()
(setq-local my-linum-format-fmt
(let ((w (length (number-to-string
(count-lines (point-min) (point-max))))))
(concat "%" (number-to-string w) "d"))))
(set-face-attribute 'linum nil
:background (face-background 'hl-line nil t))))
(defface my-linum-hl
`((t :inherit linum :background ,(face-background 'hl-line nil t)))
"Face for the current line number."
:group 'linum)
(defun my-linum-format-func (line)
(concat
(propertize (format my-linum-format-fmt line) 'face 'my-linum-hl)
(propertize " " 'face 'my-linum-hl)))
(unless window-system
(setq linum-format 'my-linum-format-func))
;; linum-relative
(linum-relative-toggle)
(unless window-system
(setq-local my-linum-relative-format-fmt
(let ((w (length (number-to-string
(count-lines (point-min) (point-max))))))
(concat "%" (number-to-string w) "s "))))
(unless window-system
(setq linum-relative-format my-linum-relative-format-fmt))
)
Проблема в том, что цвет фона чисел не меняется на правильный, когда я меняю тему в Emacs. Цвет остается прежним. Как заставить emacs обновлять цвет фона linum и linum-specific после смены цветовой темы?