[PB] window configs / new frames

[PB] window configs / new frames

[Didier Verna]

	Hi!

I'm still trying to compose messages in a different frame in all situations.[1]
Following Hrvoje's hints, I've looked at the window config stuff. Now let's
take a first example. I want to compose new mails in another frame (let fall
the replys, followups and the like for now). When the message is sent, I want
to remove this frame.

I then tried the following:

(add-hook 'message-sent-hook
	  '(lambda () (delete-frame)))

(gnus-add-configuration
 '(message (frame 1.0
		  (vertical 1.0 
			    (message 1.0 point)))
	   ))

That doesn't open a new frame, so my Group buffer is hidden. Okay. Let's try
this now: 

(gnus-add-configuration
 '(message (frame 1.0
		  (vertical 1.0 
			    (group 1.0)
			    (if gnus-carpal '(group-carpal 4)))
		  (vertical 1.0 
			    (message 1.0 point)))
	   ))

Then, I get 2 new frames instead of 1: one with the mail, one with the group
buffer, and the initial frame displays the nntp buffer.

So my question is: what should I do to just open a new frame, *and keep the
former one like it was* ?

Thanks.

Footnotes: 
[1]  Geeze, 'thougth that should be easy at first ... hi ho hu !


-- 
    /     /   _   _       Didier Verna        http://www.inf.enst.fr/~verna/
 - / / - / / /_/ /      E.N.S.T. INF C214        mailto:verna@inf.enst.fr
/_/ / /_/ / /__ /        46 rue Barrault        Tel.   (33) 01 45 81 80 72
                      75634 Paris  cedex 13     Fax.   (33) 01 45 81 31 19

Re: [PB] window configs / new frames

[David S. Goldberg]

[-- Attachment #1: Type: text/plain, Size: 899 bytes --]

>>>>> Didier Verna writes:
> [Question about editing mails/posts in another frame]

A long time ago (back in September days, I think) I provided some
feedback to the windows-config info page.  I don't know if anything's
changed enough to invalidate it, but I still take my own advice :-)
and it works Ok for me.  Here's my configuration.  Note that I don't
delete the frame after use -- I leave it there so things start up more
quickly the next time I need to do an edit (includes message,
group-edit etc).

On another note, does anyone else have trouble with Didier's messages
having two x-face headers.  They caused emacs to core dump on me.
Next time I'm going to run without a coredump size limit and submit a
bug report, but I'm curious if I'm the only one.

Hth,

Dave Goldberg
Post: The Mitre Corporation\MS B305\202 Burlington Rd.\Bedford, MA 01730
Phone: 781-271-3887
Email: dsg@mitre.org


