0010-lisp.el 837 B

123456789101112131415161718192021222324
  1. (dolist (hook '(paredit-mode))
  2. (add-hook 'lisp-mode-hook hook))
  3. (add-hook 'emacs-lisp-mode-hook 'paredit-mode)
  4. (add-hook 'comint-mode-hook 'paredit-mode)
  5. (setq common-lisp-hyperspec-root
  6. (concat "file://"
  7. (getenv "HOME")
  8. "/.emacs.d/HyperSpec/"))
  9. (setq inferior-lisp-program "sbcl --noinform")
  10. ;; Bind arrow keys in dumb terminals for paredit
  11. (add-hook 'paredit-mode-hook
  12. (lambda ()
  13. (global-set-key (kbd "M-[ c")
  14. 'paredit-forward-slurp-sexp)
  15. (global-set-key (kbd "ESC M-[ d")
  16. 'paredit-backward-slurp-sexp)
  17. (global-set-key (kbd "ESC M-[ c")
  18. 'paredit-backward-barf-sexp)
  19. (global-set-key (kbd "M-[ d")
  20. 'paredit-forward-barf-sexp)))