; Time-stamp: "2006-09-22 16:23:13 AKDT"

(set-language-environment "UTF-8")

(setq inhibit-startup-message t)
(setq inhibit-startup-echo-area-message "sean")
(setq make-backup-files t)
(setq backup-by-copying nil)
(setq backup-by-copying-when-linked t)
(setq backup-by-copying-when-mismatch t)

(setq require-final-newline 'ask)
(setq version-control nil)
(setq auto-save-default t)
(setq auto-save-interval 300)

(setq default-truncate-lines nil)
(setq truncate-partial-width-windows default-truncate-lines)

(setq scroll-step 2)
(setq next-screen-context-lines 2)

(defun under-home (x)
  "return the given path as under the proper home directory"
  (concat
   (expand-file-name (substitute-in-file-name "~$LOGNAME"))
   "/"
   x))

(setq load-path (append (list
                 (under-home ".bin/lisp")
                 ) load-path))

(defun load-file-from-home (x)
  "Load the given library from the proper home directory"
  (interactive)
  (load-file (under-home x)))

(defun redisplay () (unless noninteractive (sit-for .05)))
(redisplay)
(load-file-from-home ".emacs.config")

(put 'narrow-to-region 'disabled nil)
(put 'set-fill-column 'disabled t)
(put 'scroll-right 'disabled t)
(put 'scroll-left 'disabled t)


;font-lock-string-face is also used for backup files in dired
; TODO: change by hacking dired-font-lock-keywords ?

;  `cperl-array-face'		Array names
;  `cperl-hash-face'		Hash names
;  `font-lock-comment-face'	Comments, PODs and whatever is considered
;				syntaxically to be not code
;  `font-lock-constant-face'	HERE-doc delimiters, labels, delimiters of
;				2-arg operators s/y/tr/ or of RExen,
;  `font-lock-function-name-face' Special-cased m// and s//foo/, _ as
;				a target of a file tests, file tests,
;				subroutine names at the moment of definition
;				(except those conflicting with Perl operators),
;				package names (when recognized), format names
;  `font-lock-keyword-face'	Control flow switch constructs, declarators
;  `cperl-nonoverridable-face'	Non-overridable keywords, modifiers of RExen
;  `font-lock-string-face'	Strings, qw() constructs, RExen, POD sections,
;				literal parts and the terminator of formats
;				and whatever is syntaxically considered
;				as string literals
;  `font-lock-type-face'		Overridable keywords
;  `font-lock-variable-name-face' Variable declarations, indirect array and
;				hash names, POD headers/item names
;  `cperl-invalid-face'		Trailing whitespace
;


(set-cursor-color "cyan")
(require 'mwheel)
(require 'regexp-opt)  ; something wants this, oddly

;(message "Emacs ready!")
(redisplay)
(require 'cookie1)
(defun leisure () "Gimme leisure."  (interactive)
  (if (file-exists-p   (under-home "/s/farnon.lines"))
      (message (cookie (under-home "/s/farnon.lines") "" ""))
      ;(message "No Leisuretown quote for you!")
    ))
  

(defun oblique-strategy () "Get an Oblique Strategy."  (interactive)
  (message (cookie (under-home "/s/obliques.lines") "" "")))

(unless noninteractive (leisure))

; Font possibilities "adobe-courier" "helv" "new century schoolbook"
;    "schumacher-clean-medium" "lucidasanstypewriter" "misc-fixed"
;    "lucidatypewriter" "utopia" "adobe-utopia"  "sony-fixed-medium"
;    "dec-terminal" "charter" "b&h-lucidatypewriter" "lucida"
; End of ~/.emacs

(redisplay)

; '(default ((t (:inherit nil :stipple nil :background "#101020" :foreground "#ffffff" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 195 :width normal :family "adobe-courier"))))

(put 'edit-kbd-macro 'disabled t)
(put 'backward-kill-sentence 'disabled t)



; '(current-language-environment "Latin-1")



(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.
 '(auto-compression-mode t nil (jka-compr))
 '(case-fold-search t)
 '(cperl-here-face (quote font-lock-string-face))
 '(cperl-pod-face (quote smb-pod-face))
 '(cperl-pod-here-fontify t)
 '(default-input-method "rfc1345")
 '(global-font-lock-mode t nil (font-lock))
 '(inverse-video nil)
 '(whitespace-check-leading-whitespace nil)
 '(whitespace-check-spacetab-whitespace nil)
 '(whitespace-check-trailing-whitespace nil)
 '(x-select-enable-clipboard 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.
 '(default ((t ( :background "#101020" :foreground "#ffffff" ))))
 '(cperl-array-face ((t (:foreground "#ffff90" :background "#000000"))))
 '(cperl-hash-face ((t (:foreground "#b0b0ff"))))
 '(cperl-nonoverridable-face ((t (:foreground "#c0ffff"))))
 '(font-lock-comment-face ((t (:foreground "#d8ffd8" :background "#000000"))))
 '(font-lock-function-name-face ((((class color) (background dark)) (:foreground "#ffffff" :background "#000000" :family "helv"))))
 '(font-lock-keyword-face ((t (:foreground "#c0ffff"))))
 '(font-lock-string-face ((t (:foreground "#f2d2d2"))))
 '(fringe ((t (:background "#004400" :foreground "#008800"))))
 '(mode-line ((nil nil)))
 '(scroll-bar ((t (:background "#889988" :foreground "#ff0000"))))
 '(tool-bar ((t (:background "#000033" :foreground "#ffffff" :box (:line-width 1 :style released-button)))))
 '(woman-bold-face ((t (:foreground "#55bbbb" :weight bold))))
 '(cursor  ((t (:background "cyan"))))
 '(woman-italic-face ((t (:foreground "#ffccff")))))