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
)