Download
(defun edit-dot-emacs ()
"Load the .emacs file into a buffer for editing."
(interactive)
(find-file "~/.emacs"))
(defun reload-dot-emacs ()
"Save .emacs, if it is in a buffer, and reload it."
(interactive)
(if (bufferp (get-file-buffer "~/.emacs"))
(save-buffer (get-buffer "~/.emacs")))
(load-file "~/.emacs"))
(set-default-font "DejaVu Sans Mono 9")
(set-background-color "black")
(set-foreground-color "white")
(set-cursor-color "green")
(set-scroll-bar-mode 'right)
(column-number-mode 1)
(setq make-backup-files nil)
(setq tab-width 4)
(setq indent-tabs-mode nil)
(setq ring-bell-function 'ignore)
(setq auto-save-default nil)
(setq backup-inhibited t)
(windmove-default-keybindings)
(setq tramp-default-method "ssh")
(tool-bar-mode 0)
(setq scroll-step 1
scroll-conservatively 10000)
(transient-mark-mode 1)
(defun my-copy ()
"Simple copy function."
(interactive)
(clipboard-kill-ring-save (region-beginning)
(region-end)))
(setq x-select-enable-clipboard t)
(setq x-select-enable-primary nil)
(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)
(defun my-terminal-mode ()
(interactive)
(ansi-term "/bin/bash"))
(setq viper-inhibit-startup-message 't)
(setq viper-expert-level '5)
(setq viper-mode t)
(require 'viper)
(setq viper-want-ctl-h-help 't)
(load-file "~/.emacs.d/vimpulse.el")
(add-to-list 'load-path "/usr/share/emacs23/site-lisp/w3m")
(require 'w3m)
(setq w3m-use-cookies t)
(add-to-list 'load-path "/usr/share/emacs23/site-lisp/apel")
(add-to-list 'load-path "/usr/share/emacs23/site-lisp/elscreen")
(require 'elscreen)
(elscreen-set-prefix-key (kbd "H-j"))
(add-to-list 'load-path "/usr/share/emacs23/site-lisp/emacs-goodies-el")
(require 'color-theme)
(defun my-next-window ()
(interactive)
(other-window 1))
(defun my-previous-window ()
(interactive)
(other-window -1))
(global-set-key (kbd "C-`") 'my-terminal-mode)
(global-set-key (kbd "C-<f1>") 'my-copy)
(global-set-key (kbd "<f2>") 'save-buffer)
(global-set-key (kbd "C-1") 'previous-buffer)
(global-set-key (kbd "C-2") 'next-buffer)
(global-set-key (kbd "C-3") 'my-previous-window)
(global-set-key (kbd "C-4") 'my-next-window)
(global-set-key (kbd "C-5") 'other-frame)
(global-set-key (kbd "C-8") 'edit-dot-emacs)
(global-set-key (kbd "C-9") 'reload-dot-emacs)
(global-set-key (kbd "H-[") 'elscreen-previous)
(global-set-key (kbd "H-]") 'elscreen-next)
(global-set-key (kbd "C-x C-b") 'ibuffer)