รับหน้าแบบอักษรภายใต้เคอร์เซอร์ใน Emacs

ฉันได้พัฒนาชุดรูปแบบสีที่กำหนดเองและจะมีประโยชน์มากหากฉันสามารถหารายการใบหน้าแบบอักษรที่มีผลต่อข้อความใต้เคอร์เซอร์ได้

บางอย่างเช่นคำสั่งแสดงขอบเขตปัจจุบันของ Textmate

นั่นจะช่วยให้ฉันไม่ต้องกังวลกับการปรับแต่งใบหน้าของ Mx และดูตัวเลือกที่มีอยู่โดยเดาว่าอันไหนมีผลต่อคำปัจจุบันที่ฉันใช้อยู่

ความคิดใด ๆ ?

คุณสามารถกำหนดwhat-faceด้วยรหัสนี้:

(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))))

หลังจากนั้น,

M-x what-face

จะพิมพ์ใบหน้าที่พบ ณ จุดปัจจุบัน

(ขอบคุณthedz ที่ชี้ให้เห็นwhat-faceว่าไม่ได้ติดตั้งมาในตัว)

what-cursor-position ด้วยอาร์กิวเมนต์คำนำหน้าจะแสดงใบหน้าที่อยู่ภายใต้จุดรวมถึงข้อมูลอื่น ๆ

แป้นพิมพ์ลัดคือCu Cx =

ตัวอย่างผลลัพธ์ (คุณสมบัติใบหน้าแสดงในย่อหน้าสุดท้าย):

             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 อธิบายใบหน้า

ใบหน้าของ Trey มาถูกทางแล้ว มันนำฉันไปสู่อีเมลในรายชื่อส่งเมลที่มีสิ่งนี้:

(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))))

มีข้อบกพร่องในโค้ด `` what-face ': ฟังก์ชันนี้ใช้ "pos" เป็นอาร์กิวเมนต์ แต่ไม่ได้ใช้เมื่อได้รับใบหน้า แต่จะใช้ "(point)" แทนแม้ว่าข้อความจะอ้างว่า pos ในภายหลังก็ตามในกรณี "No face at% d"