Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;; all code in this function lifted from the clojure-mode function
- ;;; from clojure-mode.el
- (defun clojure-font-lock-setup ()
- (interactive)
- (set (make-local-variable 'lisp-indent-function)
- 'clojure-indent-function)
- (set (make-local-variable 'lisp-doc-string-elt-property)
- 'clojure-doc-string-elt)
- (set (make-local-variable 'font-lock-multiline) t)
- (add-to-list 'font-lock-extend-region-functions
- 'clojure-font-lock-extend-region-def t)
- (when clojure-mode-font-lock-comment-sexp
- (add-to-list 'font-lock-extend-region-functions
- 'clojure-font-lock-extend-region-comment t)
- (make-local-variable 'clojure-font-lock-keywords)
- (add-to-list 'clojure-font-lock-keywords
- 'clojure-font-lock-mark-comment t)
- (set (make-local-variable 'open-paren-in-column-0-is-defun-start) nil))
- (setq font-lock-defaults
- '(clojure-font-lock-keywords ; keywords
- nil nil
- (("+-*/.<>=!?$%_&~^:@" . "w")) ; syntax alist
- nil
- (font-lock-mark-block-function . mark-defun)
- (font-lock-syntactic-face-function
- . lisp-font-lock-syntactic-face-function))))
- (add-hook 'slime-repl-mode-hook
- (lambda ()
- ;(font-lock-mode nil)
- (clojure-font-lock-setup)
- ;(font-lock-mode t)
- ))
- (defadvice slime-repl-emit (after sr-emit-ad activate)
- (with-current-buffer (slime-output-buffer)
- (add-text-properties slime-output-start slime-output-end
- '(font-lock-face slime-repl-output-face
- rear-nonsticky (font-lock-face)))))
- (defadvice slime-repl-insert-prompt (after sr-prompt-ad activate)
- (with-current-buffer (slime-output-buffer)
- (let ((inhibit-read-only t))
- (add-text-properties slime-repl-prompt-start-mark (point-max)
- '(font-lock-face slime-repl-prompt-face
- rear-nonsticky
- (slime-repl-prompt
- read-only
- font-lock-face
- intangible))))))
Add Comment
Please, Sign In to add comment