From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: bob@gnu.org (Robert J. Chassell) Newsgroups: gmane.emacs.devel Subject: Re: Customizing the mode line Date: Sat, 31 Oct 2009 14:09:23 +0000 Message-ID: <87639vr6y4.fsf@benthic.rattlesnake.com> References: <83skd1dta0.fsf@gnu.org> <837huberca.fsf@gnu.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1256998201 28047 80.91.229.12 (31 Oct 2009 14:10:01 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 31 Oct 2009 14:10:01 +0000 (UTC) Cc: bob@gnu.org To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Oct 31 15:09:54 2009 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1N4EeQ-0006Vk-8G for ged-emacs-devel@m.gmane.org; Sat, 31 Oct 2009 15:09:54 +0100 Original-Received: from localhost ([127.0.0.1]:43350 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N4EeP-0004zB-Ig for ged-emacs-devel@m.gmane.org; Sat, 31 Oct 2009 10:09:53 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N4EeJ-0004yy-IG for emacs-devel@gnu.org; Sat, 31 Oct 2009 10:09:47 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N4EeG-0004xl-D6 for emacs-devel@gnu.org; Sat, 31 Oct 2009 10:09:45 -0400 Original-Received: from [199.232.76.173] (port=34153 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N4EeG-0004xd-7P for emacs-devel@gnu.org; Sat, 31 Oct 2009 10:09:44 -0400 Original-Received: from cpe-72-224-47-204.nycap.res.rr.com ([72.224.47.204]:52163 helo=benthic.rattlesnake.com) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1N4EeE-0004da-J9; Sat, 31 Oct 2009 10:09:42 -0400 Original-Received: from benthic.rattlesnake.com (bob@benthic.rattlesnake.com [127.0.0.1]) by benthic.rattlesnake.com (8.14.3/8.14.3/Debian-9) with ESMTP id n9VE9OYM017708; Sat, 31 Oct 2009 14:09:24 GMT Original-Received: (from bob@localhost) by benthic.rattlesnake.com (8.14.3/8.14.3/Submit) id n9VE9N3h017707; Sat, 31 Oct 2009 14:09:23 GMT X-Authentication-Warning: benthic.rattlesnake.com: bob set sender to bob@gnu.org using -f In-reply-to: <837huberca.fsf@gnu.org> (message from Eli Zaretskii on Sat, 31 Oct 2009 13:27:17 +0200) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 1) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:116507 Archived-At: > 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 bob@gnu.org bob@rattlesnake.com http://www.rattlesnake.com http://www.teak.cc