EmacsModeLine

modeline variables

;; Set the modeline to tell me the filename, hostname, etc..
(setq-default mode-line-format
      (list " "
            'mode-line-modified
            "--"
            'mode-line-buffer-identification
            "--"
            'global-mode-string
            'mode-line-modes
            '(which-func-mode ("" which-func-format "--"))
            'mode-line-position
            "--"
            `(vc-mode vc-mode)
            "--"
            'system-name
            "-%-"
            )
)

;; set the modeline to white on red
; you HAVE to set mode-line-inverse-video to t, otherwise the face
; gets ignored. Retarded.  That means you have to reverse the colors -
; setting foreground color actually sets background.
; see this gem: http://www.delorie.com/gnu/docs/emacs/emacs_89.html
(cond
 ((not window-system)
  (setq mode-line-inverse-video t)
  (set-face-foreground 'modeline "red")
  (set-face-background 'modeline "white")
))

 **--.emacs      --[(Emacs-Lisp)]--[prefix-region]--28% (201,23) --ourtownadd-lm----------------------