From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Emanuel Berg <embe8573@student.uu.se>
Newsgroups: gmane.emacs.help
Subject: Re: customizing minibuffer and the message bar, ie mode-line
Date: Tue, 21 Apr 2015 03:36:31 +0200
Organization: Aioe.org NNTP Server
Message-ID: <87y4lmcleo.fsf@debian.uxu>
References: <682e54d4-38b9-49ad-8e3b-0e7ab4451bdb@googlegroups.com>
	<mailman.1138.1429490386.904.help-gnu-emacs@gnu.org>
	<mh2v1u$e62$2@dont-email.me>
	<mailman.1188.1429544846.904.help-gnu-emacs@gnu.org>
	<87iocqeazi.fsf@debian.uxu>
NNTP-Posting-Host: plane.gmane.org
Mime-Version: 1.0
Content-Type: text/plain
X-Trace: ger.gmane.org 1429580120 9711 80.91.229.3 (21 Apr 2015 01:35:20 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Tue, 21 Apr 2015 01:35:20 +0000 (UTC)
To: help-gnu-emacs@gnu.org
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Apr 21 03:35:19 2015
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geh-help-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([208.118.235.17])
	by plane.gmane.org with esmtp (Exim 4.69)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>)
	id 1YkN5q-0006Oz-Ph
	for geh-help-gnu-emacs@m.gmane.org; Tue, 21 Apr 2015 03:35:18 +0200
Original-Received: from localhost ([::1]:55878 helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>)
	id 1YkN5q-0007ZM-7F
	for geh-help-gnu-emacs@m.gmane.org; Mon, 20 Apr 2015 21:35:18 -0400
Original-Path: usenet.stanford.edu!goblin2!goblin.stu.neva.ru!aioe.org!.POSTED!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 34
Original-NNTP-Posting-Host: feB02bRejf23rfBm51Mt7Q.user.speranza.aioe.org
Original-X-Complaints-To: abuse@aioe.org
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux)
X-Notice: Filtered by postfilter v. 0.8.2
Cancel-Lock: sha1:G6h1uYvuiLWkUPFfA5rBpFGhMEc=
Mail-Copies-To: never
Original-Xref: usenet.stanford.edu gnu.emacs.help:211612
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.14
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.help:103893
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/103893>

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