From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Miles Bader Newsgroups: gmane.emacs.devel Subject: Re: Assignment of misc packages for emacs Date: 21 May 2002 19:20:48 +0900 Sender: emacs-devel-admin@gnu.org Message-ID: References: <200205050534.g455YfF01634@aztec.santafe.edu> <5xbsbumexh.fsf@kfs2.cua.dk> <200205141941.g4EJfud15293@aztec.santafe.edu> <5xvg9qmgzt.fsf@kfs2.cua.dk> <200205151927.g4FJRRW26103@rum.cs.yale.edu> <5x3cwr4q7m.fsf@kfs2.cua.dk> <87g00rd74y.fsf@tc-1-100.kawasaki.gol.ne.jp> <87sn4otknt.fsf@tc-1-100.kawasaki.gol.ne.jp> <200205191441.g4JEfMg23080@rum.cs.yale.edu> <200205202134.g4KLYHj26031@aztec.santafe.edu> Reply-To: Miles Bader NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1021976637 32758 127.0.0.1 (21 May 2002 10:23:57 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 21 May 2002 10:23:57 +0000 (UTC) Cc: monnier+gnu/emacs@RUM.cs.yale.edu, storm@cua.dk, emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17A6o9-0008WF-00 for ; Tue, 21 May 2002 12:23:57 +0200 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17A72W-0001nI-00 for ; Tue, 21 May 2002 12:38:48 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 17A6oT-0000Zi-00; Tue, 21 May 2002 06:24:17 -0400 Original-Received: from tyo201.gate.nec.co.jp ([202.32.8.214]) by fencepost.gnu.org with smtp (Exim 3.34 #1 (Debian)) id 17A6li-0000RL-00; Tue, 21 May 2002 06:21:26 -0400 Original-Received: from mailgate4.nec.co.jp ([10.7.69.197]) by TYO201.gate.nec.co.jp (8.11.6/3.7W01080315) with ESMTP id g4LAKxV19156; Tue, 21 May 2002 19:20:59 +0900 (JST) Original-Received: from mailsv.nec.co.jp (mailgate51.nec.co.jp [10.7.69.196]) by mailgate4.nec.co.jp (8.11.6/3.7W-MAILGATE-NEC) with ESMTP id g4LAKwR16945; Tue, 21 May 2002 19:20:58 +0900 (JST) Original-Received: from mcsss2.ucom.lsi.nec.co.jp ([10.30.114.133]) by mailsv.nec.co.jp (8.11.6/3.7W-MAILSV-NEC) with ESMTP id g4LAKuu06624; Tue, 21 May 2002 19:20:56 +0900 (JST) Original-Received: from mcspd15.ucom.lsi.nec.co.jp (mcspd15 [10.30.114.174]) by mcsss2.ucom.lsi.nec.co.jp (8.10.2+Sun/3.7Wlsi_mx_6.0) with ESMTP id g4LAKqK02976; Tue, 21 May 2002 19:20:52 +0900 (JST) Original-Received: by mcspd15.ucom.lsi.nec.co.jp (Postfix, from userid 31295) id D08693722; Tue, 21 May 2002 19:20:48 +0900 (JST) Original-To: rms@gnu.org System-Type: i686-pc-linux-gnu Blat: Foop In-Reply-To: <200205202134.g4KLYHj26031@aztec.santafe.edu> Original-Lines: 65 Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:4235 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:4235 Richard Stallman writes: > I think a better idea is to keep the current format > but put the keys you would type in bold face. So it would look like > > Diff: vendor, head, backup, diff, 2 = other, e = idiff > Diff: E = imerge I tried that with actual bold characters, and it seems reasonable -- a single bold character doesn't stand out all that much, but it can be seen (using my fonts at least), and has the advantage of not obscuring the actual labels like some puncuation does. An alternative would be to use underlining, which would match what many menu systems use to indicate key-to-letter-in-a-menu-label correspondences. I also find that underlining makes the keys more obvious, also without obscuring the labels. One point about this style: I tried with both one and two spaces as separators following the commas, and I found it much more readable with two spaces. -Miles p.s., Here's the code I used to try it (the four lines at the end display the various styles): (defun parenthify-entry (key label) (if (eq key (aref label 0)) (format "(%c)%s" key (substring label 1)) (format "(%c) %s" key label))) (defun facify-entry (key label face) (if (eq key (aref label 0)) (format "%s%s" (propertize (char-to-string key) 'face face) (substring label 1)) (format "%s = %s" (propertize (char-to-string key) 'face face) label))) (defun boldify-entry (key label) (facify-entry key label 'bold)) (defun undify-entry (key label) (facify-entry key label 'underline)) (defun equify-entry (key label) (format "%c = %s" key label)) (defun show-menu-string (format-fun) (let ((msg "Diff:" ) (sep " ") (sep2 ", ")) (dolist (entry '((?v . "vendor") (?h . "head") (?b . "backup") (?d . "diff") (?2 . "other") (?e . "idiff") (?E . "imerge"))) (setq msg (concat msg sep (funcall format-fun (car entry) (cdr entry)))) (setq sep sep2)) (let ((minibuffer-prompt-properties nil)) (read-string msg)))) (show-menu-string 'equify-entry) (show-menu-string 'boldify-entry) (show-menu-string 'undify-entry) (show-menu-string 'parenthify-entry) -- The secret to creativity is knowing how to hide your sources. --Albert Einstein