; mac specific -- make it look halfway decent
(setq default-frame-alist '((font . "-apple-courier-medium-r-normal--14-140-75-75-m-140-mac-roman")))
(custom-set-variables
  ;; 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.
 )
(custom-set-faces
  ;; custom-set-faces 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.
 '(default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 140 :width normal :family "apple-courier")))))

; my personal C preferences 
(setq c-brace-imaginary-offset 6) 
(setq c-indent-level 0) 
(setq c-continued-statement-offset 6) 
(setq c-brace-offset -6) 
(setq c-argdecl-indent 2) 
(setq c-label-offset -4)

; give me a "go to line x" hot key
(global-set-key "g" 'goto-line) 
(define-key global-map [?\C-'] 'undo)
(define-key global-map [?\C-"] 'what-line)
(define-key global-map "\e\e" 'nil)
(define-key global-map "" 'backward-delete-char)
(define-key global-map "" 'toggle-read-only) ; this doesn't work with RCS

; turn on autofill automatically for text (.tex, rmail, etc)
(setq text-mode-hook '(lambda () (auto-fill-mode 1)))

; pretend tcl is C
(setq auto-mode-alist 
      (append '(("\\.tcl$" . c-mode)) auto-mode-alist))

; stick colour in old versions of emacs --

;; Are we running XEmacs or Emacs?
(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))

;; Turn on font-lock mode for Emacs
(cond ((not running-xemacs)
        (global-font-lock-mode t)
))

; --  ( colour stuff from Adam Dziedzic )

; get c++ mode into my life -
; (setq load-path (cons "/usr/local/lib/emacs/local" load-path)) ; needs MITing
; (autoload 'c++-mode "c++-mode" "Mode for editing C++ files." t)
; (setq auto-mode-alist 
; 	(append '(("\\.cc$" . c++-mode)) auto-mode-alist))
; most header files I edit these days are for classes so...
; (setq auto-mode-alist 
; 	(append '(("\\.h$" . c++-mode)) auto-mode-alist)) 

; get latex automatically line wrapping
; (setq auto-mode-alist 
;	(append '(("\\.tex$" . auto-fill-mode)) auto-mode-alist)) 

; spell like a Brit
; (load-library "spell")   ;; from the old days
; (setq spell-command "spell -b") 

(setq ispell-dictionary "british")

; (setq load-path (cons "/home/ai/joanna/.pythonstuff/" load-path))

(setq auto-mode-alist
      (cons '("\\.py$" . python-mode) auto-mode-alist))
(setq interpreter-mode-alist
      (cons '("python" . python-mode)
            interpreter-mode-alist))

(autoload 'python-mode "python-mode" "Python editing mode." t)


;;; LOGO-MODE CHANGES *BEGIN*
;;;
;;; Do *NOT* insert your own forms between lines "LOGO-MODE CHANGES *BEGIN*" 
;;; and "LOGO-MODE CHANGES *END*" . Everything between these two lines 
;;; can/will be deleted during subsequent installation of logo-mode!
;;
;; This is a must!
(setq auto-mode-alist
      (cons '("\\.lgo?\\'" . logo-mode)
	    auto-mode-alist))
(autoload 'logo-mode "logo")
;;
;; Forcing `xterm' as terminal definition for Logo. If you prefer to use
;; `vt100' , then reverse the commenting of next two lines. To use the
;; system default terminal definition -- comment out both:
;(setq logo-system-type 'xterm)
;(setq logo-system-type 'vt100)
;;
;; If you don't want syntax highlighting uncomment next line.
;(setq logo-syntax-highlight nil)
;;
;; If you are not a novice (meaning emacs - mostly), uncomment next line
;(setq logo-novice-management nil) 
;;
;; Next 5 are automatically inserted by MAKE - in case you used
;; make LIBLOC=some-unusual-place, or changed $(prefix) in toplevel
;; ucblogo makefile
;;
(setq load-path (cons "/sw/lib/ucblogo/emacs" load-path))
(setq logo-binary-name "/sw/bin/logo")
(setq logo-info-file "/sw/share/info/ucblogo.info")
(setq logo-help-path "/sw/lib/ucblogo/helpfiles/")
(setq logo-tutorial-path "/sw/lib/ucblogo/emacs/")
;;
;; Uncomment next 2 if you want to change the default size of Logo window.
;; Default is 80 x 24.
;(setq process-term-columns 86)
;(setq process-term-rows 32)
;;
;; Next 2 are not important, but I like it this way.
(setq logo-setcursor-overwrite nil)
(setq logo-unbalanced-distance 4096)
;;
;; I assume you are not planning to install translated ucblogo info-manual.
;; If you are, (this goes for Croatians) then comment out next line.
(setq logo-info-trans nil)
;;
;; If you have no intention to use .logo initialization file then
;; uncomment next line:
;(setq logo-load-language nil)
;;
;; If you don't want me messing with your default emacs colors, then
;; uncomment next line:
;(setq dont-mess-with-logo-colors t)
;;
;; If you don't want parens matching on cursor movement, then
;; uncomment next line:
;(setq logo-flash-on-movement nil)
;;
;;; LOGO-MODE CHANGES *END*