From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Eli Zaretskii Newsgroups: gmane.emacs.devel Subject: Re: New start up splash screen annoyance... Date: Sat, 22 Sep 2007 20:40:02 +0200 Message-ID: References: <85abrn9ini.fsf@lola.goethe.zz> <85d4wh3kf9.fsf@lola.goethe.zz> <851wcw1qht.fsf@lola.goethe.zz> <871wctziwv.fsf@kfs-lx.testafd.dk> <87lkb1z0vg.fsf@anzu.internal.golden-gryphon.com> <858x71w5f5.fsf@lola.goethe.zz> <4zvea54019.fsf@fencepost.gnu.org> <87myvgrivy.fsf@jurta.org> <86r6ksxz9n.fsf@lola.quinscape.zz> <87hclmlq2x.fsf@jurta.org> Reply-To: Eli Zaretskii NNTP-Posting-Host: lo.gmane.org X-Trace: sea.gmane.org 1190486433 24736 80.91.229.12 (22 Sep 2007 18:40:33 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 22 Sep 2007 18:40:33 +0000 (UTC) Cc: emacs-devel@gnu.org To: Juri Linkov Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Sep 22 20:40:27 2007 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 1IZ9ts-0008UL-2o for ged-emacs-devel@m.gmane.org; Sat, 22 Sep 2007 20:40:20 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IZ9tp-0008T3-KT for ged-emacs-devel@m.gmane.org; Sat, 22 Sep 2007 14:40:17 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1IZ9tm-0008Ra-1R for emacs-devel@gnu.org; Sat, 22 Sep 2007 14:40:14 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IZ9tg-0008Pn-Lx for emacs-devel@gnu.org; Sat, 22 Sep 2007 14:40:12 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IZ9tg-0008Pk-DJ for emacs-devel@gnu.org; Sat, 22 Sep 2007 14:40:08 -0400 Original-Received: from nitzan.inter.net.il ([213.8.233.22]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1IZ9tf-00022p-Vg for emacs-devel@gnu.org; Sat, 22 Sep 2007 14:40:08 -0400 Original-Received: from HOME-C4E4A596F7 (IGLD-84-229-122-46.inter.net.il [84.229.122.46]) by nitzan.inter.net.il (MOS 3.7.3a-GA) with ESMTP id HWC69352 (AUTH halo1); Sat, 22 Sep 2007 20:37:23 +0200 (IST) In-reply-to: <87hclmlq2x.fsf@jurta.org> (message from Juri Linkov on Sat, 22 Sep 2007 17:11:59 +0300) X-Detected-Kernel: FreeBSD 4.7-5.2 (or MacOS X 10.2-10.4) (2) 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:79517 Archived-At: > From: Juri Linkov > Date: Sat, 22 Sep 2007 17:11:59 +0300 > Cc: emacs-devel@gnu.org > > > I have not checked the latest version but I agree that any "Dismiss in > > future" should only affect the splash screen when file names are given > > on the command line. > > > > I agree. And the "don't show this in the future" should only be > > shown when there are file name args. > > > > Would someone please implement that? > > Done. What about the demonstration of concept in the patch below? I think popping the splash screen in a separate frame is superior to dividing the initial frame, and doing so makes all kinds of complications with "concise" splash screen and whether splash should be in upper or lower window, a non-issue. IIRC, Richard agreed to the idea of a separate frame. Note that the patch below is just a first unpolished cut; in particular, it doesn't yet work well with the file arguments. I just wanted to see if people liked it, before inverting more work. Index: lisp/startup.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v retrieving revision 1.460 diff -u -r1.460 startup.el --- lisp/startup.el 22 Sep 2007 14:02:26 -0000 1.460 +++ lisp/startup.el 22 Sep 2007 18:05:19 -0000 @@ -1460,10 +1460,29 @@ (interactive) (quit-window t)) +(defvar splash-frame-parameters + '((name . "GNU Emacs") + (top . 150) + (left . 200) + (height . 34) + (width . 64) + (user-position . t) + (vertical-scroll-bars . nil) + (menu-bar-lines . nil) + (tool-bar-lines . nil) + (left-fringe . 0) + (right-fringe . 0) + (minibuffer . nil) + (cursor-type . nil) + (unsplittable . t) + (auto-raise . t)) + "Frame parameters used for splash screen.") + (defun fancy-startup-screen (&optional concise) "Display fancy startup screen. If CONCISE is non-nil, display a concise version of the splash screen in another window." + (let ((splash-frame (with-current-buffer (get-buffer-create "*GNU Emacs*") (let ((inhibit-read-only t)) (erase-buffer) @@ -1485,13 +1504,17 @@ (setq buffer-read-only t) (if (and view-read-only (not view-mode)) (view-mode-enter nil 'kill-buffer)) - (goto-char (point-min))) + (goto-char (point-min)) + (make-frame splash-frame-parameters)))) + (select-frame splash-frame) + (setq mode-line-format nil) + (set-frame-height (1- (frame-height))) (if (or (window-minibuffer-p) (window-dedicated-p (selected-window))) (pop-to-buffer (current-buffer))) (if concise (display-buffer (get-buffer "*GNU Emacs*")) - (switch-to-buffer "*GNU Emacs*"))) + (switch-to-buffer "*GNU Emacs*")))) (defun fancy-about-screen () "Display fancy About screen."