;; make emacs look nice (colors)
;; (load-file "/usr/share/themes/Bluecurve/emacs/bcurve.el")
(load-file "/usr/share/themes/Industrial/emacs/industrial.el")

;; check for files here
(add-to-list 'load-path "/home/sa/.elisp")

;; my color theme
(require 'color-theme)
(color-theme-arjen)

;; I want the current buffer name in x11 titlebar
(setq frame-title-format "%b - Emacs")

;; Easier buffer switching
(iswitchb-mode)

;; load w3m
;; (require 'w3m-load)

;; use swedish chars in console
(let ((mode (current-input-mode)))
 	  (rplaca (cdr (cdr mode)) 8)
 	  (apply 'set-input-mode mode))

;; turn on syntax highlighting
(global-font-lock-mode 1)
(setq font-lock-maximum-decoration t)

;; make text mode the default mode for new buffer
;; turn on auto fill mode automatically in text mode
;; (setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)

;; disable startup message
(setq inhibit-startup-message t)

;; turn on markup
(transient-mark-mode t)

;; remove toolbar (but keeps menubar)
(tool-bar-mode nil)

;; put scrollbar on right side
(set-scroll-bar-mode 'right)

;; invert the colors
;(set-background-color "black")
;(set-foreground-color "white")

;; make all yes-or-no questions as y-or-n
(fset 'yes-or-no-p 'y-or-n-p)

;; mouse wheel support
(autoload 'mwheel-install "mwheel" "Enable mouse wheel support.")
(mwheel-install)

;; highlight words during query replacement
(setq query-replace-highlight t)

;; highlight matches during search
(setq search-highlight t)

;; get out of my way cursor!
(mouse-avoidance-mode  'animate)

;; start the server
;; (server-start)

;; enable better clipboard handling
(menu-bar-enable-clipboard)
(setq x-select-enable-clipboard t)

;; turn beeps to flashes
;;(setq visible-bell t)

;; turn on special mouse support if started in terminal
;; (use shift to paste with third mouse button)
(autoload 'xterm-mouse-mode "xt-mouse" nil t)
(if (not (eq window-system 'x))
    (progn
      (if (string-match "\\`xterm" (or (getenv "TERM") ""))
          (xterm-mouse-mode t)
        )))