Nhận mặt phông chữ dưới con trỏ trong Emacs

Tôi đang phát triển chủ đề màu tùy chỉnh của riêng mình và sẽ thực sự hữu ích nếu tôi có thể nhận được danh sách các mặt phông chữ ảnh hưởng đến văn bản dưới con trỏ.

Một cái gì đó giống như Textmate's hiển thị lệnh phạm vi hiện tại.

Điều đó sẽ giúp tôi đỡ gặp rắc rối khi thực hiện Mx tùy chỉnh khuôn mặt và xem qua các tùy chọn có sẵn, đoán xem cái nào ảnh hưởng đến từ hiện tại tôi đang sử dụng.

Bất kỳ ý tưởng?

Bạn có thể xác định what-facebằng mã này:

(defun what-face (pos)
  (interactive "d")
  (let ((face (or (get-char-property (pos) 'read-face-name)
                  (get-char-property (pos) 'face))))
    (if face (message "Face: %s" face) (message "No face at %d" pos))))

Sau đó,

M-x what-face

sẽ in mặt được tìm thấy tại điểm hiện tại.

(Cảm ơn thedz đã chỉ ra điều đó what-facekhông được tích hợp sẵn.)

what-cursor-position với một đối số tiền tố hiển thị mặt dưới điểm, trong số các thông tin khác.

Phím tắt là Cu Cx =

Đầu ra ví dụ (thuộc tính khuôn mặt được hiển thị trong đoạn cuối):

             position: 5356 of 25376 (21%), column: 4
            character: r (displayed as r) (codepoint 114, #o162, #x72)
    preferred charset: ascii (ASCII (ISO646 IRV))
code point in charset: 0x72
               syntax: w    which means: word
             category: .:Base, L:Left-to-right (strong), a:ASCII, l:Latin, r:Roman
          buffer code: #x72
            file code: #x72 (encoded by coding system undecided-unix)
              display: by this font (glyph code)
    nil:-apple-Monaco-medium-normal-normal-*-12-*-*-*-m-0-iso10646-1 (#x55)

Character code properties: customize what to show
  name: LATIN SMALL LETTER R
  general-category: Ll (Letter, Lowercase)
  decomposition: (114) ('r')

There are text properties here:
  face                 org-level-2
  fontified            t

[back]

Mx mô tả-khuôn mặt

Trey đang đi đúng hướng. Nó dẫn tôi đến một email trên danh sách gửi thư có điều này:

(defun what-face (pos)
    (interactive "d")
        (let ((face (or (get-char-property (point) 'read-face-name)
            (get-char-property (point) 'face))))
    (if face (message "Face: %s" face) (message "No face at %d" pos))))

Có một lỗi trong mã `what-face ': hàm lấy" pos "làm đối số nhưng sau đó không sử dụng nó khi lấy khuôn mặt - thay vào đó nó sử dụng" (point) ", mặc dù sau đó thông báo khẳng định là pos trong trường hợp "Không có mặt ở% d".