[-- Attachment #2: Type: text/plain, Size: 5117 bytes --]

(gnus-add-configuration
 '(group
   (if gnus-carpal
       '(horizontal 1.0
		    (vertical 1.0 (group 1.0 point))
		    (vertical 0.24 (group-carpal 1.0)))
     '(vertical 1.0 (group 1.0 point)))))

(gnus-add-configuration
 '(summary
   (horizontal 1.0
	       (vertical 1.0
			 (summary 1.0 point))
	       (if gnus-carpal
		   '(vertical 0.24
			      (horizontal 15
					  (vertical 0.5
						    (summary-carpal 1.0))
					  (vertical 1.0
						    (group-carpal 1.0)))
			      (group 1.0))
		 '(vertical 0.24 (group 1.0))))))
      
(gnus-add-configuration
 '(article
   (horizontal 1.0
	       (vertical 1.0 
			 (summary 0.25 point) 
			 (article 1.0))
	       (if gnus-carpal
		   '(vertical 0.24
			      (horizontal 15
					  (vertical 0.5
						    (summary-carpal 1.0))
					  (vertical 1.0
						    (group-carpal 1.0)))
			      (group 1.0))
		 '(vertical 0.24 (group 1.0))))))
      
(gnus-add-configuration
 '(server
   (if gnus-carpal
       '(horizontal 1.0
		    (vertical 1.0 (group 1.0 point))
		    (vertical 0.24 (server-carpal 1.0)))
     '(vertical 1.0 (server 1.0 point)))))

(gnus-add-configuration
 '(browse
   (if gnus-carpal
       '(horizontal 1.0
		    (vertical 1.0 (browse 1.0 point))
		    (vertical 0.24 (browse-carpal 1.0)))
     '(vertical 1.0 (server 1.0 point)))))

(gnus-add-configuration
 '(score-trace
   (horizontal 1.0
	       (vertical 1.0 
			 (summary 0.25 point) 
			 (article 1.0)
			 ("*Score Trace*" 0.15))
	       (if gnus-carpal
		   '(vertical 0.24
			      (horizontal 15
					  (vertical 0.5
						    (summary-carpal 1.0))
					  (vertical 1.0
						    (group-carpal 1.0)))
			      (group 1.0))
		 '(vertical 0.24 (group 1.0))))))

(gnus-add-configuration
 '(score-words
   (horizontal 1.0
	       (vertical 1.0 
			 (summary 0.25 point) 
			 (article 1.0)
			 ("*Score Words*" 0.15))
	       (if gnus-carpal
		   '(vertical 0.24
			      (horizontal 15
					  (vertical 0.5
						    (summary-carpal 1.0))
					  (vertical 1.0
						    (group-carpal 1.0)))
			      (group 1.0))
		 '(vertical 0.24 (group 1.0))))))

(gnus-add-configuration
 '(message
   (frame 1.0
	  (if (not (buffer-live-p gnus-summary-buffer))
	      (car (cdr (assoc 'group gnus-buffer-configuration)))
	    (car (cdr (assoc 'summary gnus-buffer-configuration))))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (message 1.0 point)))))

(gnus-add-configuration
 '(edit-form
   (frame 1.0
	  (car (cdr (assoc 'group gnus-buffer-configuration)))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (edit-form 1.0 point)))))

(gnus-add-configuration
 '(edit-score
   (frame 1.0
	  (if (not (buffer-live-p gnus-summary-buffer))
	      (car (cdr (assoc 'group gnus-buffer-configuration)))
	    (car (cdr (assoc 'summary gnus-buffer-configuration))))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (edit-score 1.0 point)))))

(gnus-add-configuration
 '(post
   (frame 1.0
	  (if (not (buffer-live-p gnus-summary-buffer))
	      (car (cdr (assoc 'group gnus-buffer-configuration)))
	    (car (cdr (assoc 'summary gnus-buffer-configuration))))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (post 1.0 point)))))

(gnus-add-configuration
 '(reply
   (frame 1.0
	  (car (cdr (assoc 'article gnus-buffer-configuration)))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (message 1.0 point)))))
      
(gnus-add-configuration
 '(forward
   (frame 1.0
	  (car (cdr (assoc 'article gnus-buffer-configuration)))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (message 1.0 point)))))


(gnus-add-configuration
 '(reply-yank
   (frame 1.0
	  (car (cdr (assoc 'article gnus-buffer-configuration)))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (message 1.0 point)))))


(gnus-add-configuration
 '(mail-bounce
   (frame 1.0
	  (car (cdr (assoc 'article gnus-buffer-configuration)))
	  (vertical
	   ((user-position . t) (top . 1) (left . 1)
	    (name . "Gnus Edit"))
	   (message 1.0 point)))))

(gnus-add-configuration
 '(draft
   (frame 1.0
	  (car (cdr (assoc 'summary gnus-buffer-configuration)))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    (draft 1.0 point)))))
      
(gnus-add-configuration
 '(pipe
   (car (cdr (assoc 'article gnus-buffer-configuration)))))

(gnus-add-configuration
 '(bug
   (frame 1.0
	  (if (not (buffer-live-p gnus-summary-buffer))
	      (car (cdr (assoc 'group gnus-buffer-configuration)))
	    (car (cdr (assoc 'summary gnus-buffer-configuration))))
	  (vertical ((user-position . t) (top . 1) (left . 1)
		     (name . "Gnus Edit"))
		    ("*Gnus Help Bug*" 0.3)
		    ("*Gnus Bug*" 1.0 point)))))

(gnus-add-configuration
 '(compose-bounce
   (frame 1.0
	  (car (cdr (assoc 'article gnus-buffer-configuration)))
	  (vertical
	   ((user-position . t) (top . 1) (left . 1)
	    (name . "Gnus Edit"))
	   (message 1.0 point)))))

Re: [PB] window configs / new frames

[Wes Hardaker]

Wow...  2 xfaces, I had no idea that would even work (of course,
thinking of how gnus works, I'm not suprised it does).

-- 
"Ninjas aren't dangerous.  They're more afraid of you than you are of them."

Re: [PB] window configs / new frames

[Didier Verna]

Wes Hardaker <wjhardaker@ucdavis.edu> writes:

> Wow...  2 xfaces, I had no idea that would even work (of course,
> thinking of how gnus works, I'm not suprised it does).

	Actually, I discovered this myself by mistake, after messing with the
message- mail- or news- variables, which duplicated my xface. I think VM also
handles this correctly (but what 'handle it correctly' means anyway ?)

-- 
    /     /   _   _       Didier Verna        http://www.inf.enst.fr/~verna/
 - / / - / / /_/ /      E.N.S.T. INF C214        mailto:verna@inf.enst.fr
/_/ / /_/ / /__ /        46 rue Barrault        Tel.   (33) 01 45 81 80 72
                      75634 Paris  cedex 13     Fax.   (33) 01 45 81 31 19

Re: [PB] window configs / new frames

[Dave Love]

>>>>> "Wes" == Wes Hardaker <wjhardaker@ucdavis.edu> writes:

 Wes> Wow...  2 xfaces, I had no idea that would even work (of course,
 Wes> thinking of how gnus works, I'm not suprised it does).

Not in Emacs 20, FWIW.  I think I can live without.