Find file
Fetching contributors…
Cannot retrieve contributors at this time
119 lines (100 sloc) 3.53 KB
(add-to-list 'load-path " /usr/local/share/emacs/site-lisp/")
(if (window-system)
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(if (fboundp 'tabbar-mode) (tabbar-mode -1))
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1)))
(setq history-length 500)
(setq history-delete-duplicates t)
(setq backup-directory-alist (quote ((.* . "/tmp/emacs~/"))))
(setq show-parent-delay 0)
(setq ac-auto-start nil)
(setq make-backup-files nil)
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'dired-find-alternate-file 'disabled nil)
'(global-linum-mode t)
'(column-number-mode t)
'(font-use-system-font t)
'(inhibit-startup-screen t)
'(scroll-bar-mode (quote right))
'(truncate-lines t)
'(delete-selection-mode t))
(show-paren-mode 1)
(global-linum-mode t)
(add-hook 'dired-load-hook
(lambda () (load "dired-x")))
(add-hook 'dired-mode-hook
(function (lambda () (setq dired-omit-files-p t))))
(setq linum-disabled-modes-list '(eshell-mode wl-summary-mode dired-mode term-mode compilation-mode org-mode text-mode))
(setq linum-format
(lambda (line)
(propertize (format
(let ((w (length (number-to-string
(count-lines (point-min) (point-max))))))
(concat " %" (number-to-string w)
(if (window-system) "d" "d ")))
'face 'linum)))
(require 'ido)
(ido-mode t)
(setq ido-enable-prefix nil
ido-enable-flex-matching t
ido-create-new-buffer 'always
ido-use-filename-at-ppoint nil
ido-max-prospects 10)
;Make the server start on load
(require 'magit)
(setq magit-git-executable "/usr/local/bin/git")
(autoload 'paredit-mode "paredit"
"Minor mode for pseudo-structurally editing Lisp code." t)
(add-hook 'emacs-lisp-mode-hook (lambda () (paredit-mode +1)))
(add-hook 'lisp-mode-hook (lambda () (paredit-mode +1)))
(add-hook 'lisp-interaction-mode-hook (lambda () (paredit-mode +1)))
(add-hook 'slime-repl-mode-hook (lambda () (paredit-mode +1)))
;; Stop SLIME's REPL from grabbing DEL,
;; which is annoying when backspacing over a '('
(defun override-slime-repl-bindings-with-paredit ()
(define-key slime-repl-mode-map
(read-kbd-macro paredit-backward-delete-key) nil))
(add-hook 'slime-repl-mode-hook 'override-slime-repl-bindings-with-paredit)
(add-hook 'emacs-lisp-mode-hook
(lambda ()
(paredit-mode t)
(local-set-key (kbd "RnnnET") 'electrify-return-if-match)
(eldoc-add-command 'electrify-return-if-match)
(show-paren-mode t)))
(require 'bs)
(global-set-key (kbd "C-x C-b") 'bs-show)
(add-to-list 'bs-configurations
'("channels" nil nil "^[^#]" nil nil))
(add-to-list 'bs-configurations
'("targets" nil nil nil
(lambda (buf)
(with-current-buffer buf
(not (erc-default-target)))) nil))
;Productivity helpers like recent files
(require 'cl)
(require 'saveplace)
(require 'ffap)
(require 'uniquify)
(require 'ansi-color)
(require 'recentf)
(recentf-mode 1)
(global-set-key "\C-xf" 'recentf-open-files)
;Windmove (switch buffers with shift + Arrow)
(when (fboundp 'windmove-default-keybindings)