Scribes-style .emacs

.emacs

;; emacs startup emulating scribes editor

(setq load-path (cons "~/.emacs.d" load-path))

(require 'linum)
(require 'paredit)
(require 'redo)

(bar-cursor-mode 1)
(column-number-mode 1)
(cua-mode 1)
(global-linum-mode 1)
(menu-bar-mode -1)
(show-paren-mode 1)

(setq auto-save-default nil
      inhibit-startup-message t
      make-backup-files nil
      mode-line-in-non-selected-windows nil
      ring-bell-function 'ignore
      scroll-conservatively 100
      scroll-preserve-screen-position t
      scroll-step 1)

(setq default-mode-line-format
      (list '(:eval (if (buffer-modified-p) " * " "   "))
            "%20b   %[("
            'mode-name
            'minor-mode-alist
            ")%]   Ln %l col %c   "
            '(:eval (symbol-name last-command))))
(setq mode-line-format default-mode-line-format)

(global-set-key (kbd "<M-up>") (lambda () (interactive) (scroll-down 1)))
(global-set-key (kbd "<M-down>") (lambda () (interactive) (scroll-up 1)))
(global-set-key (kbd "<down-mouse-3>") 'mouse-popup-menubar-stuff)
(global-set-key (kbd "C-S-z") 'redo)

(when window-system
  (global-hl-line-mode 1)
  (set-face-background 'hl-line "#efefef")
  (set-face-background 'mode-line "#dedede")
  (set-face-background 'show-paren-match "#dedede")
  (set-face-background 'show-paren-mismatch "#dedede")
  (set-face-font 'menu "fixed")
  (set-face-font 'tooltip "fixed")
  (setq frame-title-format "%b")

  (let ((font
         (case window-system
           (mac "-apple-monaco-medium-r-normal--14-140-72-72-m-140-iso10646-1")
           (otherwise "-unknown-DejaVu Sans Mono-normal-normal-normal-*-*-*-*-*-m-0-iso10646-1"))))
    (setq initial-frame-alist
          `((width . 90)
            (height . 30)
            (left-fringe . nil)
            (right-fringe . 0)
            (vertical-scroll-bars . right)
            (font . ,font)))
    (setq default-frame-alist (copy-alist initial-frame-alist))))