picrin/etc/picrin-scheme-keyword-highl...

30 lines
872 B
EmacsLisp
Raw Normal View History

2014-03-24 00:42:24 -04:00
;;; 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)))