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 01:34:02 +0100 Message-ID: <43962DFA.9080401@student.lu.se> References: <200512061909.jB6J99lg007547@brains.moreideas.ca> <4395F51B.8060401@student.lu.se> <871x0psz3f.fsf@stupidchicken.com> <200512062328.jB6NSei27894@raven.dms.auburn.edu> <439620D1.9010502@student.lu.se> <200512070011.jB70BfW27944@raven.dms.auburn.edu> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1133918269 1508 80.91.229.2 (7 Dec 2005 01:17:49 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 7 Dec 2005 01:17:49 +0000 (UTC) Cc: rms@gnu.org, cyd@stupidchicken.com, emacs@whaite.ca, emacs-devel@gnu.org, zedek@gnu-rox.org, jasonr@gnu.org, drew.adams@oracle.com Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Dec 07 02:17:47 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Ejnuq-0002MV-Dq for ged-emacs-devel@m.gmane.org; Wed, 07 Dec 2005 02:16:16 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ejnug-00006B-Ut for ged-emacs-devel@m.gmane.org; Tue, 06 Dec 2005 20:16:07 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1EjnMh-0000S2-5s for emacs-devel@gnu.org; Tue, 06 Dec 2005 19:40:59 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1EjnK4-00089J-LU for emacs-devel@gnu.org; Tue, 06 Dec 2005 19:38:17 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EjnGS-0006ss-5U for emacs-devel@gnu.org; Tue, 06 Dec 2005 19:34:32 -0500 Original-Received: from [81.228.8.83] (helo=pne-smtpout1-sn2.hy.skanova.net) by monty-python.gnu.org with esmtp (Exim 4.34) id 1EjnH9-0006Yt-Hc; Tue, 06 Dec 2005 19:35:15 -0500 Original-Received: from [192.168.123.121] (83.249.218.244) by pne-smtpout1-sn2.hy.skanova.net (7.2.060.1) id 4394B872000562E9; Wed, 7 Dec 2005 01:34:07 +0100 User-Agent: Mozilla Thunderbird 1.0.7 (Windows/20050923) X-Accept-Language: en-us, en Original-To: Luc Teirlinck In-Reply-To: <200512070011.jB70BfW27944@raven.dms.auburn.edu> 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:47091 Archived-At: Luc Teirlinck wrote: >Lennart Borgman wrote: > > You are right, I forgot those. Of course I mean that those should be > changed too. Is not that easy enough to do now? > >I did not look at it in depth, but at first view it does not look that >trivial. You would have to make the :link widget type more different >from other widget types, thereby making the widget library less >homogeneous and, I would guess, thereby more complex (as if it were not >already complicated enough). > I do not think it will make things more complicated. This is what I am currently using for doing similar things: >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (defface emacsw32-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 'emacsw32) (defun emacsw32-custom-url-link(txt url) (let ((plain-url (substring-no-properties url))) (unless (equal txt url) (put-text-property 0 (length txt) 'help-echo plain-url txt)) (put-text-property 0 (length txt) 'mouse-face 'highlight txt) (let ((btn (widget-create 'push-button :notify 'emacsw32-notify-btn-url :button-face 'emacsw32-link-face :button-prefix "" :button-suffix "" txt))) (widget-put btn 'url url)))) (defun emacsw32-notify-btn-url(widget &rest ignore) (browse-url (widget-get widget 'url))) ;;; Use it like this: (emacsw32-custom-url-link "GNU Home page" "http://www.gnu.org/") <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Changing this code a bit will do the trick I believe. No changes to basic functions are needed. Or am I wrong?