Emacs에서 커서 아래에 글꼴 가져 오기

나는 나만의 맞춤 색상 테마를 개발하고 있으며 커서 아래의 텍스트에 영향을 미치는 글꼴 목록을 얻을 수 있다면 정말 유용 할 것입니다.

Textmate의 show current scope 명령과 같은 것입니다.

그러면 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 설명 얼굴

트레이는 올바른 길을 가고있는 얼굴입니다. 다음과 같은 메일 링리스트의 이메일로 연결되었습니다.

(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"를 인수로 사용하지만 얼굴을 가져올 때 사용하지 않습니다. 대신 메시지가 나중에 pos를 주장 하더라도 "(point)"를 사용합니다. "% d에 얼굴 없음"사례에서.