equal
deleted
inserted
replaced
45 (if window-system |
45 (if window-system |
46 (progn |
46 (progn |
47 (defun get-font () |
47 (defun get-font () |
48 "Get appropriate font based on system and hostname." |
48 "Get appropriate font based on system and hostname." |
49 (cond |
49 (cond |
50 ((string-match "darwin" (emacs-version)) "Menlo-12") |
50 ((string-match "darwin" (emacs-version)) "Ubuntu Mono-14") |
51 ((string-match "RichardParker" (system-name)) "Ubuntu Mono-8.5") |
51 ((string-match "RichardParker" (system-name)) "Ubuntu Mono-8.5") |
52 ((string-match "HoldenCaulfield" (system-name)) "Ubuntu Mono-10.5") |
52 ((string-match "HoldenCaulfield" (system-name)) "Ubuntu Mono-10.5") |
53 ((string-match "lhoersten-66113" (system-name)) "Ubuntu Mono-10.5") |
53 ((string-match "lhoersten-66113" (system-name)) "Ubuntu Mono-10.5") |
54 ("Ubuntu Mono-10.5"))) |
54 ("Ubuntu Mono-10.5"))) |
55 |
55 |
63 (global-set-key (kbd "C-c s") 'eshell) ; start shell |
63 (global-set-key (kbd "C-c s") 'eshell) ; start shell |
64 (add-hook |
64 (add-hook |
65 'eshell-mode-hook |
65 'eshell-mode-hook |
66 (lambda () |
66 (lambda () |
67 (setenv "TERM" "emacs") ; enable colors |
67 (setenv "TERM" "emacs") ; enable colors |
68 (setenv "PATH" (concat "/opt/ghc7/bin:" "~/.cabal/bin:" (getenv "PATH"))))) |
68 (setenv "PATH" (concat "~/.cabal/bin:" (getenv "PATH"))))) |
69 |
69 |
70 |
70 |
71 ;;;; Mode-Specific ;;;; |
71 ;;;; Mode-Specific ;;;; |
72 |
72 |
73 ;;; text-mode |
73 ;;; text-mode |