From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Lennart Borgman Newsgroups: gmane.emacs.devel Subject: Re: fancy-splash-screen customize group... Date: Wed, 07 Dec 2005 23:46:37 +0100 Message-ID: <4397664D.4000709@student.lu.se> References: <200512071737.jB7HbsRa003345@brains.moreideas.ca> <878xuwk466.fsf@jurta.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------070702050609060709070003" X-Trace: sea.gmane.org 1133995839 10536 80.91.229.2 (7 Dec 2005 22:50:39 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 7 Dec 2005 22:50:39 +0000 (UTC) Cc: rms@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Dec 07 23:50:36 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Ek83p-0004fY-8p for ged-emacs-devel@m.gmane.org; Wed, 07 Dec 2005 23:46:54 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ek845-0001CI-1j for ged-emacs-devel@m.gmane.org; Wed, 07 Dec 2005 17:47:09 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Ek83s-0001C2-VZ for emacs-devel@gnu.org; Wed, 07 Dec 2005 17:46:57 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Ek83s-0001Bp-2k for emacs-devel@gnu.org; Wed, 07 Dec 2005 17:46:56 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ek83s-0001Bm-06 for emacs-devel@gnu.org; Wed, 07 Dec 2005 17:46:56 -0500 Original-Received: from [81.228.11.98] (helo=pne-smtpout1-sn1.fre.skanova.net) by monty-python.gnu.org with esmtp (Exim 4.34) id 1Ek84l-00013u-QZ; Wed, 07 Dec 2005 17:47:52 -0500 Original-Received: from [192.168.123.121] (83.249.218.244) by pne-smtpout1-sn1.fre.skanova.net (7.2.060.1) id 4396EEA400026600; Wed, 7 Dec 2005 23:46:37 +0100 User-Agent: Mozilla Thunderbird 1.0.7 (Windows/20050923) X-Accept-Language: en-us, en Original-To: emacs-devel@gnu.org In-Reply-To: <878xuwk466.fsf@jurta.org> 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:47165 Archived-At: This is a multi-part message in MIME format. --------------070702050609060709070003 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Juri Linkov wrote: >>With the changes I'm suggesting you end up with the following preamble: >> >> This is a customization buffer for group Emacs. >> >> Editing an option value changes only the text in the buffer. The >> State button can be used to set or save the option value. Saving an >> option normally edits your init file. >> >> See Help for more information. >> >> > >I think your change makes this header more clear. The only part that >is still confusing is > > The State button can be used to set or save the option value. > >I suspect that the first thing that a novice will do after reading this >is to search the button with the name "State" in the customization buffer. > > I have attached a preliminary patch for this. The patch changes the text to something reminding of the text above. It also changes the links from a button-like style to underline. Please test the patch. There is one thing that I have not found out how to change it: the "mouse over" face. It is gray whatever I do. If someone knows how to make a widget really display the highlight face then please tell me! **** I am resending this. It did not reach the list directly because there were too many recipients before. Moderator, can you please just drop the message I sent before that is hold and is a duplication of this message. --------------070702050609060709070003 Content-Type: text/plain; name="cus-edit-links.patch" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="cus-edit-links.patch" Index: cus-edit.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/cus-edit.el,v retrieving revision 1.243 diff -c -r1.243 cus-edit.el *** cus-edit.el 4 Dec 2005 02:39:24 -0000 1.243 --- cus-edit.el 7 Dec 2005 22:32:29 -0000 *************** *** 1412,1445 **** 'custom-button-pressed 'custom-button-pressed-unraised)))) (defun custom-buffer-create-internal (options &optional description) (custom-mode) (if custom-buffer-verbose-help ! (progn (widget-insert "This is a customization buffer") (if description (widget-insert description)) (widget-insert (format ". ! %s show active fields; type RET or click mouse-1 ! on an active field to invoke its action. Editing an option value ! changes only the text in the buffer. Invoke the State button to set or ! save the option value. Saving an option normally edits your init file. ! Invoke " (if custom-raised-buttons "`Raised' buttons" "Square brackets"))) (widget-create 'info-link ! :tag "Custom file" ! "(emacs)Saving Customizations") ! (widget-insert ! " for information on how to save in a different file. ! Invoke ") ! (widget-create 'info-link ! :tag "Help" :help-echo "Read the online help." "(emacs)Easy Customization") ! (widget-insert " for general information.\n\n") ! (widget-insert "Operate on everything in this buffer:\n ")) (widget-insert " ")) (widget-create 'push-button :tag "Set for Current Session" --- 1412,1471 ---- 'custom-button-pressed 'custom-button-pressed-unraised)))) + (defface custom-link-face + `((((class color) (background light)) (:foreground "blue" :underline t)) + (((class color) (background dark)) (:foreground "cyan" :underline t))) + "Face used to highlight attributes that are links." + :group 'custom-faces) + + (defun custom-buffer-create-internal (options &optional description) (custom-mode) (if custom-buffer-verbose-help ! (let ( ! (custom-file-txt "custom file") ! (help-txt "help")) ! ;;(put-text-property 0 (length custom-file-txt) 'mouse-face 'highlight custom-file-txt) ! ;;(put-text-property 0 (length help-txt) 'mouse-face 'highlight help-txt) (widget-insert "This is a customization buffer") (if description (widget-insert description)) + ;; %s show active fields; type RET or click mouse-1 + ;; on an active field to invoke its action. Editing an option value + ;; changes only the text in the buffer. Invoke the State button to set or + ;; save the option value. Saving an option normally edits your init file. (widget-insert (format ". ! ! Editing an option value changes only the text in the buffer. The ! State button(s) next to the option(s) can be used to set or save ! the value. Saving an option normally edits your init file. ! ! See " (if custom-raised-buttons "`Raised' buttons" "Square brackets"))) + ;; (widget-create 'info-link + ;; :button-face 'custom-link-face + ;; :button-prefix "" + ;; :button-suffix "" + ;; ;;:tag "Custom file" + ;; :tag custom-file-txt + ;; "(emacs)Saving Customizations") + ;; (widget-insert + ;; " for information on how to save in a different file.\n\nSee ") + (widget-create 'info-link ! :button-face 'custom-link-face ! :button-prefix "" ! :button-suffix "" ! :mouse-face 'highlight ! :button-mouse-face 'highlight ! ;;:tag "Help" ! :tag help-txt :help-echo "Read the online help." "(emacs)Easy Customization") ! (widget-insert " for more information.\n\n") ! (widget-insert "Operate on all options in this buffer:\n ")) (widget-insert " ")) (widget-create 'push-button :tag "Set for Current Session" *************** *** 2149,2154 **** --- 2175,2183 ---- (insert " ") (push (widget-create-child-and-convert widget 'custom-group-link + :button-face 'custom-link-face + :button-prefix "" + :button-suffix "" :tag (custom-unlispify-tag-name symbol) symbol) buttons) *************** *** 2160,2166 **** (when links (insert "\nParent documentation: ") (while links ! (push (widget-create-child-and-convert widget (car links)) buttons) (setq links (cdr links)) (cond ((null links) --- 2189,2200 ---- (when links (insert "\nParent documentation: ") (while links ! (push (widget-create-child-and-convert ! widget (car links) ! :button-face 'custom-link-face ! :button-prefix "" ! :button-suffix "" ! ) buttons) (setq links (cdr links)) (cond ((null links) --------------070702050609060709070003 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel --------------070702050609060709070003--