From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Lennart Borgman (gmail)" Newsgroups: gmane.emacs.devel Subject: Re: Honoring traditional defaults [was: Transient Mark Mode on by default] Date: Tue, 25 Mar 2008 01:12:01 +0100 Message-ID: <47E84351.10808@gmail.com> References: <87myopnj0l.fsf@stupidchicken.com> <20080324115510.GA1563@muc.de> <874pavg45t.fsf@uwakimon.sk.tsukuba.ac.jp> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------040800060909040207060405" X-Trace: ger.gmane.org 1206403953 23032 80.91.229.12 (25 Mar 2008 00:12:33 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 25 Mar 2008 00:12:33 +0000 (UTC) Cc: emacs-devel@gnu.org To: "Stephen J. Turnbull" Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Mar 25 01:13:02 2008 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 1Jdwmi-0000fB-IJ for ged-emacs-devel@m.gmane.org; Tue, 25 Mar 2008 01:13:01 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Jdwm7-0001nV-ED for ged-emacs-devel@m.gmane.org; Mon, 24 Mar 2008 20:12:23 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Jdwm3-0001nD-HQ for emacs-devel@gnu.org; Mon, 24 Mar 2008 20:12:19 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Jdwm2-0001n1-0Q for emacs-devel@gnu.org; Mon, 24 Mar 2008 20:12:19 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Jdwm1-0001my-U6 for emacs-devel@gnu.org; Mon, 24 Mar 2008 20:12:17 -0400 Original-Received: from ch-smtp02.sth.basefarm.net ([80.76.149.213]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Jdwm1-0000GL-9i for emacs-devel@gnu.org; Mon, 24 Mar 2008 20:12:17 -0400 Original-Received: from c83-254-148-228.bredband.comhem.se ([83.254.148.228]:64223 helo=[127.0.0.1]) by ch-smtp02.sth.basefarm.net with esmtp (Exim 4.68) (envelope-from ) id 1Jdwlz-0000cf-7m; Tue, 25 Mar 2008 01:12:16 +0100 User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.9) Gecko/20071031 Thunderbird/2.0.0.9 Mnenhy/0.7.5.666 In-Reply-To: <874pavg45t.fsf@uwakimon.sk.tsukuba.ac.jp> X-Antivirus: avast! (VPS 080324-0, 2008-03-24), Outbound message X-Antivirus-Status: Clean X-Originating-IP: 83.254.148.228 X-Scan-Result: No virus found in message 1Jdwlz-0000cf-7m. X-Scan-Signature: ch-smtp02.sth.basefarm.net 1Jdwlz-0000cf-7m 26f690fe94e0c43f34be2e8b02cbf635 X-detected-kernel: by monty-python.gnu.org: Linux 2.6? (barebone, rare!) 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:93360 Archived-At: This is a multi-part message in MIME format. --------------040800060909040207060405 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Stephen J. Turnbull wrote: > Then there would be a command `custom-set-all-to-prior-defaults' or > so, which would get a version from the user, defaulting to the prior > public release. Next, map over the alist of defaults accumulating the > most recent default prior to the user-specified version, if any. Call > this the "prior defaults alist". Now the command maps over the prior > defaults alist. If a variable appears as a key in the prior defaults > alist, and the user has a customization, we ignore it, and continue > with the next variable. If the user has no customization for the > variable, then we create one, setting the user's customization to the > prior default. > > Finally, it emits a warning telling the user which variables it > customized. > > If desired, there could also be a customizable variable for > determining how far back to turn the clock, something like > `emacs-version-for-prior-defaults'. Presumably Alan would set this to > "18.59" or so. This would be used instead of the "most recent > public release" as the default for `custom-set-all-to-prior-defaults'. > > IMO this handles changes in defaults with a minimum of annoyance to > those with a classical education while making it possible to change > defaults to something more friendly to the GUI generation. > > To be honest, I'm not interested in implementing this scheme at this > time, but if and when I get around to it, I'll post here. If somebody > decides to grab the ball and run with it, I'd appreciate the courtesy > of an email, though. I think implementing the scheme is easy. I have attached a starter. --------------040800060909040207060405 Content-Type: text/plain; name="custsets.el" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="custsets.el" ;;; custsets.el --- Sets of named customizations ;; ;; Author: Lennart Borgman (lennart O borgman A gmail O com) ;; Created: 2008-03-25T00:17:06+0100 Mon ;; Version: ;; Last-Updated: ;; URL: ;; Keywords: ;; Compatibility: ;; ;; Features that might be required by this library: ;; ;; None ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;; Commentary: ;; ;; After an idea expressed by among other Stephen Turnbull on the ;; emacs devel list. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;; Change log: ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 2, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; see the file COPYING. If not, write to ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth ;; Floor, Boston, MA 02110-1301, USA. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;; Code: (defcustom custsets-sets '( ("Windows" (cua-mode t) ) ) "Sets of customizations." :group 'custsets) (defun custsets-turn-on (set-name) (interactive "sCustomization set: ") (let ((set (assoc-string set-name custsets-sets t))) (unless set (error "Can't find customization set %s" set-name)) (dolist (opt-rec (cdr set)) (let* ((opt (car opt-rec)) (val (cdr opt-rec)) (saved-opt (get opt 'saved-value)) (saved-val saved-opt) ;; fix-me (ask (if saved-opt (format "You have currently customized %s to %s. Change this to %s? " opt saved-opt val) (format "Customize %s to %s? " opt val))) ) (when (y-or-n-p ask) (customize-set-variable opt val) (customize-set-value opt val) (customize-mark-to-save opt)) ) ) (custom-save-all))) (provide 'custsets) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; custsets.el ends here --------------040800060909040207060405--