Re: customizing minibuffer and the message bar, ie mode-line

[Emanuel Berg]

Emanuel Berg <embe8573@student.uu.se> writes:

> With the most relevant (indispensible) code ...

Here is the version with the clock for
`Buffer-menu-mode' - same URL (soon):

    (setq-default mode-line-format
     `(
       (:eval (if (eq major-mode 'Buffer-menu-mode) (format-time-string " 
%H:%M")))
       " "
       (:eval (if (not (or buffer-read-only
                           (member major-mode '(erc-mode
                                                inferior-emacs-lisp-mode
                                                message-mode) )))
                  mode-line-modified) )
       " "
       (:eval
        (cond
         ((eq major-mode 'Buffer-menu-mode) "")
         ((eq major-mode 'w3m-mode)         w3m-current-title)
         (dired-directory                   dired-directory)
         ((eq major-mode 'message-mode)     (buffer-name))
         (buffer-file-name                  (abbreviate-file-name 
buffer-file-name))
         (t                                 mode-line-buffer-identification) ))
       " "
       (show-modes mode-line-modes)
       (line-number-mode "[%l] ")
       (column-number-mode "{%c} ")
       ))

-- 
underground experts united
http://user.it.uu.se/~embe8573