From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: John Mastro <john.b.mastro@gmail.com>
Newsgroups: gmane.emacs.help
Subject: Re: How to handle default value in read-string?
Date: Mon, 3 Aug 2015 14:17:34 -0700
Message-ID: <CAOj2CQQePJML9JxwfKfT5L4J_r7=wiNpf5xNBQTYqg1aAaZURA@mail.gmail.com>
References: <87k2tc9jeu.fsf@mbork.pl>
NNTP-Posting-Host: plane.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
X-Trace: ger.gmane.org 1438636689 16794 80.91.229.3 (3 Aug 2015 21:18:09 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Mon, 3 Aug 2015 21:18:09 +0000 (UTC)
To: Help Gnu Emacs mailing list <help-gnu-emacs@gnu.org>
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Aug 03 23:18:08 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 1ZMN7W-0000QV-Bx
	for geh-help-gnu-emacs@m.gmane.org; Mon, 03 Aug 2015 23:18:06 +0200
Original-Received: from localhost ([::1]:60523 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 1ZMN7V-00061l-JB
	for geh-help-gnu-emacs@m.gmane.org; Mon, 03 Aug 2015 17:18:05 -0400
Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:53313)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <john.b.mastro@gmail.com>) id 1ZMN7L-00060p-Vw
	for help-gnu-emacs@gnu.org; Mon, 03 Aug 2015 17:17:56 -0400
Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <john.b.mastro@gmail.com>) id 1ZMN7L-0003dm-5s
	for help-gnu-emacs@gnu.org; Mon, 03 Aug 2015 17:17:55 -0400
Original-Received: from mail-ob0-x234.google.com ([2607:f8b0:4003:c01::234]:34819)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <john.b.mastro@gmail.com>) id 1ZMN7L-0003da-0P
	for help-gnu-emacs@gnu.org; Mon, 03 Aug 2015 17:17:55 -0400
Original-Received: by obbop1 with SMTP id op1so109056709obb.2
	for <help-gnu-emacs@gnu.org>; Mon, 03 Aug 2015 14:17:54 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113;
	h=mime-version:in-reply-to:references:from:date:message-id:subject:to
	:content-type; bh=RLyKrRbPysdCZzVlT23k873zsu0ENb8pMX+DrrQBUSg=;
	b=bRcsujBTtJzangEFhoA7xB3wmmixq+7PQ4C+vICau5bX/P4JXNHUwoIjIQYgnntV1N
	qtrI4MQcCGt0gf6B0zXu82Vs1WrPg+MG9qN8Kbcb7FfsLaUS9aErqr+GTMwH9JmU3zzt
	ljxMGc5Vi+8tAHzm97aO0upEOYP0+skLEnunKdcPHJAyNxQr8+xdFa9A2KBdqJsPfRGM
	WD6juqUU1pGj1mCbGB0EUEGBEwClQ9WMOfvZvWyEYdmR2x7mpMLlSYj2UXMY1ucReO6b
	O8ikKVoSp4g5eBqsRlBw4CEUsrSOYm83/zZ4hicG04bSR1Hwzf1ZahwPQlICzB+XB45H
	0SAQ==
X-Received: by 10.182.112.163 with SMTP id ir3mr114708obb.44.1438636674055;
	Mon, 03 Aug 2015 14:17:54 -0700 (PDT)
Original-Received: by 10.76.168.70 with HTTP; Mon, 3 Aug 2015 14:17:34 -0700 (PDT)
In-Reply-To: <87k2tc9jeu.fsf@mbork.pl>
X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address
	(bad octet value).
X-Received-From: 2607:f8b0:4003:c01::234
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:106223
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/106223>

> I'd like read-string to somehow indicate the default value.  A natural
> idea is to include it in the prompt, for example having a prompt like
>
> (format "Foo (%s): " default)
>
> However, Icicles' version of read-string already does exactly that, so
> for Icicles users this would be superfluous.
>
> So here's the question: is there a better way than just have a prompt of
>
> (if icicle-mode (don't-include-default) (do-include-default))?

There's no getting around that you'll need a condition somewhere.
However, you can of course wrap it up in a helper function, so you're
not repeating the condition every time you use `read-string'.

    (defun my-read-string (prompt &optional ...)
      (unless (bound-and-true-p icicle-mode)
        (setq prompt (concat prompt " (%s)" default)))
      (read-string prompt ...))

You could use advice to do the same thing but I don't think it would be
an improvement in this case.

-- 
john