lisp/editrc.el

   1 ;;; A simple rc to configure Emacs' editing behavior.
   2
   3 ;;; Spaces instead of tabs.
   4 (setq-default tab-width 4
   5               indent-tabs-mode nil)
   6 (setq tab-stop-list (number-sequence 4 120 4))
   7
   8 ;;; Rectangular selection.
   9 ;;; (cua-selection-mode t)
  10
  11 ;;; Turn on some "confusing" commands.
  12 (put `upcase-region `disabled nil)
  13 (put `downcase-region `disabled nil)
  14 (put 'dired-find-alternate-file 'disabled nil)
  15
  16 ;;; "stroustrup" and "k&r" in lieu of "gnu".
  17 (setq-default c-default-style '((java-mode . "java")
  18                                 (awk-mode . "awk")
  19                                 (c++-mode . "stroustrup")
  20                                 (other . "k&r")))
  21
  22 ;;; Java is conventionally camel cased.
  23 (add-hook 'java-mode-hook 'subword-mode)
  24
  25 ;;; Paredit for all the s-expression language modes.
  26 (when (require 'paredit nil t)
  27   (dolist (mode-hook '(clojure-mode-hook
  28                        emacs-lisp-mode-hook
  29                        inferior-lisp-mode-hook
  30                        lisp-interaction-mode-hook
  31                        ielm-mode-hook
  32                        lisp-mode-hook
  33                        cider-repl-mode-hook
  34                        inferior-scheme-mode-hook
  35                        scheme-mode-hook))
  36     (add-hook mode-hook 'paredit-mode)))
  37
  38 ;;; Redshank refactoring for Common Lisp.
  39 (when (require 'redshank nil t)
  40   (add-hook 'lisp-mode-hook 'redshank-mode)
  41   (add-hook 'inferior-lisp-mode-hook 'redshank-mode))
  42
  43 ;;; Use buffer local 'lisp-indent-function values corresponding to the
  44 ;;; mode.
  45 (add-hook 'lisp-mode-hook 'yard-set-common-lisp-indent)
  46 (add-hook 'inferior-lisp-mode-hook 'yard-set-common-lisp-indent)
  47 (add-hook 'lisp-interaction-mode-hook 'yard-set-elisp-indent)
  48 (add-hook 'ielm-mode-hook 'yard-set-elisp-indent)
  49 (add-hook 'emacs-lisp-mode-hook 'yard-set-elisp-indent)
  50
  51 ;;; Clojure is married to Java which is married to camel case.
  52 (add-hook 'clojure-mode-hook 'subword-mode)
  53 (add-hook 'cider-repl-mode-hook 'subword-mode)
  54
  55 ;;; Clobber javascript-mode with js2-mode.
  56 (add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
  57
  58 ;;; Automatic minor modes.
  59 (add-hook 'find-file-hook 'yard-set-auto-minor-mode)
  60
  61 ;;; Sane indentation of the loop macro in Common Lisp.
  62 (setq lisp-simple-loop-indentation 2
  63       lisp-loop-keyword-indentation 6
  64       lisp-loop-forms-indentation 9)