Wolfram My Biography My dot emacs file | | Search |
;; .emacs ;;; uncomment this line to disable loading of "default.el" at startup ;; (setq inhibit-default-init t) ;; turn on font-lock mode (when (fboundp 'global-font-lock-mode) (global-font-lock-mode t)) ;; enable visual feedback on selections ;(setq transient-mark-mode t) ;; default to better frame titles (setq frame-title-format (concat "%b - emacs@" system-name)) ;; default to unified diffs (setq diff-switches "-u") ;; setting auto save -- so I can auto-log my shell (setq auto-save-interval 100) ;; better buffer list application (global-set-key "\C-x\C-b" 'electric-buffer-list) ;; control x enter to creat new shell (global-set-key "\C-x\C-m" 'shell) ;; easier way to rename buffers (global-set-key "\C-xr" 'rename-buffer) ;; ripping (cut) rectangles is cool -- this is easy (global-set-key "\M-\C-w" 'kill-rectangle) ;; yanking (paste) rectangles is cool -- this is easy (global-set-key "\M-\C-y" 'yank-rectangle) ;; setting some colors so I can see better (set-background-color "#e5e5e5") (set-foreground-color "black") (set-cursor-color "dark slate blue") (menu-bar-mode -1) (display-time) (set-frame-font "-outline-Lucida Sans Typewriter-demibold-r-normal-normal-13-78-120-120-c-*-iso10646-1") (scroll-bar-mode -1) ; retitle emacs window (defun frame-retitle (title) (modify-frame-parameters nil (list (cons 'name title ) ) ) ) ;; set a beautiful title bar (setq frame-title-format '("%S: " (buffer-file-name "%f" (dired-directory dired-directory "%b")))) (global-set-key [delete] 'delete-char) (global-set-key [kp-delete] 'delete-char) ;; Turn on font-lock mode for Emacs (cond ((not running-xemacs) (global-font-lock-mode t) )) ;; Always/never end a file with a newline (setq require-final-newline f) ;; Stop at the end of the file, not just add lines (setq next-line-add-newlines nil) ;; Enable wheelmouse support by default (if (not running-xemacs) (require 'mwheel) ; Emacs (mwheel-install) ; XEmacs )