; ~/.emacs - GNU Emacsin alustustiedosto
;
; $Id: piste.emacs,v 1.10 2003/08/28 05:34:21 ltuuri Exp $
;
; Vaati parempaa testausta ja tarkastusta!

; Finnish-HOWTO
;
(set-input-mode nil nil 'foo)

; Automaattinen rivinvaihto tekstipuskureihin
;
(add-hook 'text-mode-hook 'turn-on-auto-fill)

; Tiedoston viimeinen rivi ja sen loppu
;
(setq require-final-newline t)
(setq next-line-add-newlines nil)

; Perl (cperl-mode on parempi), Make, .txt
;
(setq auto-mode-alist 
      (nconc (list 
              '("\\.pl\\'" . cperl-mode) 
              '("\\.pm\\'" . cperl-mode) 
              '("\\.l\\'" . c-mode)
              '("[mM]akefile" . makefile-mode)
              '("\\.txt\\'" . text-mode))
             auto-mode-alist))
(setq cperl-indent-level 4)
(autoload 'perl-mode "cperl-mode" "alternate Perl mode" t)

; C
;
(defun my-c-mode-common-hook ()
  (c-set-style "bsd") )
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

; HTML: html-helper-mode on parempi! On Debianissa.
; Kopioi site-lisp -hakemistoon ensin html-font.el esim. täältä
; http://www.nbi.dk/~dickow/emacs/
;
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
(add-hook 'html-helper-load-hook '(lambda () (require 'html-font)))

; Praat
; 
; (setq load-path (cons "~/emacs" load-path))
; (autoload 'praat-mode "praat-mode.el" "Enter Praat mode." t)
; (setq auto-mode-alist (cons '("\\.praat$" . praat-mode) auto-mode-alist))

; uEmacs-tyylinen goto-line
;
(global-set-key "\M-g" 'goto-line)

; Rivinnumeron lisäksi myös paikka rivillä
;
(setq column-number-mode t)

; Värisalamointi, maalauksen selvennys, vastaavien sulkeitten osoitus
;
(show-paren-mode)
(global-font-lock-mode t)
(setq-default transient-mark-mode t)

; Man-sivu F1:llä
;
(global-set-key [(f1)] (lambda () (interactive) (manual-entry (current-word))))

; Rullahiiri
;
(when window-system
  (mwheel-install)
  (set-selection-coding-system 'compound-text-with-extensions))

; Backspace
;
(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)