(define-key global-map "\^H" 'delete-backward-char)
(define-key global-map "\^]" 'lisp-send-defun)

(setq text-mode-hook 'auto-fill-mode)
(setq blink-matching-paren t)
(setq tab-width 8)
(setq font-lock-maximum-decoration t)
(setq-default show-trailing-whitespace t)
(setq-default indent-tabs-mode nil)
(setq c-basic-offset 4)
(setq inferior-lisp-program "clisp -I")

; make it so that
; if
; {
;   ...
; }
; is indented properly
(defun my-c-hook()
  (c-set-offset 'substatement-open 0 nil)
)

(add-hook 'c-mode-hook 'my-c-hook)
(add-hook 'c++-mode-hook 'my-c-hook)


(setq viper-expert-level 5)
(setq viper-inhibit-startup-message t)

; some shortcuts
(define-key esc-map "\^[v" 'viper-mode)
(define-key esc-map "\^[s" 'server-start)

(global-font-lock-mode)

(blink-cursor-mode nil)
(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(auto-compression-mode t nil (jka-compr))
 '(case-fold-search t)
 '(current-language-environment "UTF-8")
 '(default-input-method "rfc1345")
 '(global-font-lock-mode t nil (font-lock))
 '(pc-select-meta-moves-sexps t)
 '(pc-select-selection-keys-only t)
 '(pc-selection-mode t t)
 '(show-paren-mode t nil (paren))
 '(transient-mark-mode t))
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 )