(autoload 'html-mode "html-mode" "HTML major mode." t)
 (or (assoc "\\.html$" auto-mode-alist)
   (setq auto-mode-alist (cons '("\\.html$" . html-mode) 
                              auto-mode-alist)))

;;FONT:
;(set-default-font "9x15")

;; Det bibliotek hvorfra man åbner filer. Ret selv stien til.
(cd "~/")

;; Farver
(setq default-frame-alist      '(
                 (cursor-color . "black")
                 (background-color . "white smoke") ;
                 (vertical-scroll-bars . right) ; scrollbar i højre side
                 ))

;; Specielt til databaren som nogen gange driller med ikke at bruge 
;; delete-tasten korrekt:
(global-set-key [delete] 'delete-char) ; sletter mod højre

;; Dette er standard i Emacs version 20, men i Emacs version 21 har 
;; tasterne Home og End fået ny betydning, så de springer til hhv. 
;; starten og slutningen af linjen. (Det har man allerede C-a og C-e
;; til.)
;;
;; Dette er i oevrigt også et eksempel på hvordan man selv kan lave 
;; sine egne tastaturgenveje.
;(global-set-key [home] 'beginning-of-buffer)
;(global-set-key [end] 'end-of-buffer)
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
(global-set-key [C-home] 'beginning-of-buffer)
(global-set-key [C-end] 'end-of-buffer)
(global-set-key [delete]  'delete-char)         ; delete character under cursor

;; Dette er for at være helt sikker på at der bruges et dansk tegnsæt.
;(set-language-environment "Latin-1")
;(set-language-environment "utf-8")

;; Det vises hvilke paranteser der hører sammen (vises med en farve).
(show-paren-mode t)

;; Giver fremhævning af nøgleord i fx LaTeX ved at farve ordene. 
;; Dette kaldes for texthighlighting eller syntakshighlighting. Man 
;; kan bestemme hvilke farver der skal bruges med 'customize'.
(global-font-lock-mode t)

;; Når man har syntaks-highlighting, så vil vi gerne sætte farver 
;; på hele bufferen uanset hvor stor den end måtte være. 
(setq-default font-lock-maximum-size nil)

;; Se linie og kolonnenummer i statuslinjen nederst på skærmen.
(setq line-number-mode t)
(setq column-number-mode t)

;; Viser hvad man har markeret.
(transient-mark-mode t)

;; Aktiverer AUCTeX.
(require 'tex-site)

;; Slår RefTeX til når man bruger AUCTeX og Emacs' indbyggede latex-mode. 
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)    ; med AUCTeX LaTeX mode
(add-hook 'latex-mode-hook 'turn-on-reftex)    ; med Emacs latex mode

;; Få et pænt index over hvilke sections, subsections osv. der 
;; findes i dokumentet. Det vises som en menu i menubjælken øverst.
(setq reftex-load-hook (quote (imenu-add-menubar-index)))
(setq reftex-mode-hook (quote (imenu-add-menubar-index)))

;; Slår auto-fill-mode til når man redigerer LaTeX-filer. Auto-fill-mode 
;; goer at Emacs automatisk wrapper linjer, så de bliver lette at overskue.
(add-hook 'LaTeX-mode-hook 'turn-on-auto-fill) ; with AUCTeX LaTeX mode
(add-hook 'latex-mode-hook 'turn-on-auto-fill) ; with Emacs latex mode

;; Angiver hvor lange linjer må være (i tegn) foer Emacs wrapper dem. Man 
;; kan frit ændre tallet som man har lyst. Kommentarerne i denne fil er 
;; skrevet med fill-column sat til 80.
(setq default-fill-column 100)

;; I stedet for at skulle skrive 'yes' og 'no', kan man nøjes med 
;; 'y' og 'n' 
(defalias 'yes-or-no-p 'y-or-n-p)

;; Hvis man får startet Emacs op uden AUCTeX, så skal man fortælle den 
;; at den skal bruge programmet xdvi til at vise DVI-filer.
(setq tex-dvi-view-command "xdvi")

;; Hvis man har flere filer åbne samtidig i Emacs, så skal man fortælle
;; Emacs hvilken en af dem det er der skal kompilers (selvom man faktisk
;; prøver at kompilere en af de filer der ikke indeholder præamblet.
(setq TeX-master 'dwim)
(put 'LaTeX-hide-environment 'disabled nil)

;; Stavekontrol: Flyspell - stavekonrol ``on the fly''. Se
;; http://www-sop.inria.fr/mimosa/personnel/Manuel.Serrano/flyspell/flyspell.html
;(autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t) 

;; Ingen blinkende cursor
(blink-cursor-mode 0)

;(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)
; '(current-language-environment "Latin-1")
; '(default-input-method "latin-1-prefix")
; '(global-font-lock-mode t nil (font-lock))
; '(show-paren-mode t nil (paren))
; '(transient-mark-mode 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.
; )

;(require 'tramp)
;(setq tramp-default-method "ftp")

;; Mousewheel
(defun sd-mousewheel-scroll-up (event)
  "Scroll window under mouse up by five lines."
  (interactive "e")
  (let ((current-window (selected-window)))
    (unwind-protect
        (progn 
          (select-window (posn-window (event-start event)))
          (scroll-up 5))
      (select-window current-window))))

(defun sd-mousewheel-scroll-down (event)
  "Scroll window under mouse down by five lines."
  (interactive "e")
  (let ((current-window (selected-window)))
    (unwind-protect
        (progn 
          (select-window (posn-window (event-start event)))
          (scroll-down 5))
      (select-window current-window))))

(global-set-key (kbd "<mouse-5>") 'sd-mousewheel-scroll-up)
(global-set-key (kbd "<mouse-4>") 'sd-mousewheel-scroll-down)


;;python mode stuff
(setq auto-mode-alist
      (cons '("\\.py$" . python-mode) auto-mode-alist))
(setq interpreter-mode-alist
      (cons '("python" . python-mode)
            interpreter-mode-alist))
(autoload 'python-mode "python-mode" "Python editing mode." t)