Re: Customizing the mode line

[Robert J. Chassell]

    > I don't think that a better UI for customizing the mode line is a
    > really important place to improve.  Customizing it is not that hard to do.

    ??? Really?  Then please describe how to do that.  

I have the following in my .emacs file and am not as good a programmer as
Eli Zaretski:

  (setq default-mode-line-format
   (quote
    (#("-" 0 1
       (help-echo
        "mouse-1: select (drag to resize), mouse-2: delete others, mouse-3: 
delete"))
     mode-line-mule-info
     mode-line-modified
     mode-line-remote
  ;;   mode-line-frame-identification
  ;;   "`"
  ;;   (:eval  (user-real-login-name))
  ;;   "' "
     "  "
     mode-line-buffer-identification
     #("  " 0 2
       (help-echo
        "mouse-1: select (drag to resize), mouse-2: delete others, mouse-3: 
delete"))
     (:eval (user-real-login-name))
     "@"
     default-directory
     #(" " 0 1
       (help-echo
        "mouse-1: select window, mouse-2: delete others, mouse-3: delete"))
     (size-indication-mode
      (6
       #(" %I " 0 4
         (help-echo "mouse-1: select (drag to resize), mouse-2: delete others, 
mouse-3: delete this"))))
  ;;    (if (string= (cdr (assq 'name (frame-parameters)))
  ;;                 (or "Root Emacs 22" "Bobs Emacs 22"))
     (line-number-mode "Line %l")
     (vc-mode vc-mode)
     (:propertize
      (" (" mode-name mode-line-process minor-mode-alist)
      help-echo "mouse-3: minor mode menu" local-map
      (keymap
       (header-line keymap
                    (down-mouse-3 . mode-line-mode-menu-1))
       (mode-line keymap
                  (down-mouse-3 . mode-line-mode-menu-1))))
  ;; the following is replaced by    the :propertize expression above
  ;;    #(" %[(" 0 4                    ; 4 is number of chars between quotes
  ;;      (help-echo
  ;;       "mouse-1: select window, mouse-2: delete others, mouse-3: delete"))
  ;;

  ;;    (:eval (mode-line-mode-name))
  ;;    mode-line-process
  ;;    minor-mode-alist
     #("%n" 0 2 (help-echo "mouse-2: widen" local-map (keymap ...)))
     ")%] "
     (-3 . "%P")
     global-mode-string
  ;;   "-%-"
    )))

-- 
    Robert J. Chassell                          
    address@hidden                                 address@hidden
    http://www.rattlesnake.com                  http://www.teak.cc