;; Disable startup screen
(setq inhibit-splash-screen t)

;; make delete work as usual!
(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)

;; colorfy
(global-font-lock-mode t)
(which-function-mode)

;; enable visual feedback on selections
(setq-default transient-mark-mode t)

;; display line and column numbers
(line-number-mode 1)
(column-number-mode 1)

;; no nasty backup files
(setq make-backup-files nil)
(setq auto-save-list-file-prefix nil)

;; neat scrolling
(setq scroll-step 3)
(setq scroll-conservatively 200)

;; always end a file with a newline
(setq require-final-newline t)

;; no newlines when lines
(setq next-line-add-newlines nil)

;; nice tabbing
(setq default-indent-tabs-mode nil)

;; nicer parens matching
(show-paren-mode 1)

;; autofilling
(auto-fill-mode 1)

;; hopefully show the title in the window
(setq frame-title-format (list "emacs - " mode-line-buffer-identification))

(when window-system
  ;; enable wheelmouse support by default
  (mwheel-install) )
  ;; use extended compound-text coding for X clipboard
  ;; (set-selection-coding-system 'compound-text-with-extensions))

;; remap keys
(global-set-key "\M-g" 'goto-line) ; remap Alt-G to goto-line
(global-set-key "\C-z" 'undo) ; remap Ctrl-Z to undo

;; LaTex and AUCTex
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
(setq reftex-plug-into-AUCTeX t)

;; rename file
(defun rename-file-and-buffer (new-name)
  "Renames both current buffer and file it's visiting to NEW-NAME." (interactive "sNew name: ")
  (let ((name (buffer-name))
	(filename (buffer-file-name)))
    (if (not filename)
	(message "Buffer '%s' is not visiting a file!" name)
      (if (get-buffer new-name)
	  (message "A buffer named '%s' already exists!" new-name)
	(progn  (rename-file name new-name 1)  (rename-buffer new-name)  (set-visited-file-name new-name)  (set-buffer-modified-p nil))))))

;; move currently open file
(defun move-buffer-file (dir)
  "Moves both current buffer and file it's visiting to DIR." (interactive "DNew directory: ")
  (let* ((name (buffer-name))
	 (filename (buffer-file-name))
	 (dir
	  (if (string-match dir "\\(?:/\\|\\\\)$")
	      (substring dir 0 -1) dir))
	 (newname (concat dir "/" name)))
    
    (if (not filename)
	(message "Buffer '%s' is not visiting a file!" name)
      (progn (copy-file filename newname 1) (delete-file filename) (set-visited-file-name newname) (set-buffer-modified-p nil) t))))