diff --git a/init.el b/init.el index 7526ad1..5d69d68 100644 --- a/init.el +++ b/init.el @@ -657,11 +657,23 @@ directory. Otherwise, run `find-file' on that file." (require 'mozc-posframe) (setq mozc-candidate-style 'posframe)) -;; (defun my/-fix-mozc-face (face) -;; "Remove the (type graphics x w32) requirement for the mozc face FACE." -;; (let ((spec (custom-face-get-current-spec-unfiltered face))) -;; (cl-loop for ent in spec -;; for ))) +(face-spec-set 'mozc-cand-overlay-focused-face + '((t :foreground unspecified :background unspecified + :inverse-video unspecified :inherit region))) +(face-spec-set 'mozc-cand-overlay-odd-face + '((t :foreground unspecified :background unspecified + :inverse-video unspecified :underline unspecified + :inherit default))) +(face-spec-set 'mozc-cand-overlay-even-face + '((t :foreground unspecified :background unspecified + :inverse-video unspecified :underline unspecified + :inherit default))) +(face-spec-set 'mozc-cand-overlay-footer-face + '((t :foreground unspecified :background unspecified + :inverse-video unspecified :inherit mode-line))) +(face-spec-set 'mozc-preedit-selected-face + '((t :inverse-video unspecified :underline t + :inherit region))) ;; mozc status bar stuff (defun my/-update-waybar-fcitx-state () @@ -3796,10 +3808,10 @@ buffers `helpful--sym' to `my/helpful-symbol-history'." "Descrive the plist of SYMBOL in a buffer." (interactive (list (intern (completing-read "Symbol: " - (let ((syms)) - (mapatoms (##push (symbol-name %) syms)) - syms) - nil t)))) + obarray + nil t nil t + (and-let* ((sym (symbol-at-point))) + (symbol-name sym)))))) (with-current-buffer (get-buffer-create "*describe-symbol-plist*") (unless (derived-mode-p 'special-mode) (special-mode))