Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added some better looking defaults

  • Loading branch information...
commit 62509aca926f14562b38711c0b503e640ec458c9 1 parent 9b6a89a
David Davis authored
Showing with 42 additions and 4 deletions.
  1. +15 −4 custom.el
  2. +27 −0 init.el
View
19 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.
View
27 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
+
Please sign in to comment.
Something went wrong with that request. Please try again.