Come evidenziare il nome di tutte le funzioni nella modalità lisp di Emacs?

Question

Come evidenziare il nome di tutte le funzioni nella modalità lisp di Emacs? Li voglio audace.

In altre parole, tutte le parole da ( al primo space. Non mi interessa eccezioni come (a . b)

Proprio come GitHub:

Answer 1

Utilizzare questa:

(defface font-lock-func-face 
    '((nil (:foreground "#7F0055" :weight bold)) 
     (t (:bold t :italic t))) 
    "Font Lock mode face used for function calls." 
    :group 'font-lock-highlighting-faces) 

(font-lock-add-keywords 
'emacs-lisp-mode 
'(("(\\s-*\\(\\_<\\(?:\\sw\\|\\s_\\)+\\)\\_>" 
    1 'font-lock-func-face))) 

Una cosa divertente: questo scombina con let attacchi, proprio come Github . Ma questo è quello che hai chiesto, giusto :)?

Answer 2

Il codice seguente evidenzia i nomi delle funzioni note di Emacs-Lisp.

Tenere presente che lo fa anche se alcune occorrenze di un determinato nome di funzione non rappresentano la funzione. Ad esempio, il nome potrebbe essere usato come nome di variabile. Non è un grosso problema in pratica, ma buono a sapersi.

;; `setq' is a variable here, but it is highlighted anyway. 
(let ((setq (foobar)))...) 

Per accendere automaticamente la evidenziando in modalità Emacs Lisp, fare questo:

(font-lock-add-keywords 'emacs-lisp-mode 
         '((my-fl . 'font-lock-constant-face)) ; Or whatever face you want.       'APPEND) 

(defun my-fl (_limit) 
    (let ((opoint (point)) 
     (found nil)) 
    (with-syntax-table emacs-lisp-mode-syntax-table 
     (while (not found) 
     (cond ((condition-case() 
        (save-excursion 
        (skip-chars-forward "'") 
        (setq opoint (point)) 
        (let ((obj (read (current-buffer)))) 
         (and (symbolp obj) (fboundp obj) 
          (progn (set-match-data (list opoint (point))) t)))) 
       (error nil)) 
       (forward-sexp 1) 
       (setq opoint (point) 
        found t)) 
       (t 
       (if (looking-at "\\(\\sw\\|\\s_\\)") 
        (forward-sexp 1) 
       (forward-char 1))))) 
     found))) 

Nota: Se si desidera vedere l'effetto di solo che questa evidenziazione, quindi prima fare questo in un Emacs buffer di modalità -Lisp, per sbarazzarsi di altri Emacs Lisp-font-lock evidenziando:

M-: (setq font-lock-keywords ()) RET 

UPDATE ---

ho creato un comando minor-mode e biblioteca per questo:

• Codice: hl-defined.el
• Description

Esso consente di evidenziare i simboli definiti Emacs Lisp: funzioni e variabili, solo funzioni, o solo variabili. In alternativa è possibile evidenziare solo i simboli non noti per essere definiti.