equal
deleted
inserted
replaced
50 (defun get-font () |
50 (defun get-font () |
51 "Get appropriate font based on system and hostname." |
51 "Get appropriate font based on system and hostname." |
52 (cond |
52 (cond |
53 ((string-match "darwin" (emacs-version)) "Menlo-12") |
53 ((string-match "darwin" (emacs-version)) "Menlo-12") |
54 ((string-match "HoldenCaulfield" (system-name)) "monospace-6") |
54 ((string-match "HoldenCaulfield" (system-name)) "monospace-6") |
55 ((string-match "lhoersten-66113" (system-name)) "monospace-9") |
55 ((string-match "lhoersten-66113" (system-name)) "monospace-8") |
56 ("monospace-10"))) |
56 ("monospace-10"))) |
57 |
57 |
58 (tool-bar-mode -1) ; remove tool bar |
58 (tool-bar-mode -1) ; remove tool bar |
59 (scroll-bar-mode -1) ; remove scroll bar |
59 (scroll-bar-mode -1) ; remove scroll bar |
60 (visual-line-mode t) ; word wrap break on whitespace |
60 (visual-line-mode t) ; word wrap break on whitespace |
69 |
69 |
70 ;;; terminal |
70 ;;; terminal |
71 (global-set-key (kbd "C-c s") 'eshell) ; start shell |
71 (global-set-key (kbd "C-c s") 'eshell) ; start shell |
72 (add-hook |
72 (add-hook |
73 'eshell-mode-hook |
73 'eshell-mode-hook |
74 '(lambda () |
74 (lambda () |
75 (setenv "TERM" "emacs") ; enable colors |
75 (setenv "TERM" "emacs") ; enable colors |
76 (setenv "PATH" (concat "/opt/ghc7/bin:" "~/.cabal/bin:" (getenv "PATH"))))) |
76 (setenv "PATH" (concat "/opt/ghc7/bin:" "~/.cabal/bin:" (getenv "PATH"))))) |
77 |
77 |
78 |
78 |
79 ;;;; Mode-Specific ;;;; |
79 ;;;; Mode-Specific ;;;; |
80 |
80 |
81 ;;; linum-mode - line numbers |
81 ;;; linum-mode - line numbers |
163 ("Haskell" (mode . haskell-mode)) |
163 ("Haskell" (mode . haskell-mode)) |
164 ("Python" (mode . python-mode)) |
164 ("Python" (mode . python-mode)) |
165 ("C++" (mode . c++-mode))))) |
165 ("C++" (mode . c++-mode))))) |
166 (add-hook |
166 (add-hook |
167 'ibuffer-mode-hook |
167 'ibuffer-mode-hook |
168 '(lambda () |
168 (lambda () |
169 (ido-mode t) |
169 (ido-mode t) |
170 (ibuffer-switch-to-saved-filter-groups "default"))) |
170 (ibuffer-switch-to-saved-filter-groups "default"))) |
171 |
171 |
172 |
172 |
173 ;;;; Requires ;;;; |
173 ;;;; Requires ;;;; |
174 |
174 |
175 (require 'hoersten-c-style) ; load c specific lisp |
175 (require 'hoersten-c-style) ; load c specific lisp |