Skip to content

Instantly share code, notes, and snippets.

@ramen
Created March 27, 2011 15:21
Show Gist options
  • Save ramen/889288 to your computer and use it in GitHub Desktop.
Save ramen/889288 to your computer and use it in GitHub Desktop.
Scribes-style .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))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment