| 12345678910111213141516171819202122232425262728293031323334353637383940414243 |
-
- ;;;
- ;;; Elisp
- ;;;
- (defvar wi-elisp--prettify-symbols-alist
- '(("lambda" . ?λ)
- ("lambda*" . (?λ (Br . Bl) ?*)))
- "Alist of symbol prettifications for `emacs-lisp-mode'.")
- (add-hook 'emacs-lisp-mode-hook
- (lambda ()
- (set (make-local-variable 'prettify-symbols-alist)
- wi-elisp--prettify-symbols-alist)))
- (add-hook 'emacs-lisp-mode-hook #'(lambda () (setq fill-column 70)))
-
- ;;;
- ;;; Slime
- ;;;
- (setq slime-net-coding-system 'utf-8-unix)
- (setq slime-truncate-lines nil)
- (setq sldb-initial-restart-limit 12)
-
- ;;;
- ;;; hy
- ;;;
- (defconst wi-hy--prettify-symbols-alist
- '(("fn" . ?λ)
- ("True" . (?# (Br . Bl) ?t))
- ("False" . (?# (Br . Bl) ?f))))
- (when (functionp #'add-hooks)
- (add-hooks
- '(((hy-mode-hook)
- . (lambda ()
- (set (make-local-variable 'prettify-symbols-alist)
- wi-hy--prettify-symbols-alist))))))
|
