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
)