30 lines
872 B
EmacsLisp
30 lines
872 B
EmacsLisp
|
;;; ADD ME TO YOUR .emacs.d/init.el
|
||
|
|
|
||
|
|
(defun scheme-add-keywords (face-name keyword-rules)
|
||
|
|
(let* ((keyword-list (mapcar #'(lambda (x)
|
||
|
|
(symbol-name (cdr x)))
|
||
|
|
keyword-rules))
|
||
|
|
(keyword-regexp (concat "(\\("
|
||
|
|
(regexp-opt keyword-list)
|
||
|
|
"\\)[ \n]")))
|
||
|
|
(font-lock-add-keywords 'scheme-mode
|
||
|
|
`((,keyword-regexp 1 ',face-name))))
|
||
|
|
(mapc #'(lambda (x)
|
||
|
|
(put (cdr x)
|
||
|
|
'scheme-indent-function
|
||
|
|
(car x)))
|
||
|
|
keyword-rules))
|
||
|
|
|
||
|
|
(scheme-add-keywords
|
||
|
|
'font-lock-keyword-face
|
||
|
|
'((1 . when)
|
||
|
|
(1 . unless)
|
||
|
|
(1 . define-library)
|
||
|
|
(0 . import)
|
||
|
|
(0 . export)
|
||
|
|
(1 . letrec*)
|
||
|
|
(1 . define-values)
|
||
|
|
(1 . define-record-type)
|
||
|
|
(1 . parameterize)
|
||
|
|
(0 . values)))
|