;;
;; Created by Ingemar Axelsson 2002-06-13, 15:42:57
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; I den här filen finns en hel del färginställningar man kan göra i 
;; emacs. För att ändra på färgerna i emacs kan man anvnända sig av några
;; få fördefinierade färger. Att ha färger i emacs är fördelaktigt då man 
;; håller på att programmera eftersom man för en mer överskådlig kod där man
;; enkelt kan se vad som är kommentarer och vad som är kod.
;;
;; För att lista alla fördefinierade färger använder man sig av kommandot
;;
;; M-x list-colors-display
;;
;; Man kan ändra så att vissa texter visas som fetstil. Detta gör man genom
;; att lägga till en rad som denna:
;;
;; (make-face-bold 'font-lock-comment-face)
;;
;; Vill man sedan ta bort det så kan man använda
;;                                                         
;; (make-face-unbold 'font-lock-comment-face) 
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;Om man vill ändra bakgrundsfärg resp förgrundsfärg ska man ändra 
;;på nedanstående variabler. Detta genom att ge dem ett nytt värde.          
    
(defvar *bgcolor* "black") 
(defvar *fgcolor* "green")  
(defvar *status* "maroon")
(defvar *comment* "aquamarine")

;;(defvar *bgcolor* "lightgrey") 
;;(defvar *fgcolor* "black")  
;;(defvar *status* "maroon")
;;(defvar *comment* "firebrick")

;;FÖLJANDE RADER SKA INTE ÄNDRAS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(set-background-color *bgcolor*)
(set-cursor-color *fgcolor*) 
(set-foreground-color *fgcolor*)

;;Ändra färgen på statusraden.
(set-face-foreground 'modeline *status*)
(set-face-background 'modeline *bgcolor*)

;;Standardbakgrund.
(set-face-background 'default *bgcolor*)

;;Standardförgrund
(set-face-foreground 'default *fgcolor*)

;;Markerad text
(set-face-background 'region "gold")
(set-face-foreground 'region "black")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;; Om man vill ändra färgerna som används vid färgintendering ska man ändra 
;; värdet på nedanstående uttryck. 
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Vi vill att emacs ska kolla upp så att alla parenteser är avslutade etc. 
;;Det kan nämligen emacs göra automatiskt.
(show-paren-mode 1)

;;Färgerna vid parenteskoll
(set-face-background 'show-paren-match-face "green")
(set-face-foreground 'show-paren-match-face "black")
(set-face-background 'show-paren-mismatch-face "yellow")
(set-face-foreground 'show-paren-mismatch-face "black")

 
(set-face-background 'highlight *bgcolor*)
(set-face-foreground 'highlight "lightgray")

;;För färgindentering.
(set-face-foreground 'font-lock-builtin-face *fgcolor*)
(set-face-foreground 'font-lock-builtin-face *fgcolor*)

;;Kommentarer
(set-face-foreground 'font-lock-comment-face *comment*)

;;Konstanter
(set-face-foreground 'font-lock-constant-face "red")

;;Funktionsnamn
(set-face-foreground 'font-lock-function-name-face "Steelblue")
(make-face-bold 'font-lock-function-name-face)

;;Nyckelord, reserverade ord
(set-face-foreground 'font-lock-keyword-face "DarkOrchid")
(make-face-bold 'font-lock-keyword-face)

;;Strängar
(set-face-foreground 'font-lock-string-face "Yellow") 

;;Typer etc, hit tillkommer också classer i java.
(set-face-foreground 'font-lock-type-face "Forestgreen")
(set-face-underline-p 'font-lock-type-face t)

;;Variabler
(set-face-foreground 'font-lock-variable-name-face "darkturquoise")
(make-face-bold 'font-lock-variable-name-face)

;;Varningstext
(set-face-foreground 'font-lock-warning-face "darkturquoise")
(make-face-bold 'font-lock-warning-face)