;; $Id: .emacs,v 1.3 2003/05/28 19:33:24 ichi Exp ichi $

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; .emacs for Ichimusai
;;
;; There are a lot of people that have helped me with my .emacs
;; knowingly and unknowingly as I have pulled certain pieces from
;; different published .emacses around the world. You are too many to
;; mention. Thanks
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




(setq load-path
      (append (list (expand-file-name "~/site-lisp/")
		    (expand-file-name "~/elisp/")
		    (expand-file-name "c:/cygwin/usr/share/emacs/etc/gnus/"))
	      load-path))

;; ;; PC bindings mode.
;; (setq pc-bindings-mode t)
;; (setq pc-selection-mode t)

;; ;; Set up the scroll wheel on my Microsoft Intellimouse Explorer to do
;; ;; what I need.
;; (defun up-slightly () (interactive) (scroll-up 5))
;; (defun down-slightly () (interactive) (scroll-down 5))
;; (global-set-key [mouse-4] 'down-slightly)
;; (global-set-key [mouse-5] 'up-slightly)

;; (defun up-one () (interactive) (scroll-up 1))
;; (defun down-one () (interactive) (scroll-down 1))
;; (global-set-key [S-mouse-4] 'down-one)
;; (global-set-key [S-mouse-5] 'up-one)

;; (defun up-a-lot () (interactive) (scroll-up 15))
;; (defun down-a-lot () (interactive) (scroll-down 15))
;; (global-set-key [C-mouse-4] 'down-a-lot)
;; (global-set-key [C-mouse-5] 'up-a-lot)

;; (defun crsr-up () (interactive) (previous-line 1))
;; (defun crsr-down () (interactive) (next-line 1))
;; (global-set-key [C-S-mouse-4] 'crsr-up)
;; (global-set-key [C-S-mouse-5] 'crsr-down)

;; I want 8 bit and ISO 8859-1 charset, so that I can use european
;; chars without a hassle.
;(standard-display-european t)
;(set-input-mode (car (current-input-mode))
;  (nth 1 (current-input-mode))
;  0)

(require 'ucs-tables)
(unify-8859-on-encoding-mode 1)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; WINDOWS DIMENSIONS
;;
;; Setup the window, fonts and stuff so that emacs looks and feels
;; okay on my display. Checks weither we are in Windows or X and
;; selects the apropriate font. Uncommented because I now run emacs in
;; so many configurations that this is just becoming disturbing
;; actually.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; (setq default-frame-alist
;;       '((top . 0)
;;         (left . 0)
;;         (width . 100)
;;         (height . 72)
;;         (menu-bar-lines . 0)
;;         (background-color . "linen")
;;         (foreground-color . "black")
;; 	(cursor-color . "firebrick")))  



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; FONT SELECTION
;;
;; Checks what platform we are on and selects my preferred font
;; respectively. Works reasonably well.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (not (null window-system))
    (progn
      (if (eq window-system 'x)
	  (set-default-font "-adobe-courier-medium-r-normal-*-*-120-*-*-m-*-ISO8859-15"))
      (if (eq window-system 'w32)
	  (set-default-font "-*-Courier New-normal-r-*-*-12-90-96-96-c-*-iso8859-1"))
  (show-paren-mode t)
  (global-font-lock-mode t)
  (setq font-lock-maximum-decoration t))
(progn
  (menu-bar-mode 1)))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; MISCELLANEOUS SETTINGS
;;
;; The stuff that don't fint anywhere else in the config file :-)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Make my Emacs look like a fruit sallad
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)

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

;; I use this function pretty often
(put 'upcase-region 'disabled nil)

;; Do not create new lines beyond the edit buffer please
(setq next-line-add-newlines nil)

;; Display a clock in the status bar
(setq display-time-24hr-format t)
(display-time)

;; No backup files please
;(setq make-backup-files nil)

;; Back up my files please
(setq make-backup-files t)

;; My own keybindings
(global-set-key "\C-\M-g" 'goto-line)
(global-set-key "\C-\M-z" 'message-caesar-region)
(global-set-key "\C-b" 'bbdb)
(global-set-key [delete] "\C-d")


;; ERC - Emacs IRC Client setup
;(require 'erc)
 

;; TeX Stuff
(setq tex-command 'latex
      latex-command 'latex
      tex-dvi-view-command "xdvi")

;; If there is a saved dekstop we would like to revive it now, load
;; all the ring buffers and restore all edit buffers and so on.
;(desktop-load-default)
;(desktop-read)

;; Sentence endings are off, in america they use ".  " we want to use
;; ". " so we have to modify this a bit.
(setq sentence-end-double-space nil)

;; The browser I prefer
;(setq browse-url-netscape-program "/usr/local/mozilla/mozilla")
(setq browse-url-netscape-program "/usr/bin/opera")

(if (not (null window-system))
    (progn
      (if (eq window-system 'x)
	  (setq browse-url-netscape-program "/usr/bin/opera"))
      (if (eq window-system 'w32)
	  (setq browse-url-netscape-program "c:\program files\opera\opera.exe"))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; CUSTOM SET VARIABLES. DO NOT HAND EDID THESE. USE M-x customise RET
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(all-christian-calendar-holidays t t)
 '(bbdb-always-add-addresses t)
 '(bbdb-check-zip-codes-p nil)
 '(bbdb-complete-name-allow-cycling t)
 '(bbdb-complete-name-full-completion t)
 '(bbdb-completion-display-record t)
 '(bbdb-completion-type nil)
 '(bbdb-default-label-list (quote ("Home" "Office" "Mobile" "Other" "Work")))
 '(bbdb-hashtable-size 168037)
 '(bbdb-new-nets-always-primary t)
 '(bbdb-north-american-phone-numbers-p nil)
 '(bbdb-notice-auto-save-file t)
 '(bbdb-notice-hook (quote bbdb-auto-notes-hook))
 '(bbdb-offer-save (quote justdoit))
 '(bbdb-phones-label-list (quote ("Home" "Office" "Mobile" "Other" "Work")))
 '(bbdb-pop-up-display-layout (quote full-multi-line))
 '(bbdb-pop-up-target-lines 2)
 '(bbdb-quiet-about-name-mismatches t)
 '(bbdb-silent-running t)
 '(bbdb-use-alternate-names nil)
 '(bbdb-user-mail-names "\\bAdministrator\\b")
 '(bbdb/mail-auto-create-p t)
 '(bbdb/news-auto-create-p t)
 '(canlock-password "7411a54024168d07c0e8744be5d5c590097cb504")
 '(case-fold-search t)
 '(current-language-environment "Latin-1")
 '(default-input-method "latin-1-prefix")
 '(enable-multibyte-characters nil)
 '(global-font-lock-mode t nil (font-lock))
 '(gnus-global-score-files (quote ("~/News/GLOBAL.SCORE")))
 '(gnus-large-newsgroup 5000)
; '(gnus-local-domain "ichimusai.org")
; '(gnus-local-organization "I have a geometric memory. Now you understand." t)
 '(gnus-select-method (quote (nntp "localhost")))
 '(holidays-in-diary-buffer t t)
 '(mark-holidays-in-calendar t t)
 '(mm-text-html-renderer (quote links))
 '(nntp-address "localhost" t)
 '(show-paren-mode t nil (paren))
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(transient-mark-mode t)
 '(uniquify-buffer-name-style nil nil (uniquify))
 '(view-calendar-holidays-initially nil t))
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 )