Added some better looking defaults

custom.el

@@ -5,16 +5,16 @@
   ;; If there is more than one, they won't work right.
  '(LaTeX-command "latex")
  '(ack-project-root-file-patterns (quote (".project\\'" ".xcodeproj\\'" ".sln\\'" "\\`Project.ede\\'" "\\`.git\\'" "\\`.bzr\\'" "\\`_darcs\\'" "\\`.hg\\'" ".dir-locals" ".emacs-project")))
- '(blink-cursor-mode t)
+ '(blink-cursor-mode nil)
  '(css-indent-offset 2)
  '(cua-enable-cua-keys nil)
  '(cua-mode t nil (cua-base))
- '(cursor-type 'bar)
+ '(cursor-type (quote bar) t)
  '(erc-autojoin-channels-alist (quote (("freenode.net"))))
  '(erc-autojoin-mode t)
  '(erc-modules (quote (autojoin button completion fill irccontrols list log match menu move-to-prompt netsplit networks noncommands readonly ring stamp track)))
  '(exec-path (quote ("/Users/timcharper/bin" "/usr/bin" "/bin" "/usr/sbin" "/sbin" "/usr/local/bin" "/usr/X11/bin" "/usr/local/git/bin" "/Applications/Emacs.app/Contents/MacOS/bin" "/usr/local/texlive/2009/bin/universal-darwin/" "/opt/local/bin")))
- '(ffap-machine-p-known (quote reject)) ; so ido-use-filename-at-point doesn't try to ping strange domains
+ '(ffap-machine-p-known (quote reject))
  '(global-auto-revert-mode t)
  '(gnuserv-program (concat exec-directory "/gnuserv"))
  '(hl-paren-background-colors nil)
@@ -43,9 +43,20 @@
  '(tex-dvi-view-command (quote open))
  '(textile-browser-command (quote ("open" "-a" "Safari")))
  '(tls-program (quote ("openssl s_client -connect %h:%p -no_ssl2 -ign_eof")))
+ '(tool-bar-mode nil)
  '(toolbar-mail-reader (quote gnus))
  '(toolbar-news-reader (quote gnus))
- '(truncate-lines t))
+ '(truncate-lines t)
+ '(viper-ESC-moves-cursor-back nil)
+ '(viper-auto-indent nil)
+ '(viper-emacs-state-cursor-color "")
+ '(viper-ex-style-editing nil)
+ '(viper-ex-style-motion nil)
+ '(viper-expert-level (quote 5))
+ '(viper-insert-state-cursor-color "")
+ '(viper-replace-overlay-cursor-color "")
+ '(viper-shift-width 2)
+ '(viper-vi-style-in-minibuffer nil))
 
 (custom-set-faces
   ;; custom-set-faces was added by Custom.

init.el

@@ -77,4 +77,31 @@
 (if (file-exists-p user-specific-dir)
   (mapc #'load (directory-files user-specific-dir nil ".*el$")))
 
+
+;; use ir-black
+(color-theme-ir-black)
+(set-default-font "Bitstream Vera Sans Mono-13")
+
+;;; set resolution based on screen size
+(defun set-frame-size-according-to-resolution ()
+  (interactive)
+  (if window-system
+  (progn
+    ;; use 120 char wide window for largeish displays
+    ;; and smaller 80 column windows for smaller displays
+    ;; pick whatever numbers make sense for you
+    (if (> (x-display-pixel-width) 1280)
+           (add-to-list 'default-frame-alist (cons 'width 200))
+           (add-to-list 'default-frame-alist (cons 'width 80)))
+    ;; for the height, subtract a couple hundred pixels
+    ;; from the screen height (for panels, menubars and
+    ;; whatnot), then divide by the height of a char to
+    ;; get the height we want
+    (add-to-list 'default-frame-alist·
+         (cons 'height (/ (- (x-display-pixel-height) 200)
+                             (frame-char-height)))))))
+
+(set-frame-size-according-to-resolution)
+
 ;;; init.el ends here
+