Tôi có thể sử dụng một hình ảnh trong bật lửa mô hình của tôi?

Modeline của tôi là bừa bộn. Tôi có thể làm cho nó hiển thị hình ảnh thay vì tên chế độ?

Tôi có thể sử dụng biểu tượng cảm xúc unicode (như cho Python hoặc cho Coq), nhưng một số máy tôi sử dụng cấu hình Emacs của tôi không có phông chữ phù hợp được cài đặt sẵn (lý tưởng là tôi cũng muốn sử dụng lại kỹ thuật này trong chế độ mà tôi đang viết, vì vậy tôi không thể mong đợi người dùng có thiết lập phông chữ phù hợp).

Tôi đã thử thêm một thuộc tính :imagehiển thị vào bật lửa mô hình của chế độ phụ đồ chơi, nhưng không có gì xuất hiện trong mô hình:

(define-minor-mode my/test-mode
  "Test mode."
  :lighter (propertize " 🐓" 'display '(image :type imagemagick
                                             :file "/home/clement/.emacs.d/rooster.png")))

Dòng chế độ được hiển thị từ một danh sách các phân đoạn, mỗi phân đoạn đi kèm với các quy tắc đặc biệt của riêng chúng. Xem dữ liệu Line Mode để biết chi tiết. Phần biểu tượng chứa một gợi ý quan trọng để làm cho mã của bạn hoạt động:

Trừ khi SYMBOL được đánh dấu là rủi ro rủi ro (tức là nó có thuộc tính không phải là "biến rủi ro-cục bộ"), tất cả các thuộc tính văn bản được chỉ định trong giá trị của SYMBOL đều bị bỏ qua. Điều này bao gồm các thuộc tính văn bản của các chuỗi trong giá trị của SYMBOL, cũng như tất cả các biểu mẫu ': eval' và ': orthtize' trong đó. (Lý do cho điều này là bảo mật: các biến không rủi ro có thể được đặt tự động từ các biến tệp mà không nhắc người dùng.)

Tôi nghi ngờ chế độ nyan đang thực hiện nó theo cách không lý tưởng , vì vậy đây là ví dụ tối thiểu của tôi:

(defvar my-nyan-mode-lighter
  (list " " (propertize ":3" 'display
                        `(image :type imagemagick
                                :file ,(expand-file-name "~/nyan.png")))))
(put 'my-nyan-mode-lighter 'risky-local-variable t)

(define-minor-mode my-nyan-mode
  "Nyan mode"
  :lighter my-nyan-mode-lighter)

(my-nyan-mode)

Lý do tại sao tôi sử dụng một danh sách không gian và hình ảnh là bởi vì đó là quy ước để bắt đầu một cái bật lửa với một không gian để tách nó ra khỏi những cái trước đó.

Câu hỏi hay.

Bạn có thể thử sử dụng một cái gì đó như thế này như một cái bật lửa : (concat " " (propertize " " 'display (create-image img-file))), img-filetên của tệp hình ảnh của bạn ở đâu. (Char không gian đầu tiên chỉ là để tách chiếc bật lửa này khỏi cái trước đó.)

Chà, tôi vừa thử, sử dụng mã này, nhưng nó không hoạt động với tôi. Bạn có thể thử nghịch một chút với nó. Cho dù đó là có thể.

(defvar my-lighter-string
        (concat " " (propertize " " 'display (create-image "/path/to/an/image/file.png"))))

(define-minor-mode foo "..." nil my-lighter-string)

Cái bật lửa chỉ hiển thị như một char không gian thông thường - displaytài sản dường như không được tôn trọng.

Nếu bạn không nhận được câu trả lời tốt cho câu hỏi này, hãy xem xét việc gửi yêu cầu tăng cường Emacs, sử dụng M-x report-emacs-bug.

Một điều bạn chắc chắn có thể làm là sử dụng một hoặc hai ký tự Unicode trong chuỗi dòng chế độ. Và bạn có thể sử dụng ký tự, trong thực tế, đồ họa.