From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: mode-line now has WAY fewer items on it! eg follow-mode Date: Wed, 09 Oct 2013 21:55:06 +0200 Organization: Aioe.org NNTP Server Message-ID: <87li226wy4.fsf@nl106-137-194.student.uu.se> References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1381348817 17635 80.91.229.3 (9 Oct 2013 20:00:17 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 9 Oct 2013 20:00:17 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Oct 09 22:00:21 2013 Return-path: 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 ) id 1VTzvg-0004rs-30 for geh-help-gnu-emacs@m.gmane.org; Wed, 09 Oct 2013 22:00:20 +0200 Original-Received: from localhost ([::1]:43665 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VTzvf-0000KS-OI for geh-help-gnu-emacs@m.gmane.org; Wed, 09 Oct 2013 16:00:19 -0400 Original-Path: usenet.stanford.edu!goblin3!goblin.stu.neva.ru!news.mb-net.net!open-news-network.org!aioe.org!.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 79 Original-NNTP-Posting-Host: VVbyYd/iFZoeWNmD9i++cQ.user.speranza.aioe.org Original-X-Complaints-To: abuse@aioe.org User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.4 (gnu/linux) X-Notice: Filtered by postfilter v. 0.8.2 Cancel-Lock: sha1:C14H30QUkJM4K+n3JaYXMweBWqU= Mail-Copies-To: never Original-Xref: usenet.stanford.edu gnu.emacs.help:201629 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 List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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:93899 Archived-At: dkcombs@panix.com (David Combs) writes: > Even an abbreviation would be better than nothing: > follow rather than follow-mode, say. Of foll. I don't know exactly what you are after but I managed to fix the mode-line issue in my early Emacs days with the below material [1]. I you (or anyone else) know how to improve it do tell. Here is a dump [2] that shows that, at the surface at least, it works. But I wonder if those functions get called an unnecessary amount of times? Yes, how *do* you setup the mode line, on a mode-basis, the standard way? [1] ;; mode line / mode bar color and face (defun set-mode-bar-colors (f b) (interactive "s Background (bar) color: \ns Foreground (face) color: ") (set-face-attribute 'modeline nil :reverse-video nil :background f :foreground b) ) (set-mode-bar-colors "blue" "white") ;; minibuffer (set-face-foreground 'minibuffer-prompt "green") ;; mode line: what to show (defvar *show-mode-line-caption*) (setq *show-mode-line-caption* nil) (defvar *mode-line-caption*) (defvar *show-mode-line-modified*) (setq *show-mode-line-modified* t) (defvar *show-default-directory*) (setq *show-default-directory* t) (defvar *show-mode-line-buffer-identification*) (setq *show-mode-line-buffer-identification* t) (defvar *show-mode-line-modes*) (setq *show-mode-line-modes* nil) (setq column-number-mode nil) (setq line-number-mode nil) (defun set-mode-line () (interactive) (setq-default mode-line-format `(" " (*silly-projector* " ") (*show-mode-line-modified* mode-line-modified) (*show-mode-line-modified* " ") (*show-mode-line-caption* *mode-line-caption*) (*show-mode-line-caption* " ") (*show-default-directory* default-directory) (*show-mode-line-buffer-identification* mode-line-buffer-identification) (*show-mode-line-buffer-identification* " ") (line-number-mode "[%l] ") (column-number-mode "{%c} ") (*show-mode-line-modes* mode-line-modes) ))) (set-mode-line) ;; example for local mode (defun set-buffer-menu-mode-line () "Mode line: Set the mode line for Buffer Menu mode." (set-variable '*mode-line-caption* "" t) (set-variable '*show-mode-line-caption* nil t) (set-variable '*show-mode-line-modified* nil t) (set-variable '*show-default-directory* nil t) (set-variable '*show-mode-line-buffer-identification* t t) (set-variable '*show-mode-line-modes* nil t) (set-variable 'column-number-mode nil t) (set-variable 'line-number-mode nil t) ) (add-hook 'buffer-menu-mode-hook 'set-buffer-menu-mode-line) [2] http://user.it.uu.se/~embe8573/pics/usenet.png -- Emanuel Berg, programmer-for-rent. CV, projects, etc at uXu underground experts united: http://user.it.uu.se/~embe8573