dot.emacs-t400 / init.el

  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(case-fold-search t)
 '(column-number-mode t)
 '(fill-column 81)
 '(scroll-bar-mode nil)
 '(tool-bar-mode nil nil (tool-bar))
 '(uniquify-buffer-name-style (quote reverse) nil (uniquify))

(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
;(cond (running-xemacs    ;; and so on  

(setq load-path (append (list "~/lib/emacs") load-path ))

(setq require-final-newline nil)
(setq tab-stop-list '(0 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80))

(add-hook 'window-configuration-change-hook
	  (lambda ()
	    (setq frame-title-format
		   "emacs@" system-name ": "
		    (concat "/home/" user-login-name) "~"
		    (or buffer-file-name "%b"))))))

(global-set-key "\M-u" '(lambda ()
			  ; (insert "here's a try")
			  (upcase-word -1)
(setq c-argdecl-indent 2)
(setq c-indent-level 2)
;(setq c-continued-statement-offset 2)
(setq c-label-offset -2)

(put 'eval-expression 'disabled nil)
(global-set-key "\M-n" 'electric-buffer-list)
(global-set-key "\M-p" 'electric-command-history)
(global-set-key "\M-c" 'compile)
(define-key global-map "\M-l" 'goto-line)

(put 'narrow-to-region 'disabled nil)

; get tex mode to work more nicely
(set-variable (quote TeX-directory) ".")
(set-variable (quote TeX-dvi-print-command) "xdvi ")

(setq newshell-num 1) 
(defun newshell () 
  (rename-buffer (concat "sh" (int-to-string newshell-num))) 
  (setq newshell-num (+ newshell-num 1)) 
(setq shell 'newshell) 

(require 'mercurial)

(require 'color-theme)
;(color-theme-midnight) ; I also like color-theme-blue-sea

;(set-default-font "Bitstream Vera Sans Mono-9")
;(set-default-font "Bitstream Vera Sans Mono-10")
;(set-default-font "Bitstream Vera Sans Mono-11")
;(set-default-font "Bitstream Vera Sans Mono-12")
; from cmd line emacs -fn "Mono-9" will work I think
(set-default-font "Mono-10")

(require 'ipython) ;; run with py-shell
;(setq py-python-command-args '("-pylab"))  ; ("colors" "NoColors")

;; experimental

;(add-to-list 'load-path (expand-file-name "/home/clee/bin/sage-4.1.1-linux-Debian_GNU_Linux_5.0_lenny-i686-Linux/data/emacs"))
;(require 'sage "sage")
;(setq sage-command "/home/clee/bin/sage-4.1.1-linux-Debian_GNU_Linux_5.0_lenny-i686-Linux/sage")

;; If you want sage-view to typeset all your output and have plot()
;; commands inline, uncomment the following line and configure sage-view:
;(require 'sage-view "sage-view")
;(add-hook 'sage-startup-hook 'sage-view)
;; You can use commands like
;; (add-hook 'sage-startup-hook 'sage-view
;; 'sage-view-disable-inline-output 'sage-view-disable-inline-plots)
;; to have some combination of features.  In future, the customize interface
;; will make this simpler... hint, hint!

(setq tramp-syntax 'url)
(setq tramp-default-method "ssh")
(require 'tramp)