Charles Martin
chasr****@gmail*****
Mon Feb 19 12:04:48 JST 2007
Hey, guys, what are the odds of being able to get EMACS to do a *real* full screen mode on MAC OS? On 2/18/07, macem****@lists***** <macem****@lists*****> wrote: > Send macemacsjp-english mailing list submissions to > macem****@lists***** > > To subscribe or unsubscribe via the World Wide Web, visit > http://lists.sourceforge.jp/mailman/listinfo/macemacsjp-english > or, via email, send a message with subject or body 'help' to > macem****@lists***** > > You can reach the person managing the list at > macem****@lists***** > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of macemacsjp-english digest..." > > > Today's Topics: > > 1. [macemacsjp-english 914] emacs full screen (Kasper Daniel Hansen) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Sun, 18 Feb 2007 11:23:39 -0800 > From: Kasper Daniel Hansen <khans****@stat*****> > Subject: [macemacsjp-english 914] emacs full screen > To: macem****@lists***** > Message-ID: <1B7DC****@stat*****> > Content-Type: text/plain; charset=US-ASCII; delsp=yes; format=flowed > > This is my solution, based on some advice from Seiji-san regarding > two things: > 1) I want to be able to maximize Emacs so that it covers all of the > available screen, including the menu bar and the dock (this is called > presentation mode in some applications) > 2) I am regularly using an external monitor and want to change my > emacs settings (especially font and window size) between my laptop > and my external display > > My solution uses two functions mac-switch-display which switches > between window configurations and mac-resize-display which switches > between normal and full screen mode. The two functions are bound to M- > f1 and M-f2. I never use more than a single frame, so I am not sure > how it works with several frames. > > The settings are defined in the variable mac-display-list and should > be quite obvious. The positions are in pixels and the sizes are in > characters. It seems like Emacs _needs_ a character based frame size. > For that reason it may be difficult to _exact;_ cover the entire > screen estate (I have a few pixels worth of empty space, when > maximizing on my laptop). For obvious reasons, a character based > width is very dependent on the font you are using, so I gave up on > auto-setting it. > > In case you need to discover what the position/size of you frame is > for configuration purpose, entering these lines into the scratch > buffer will help: > > (frame-parameter (selected-frame) 'font) > (frame-parameter (selected-frame) 'height) > (frame-parameter (selected-frame) 'left) > (frame-parameter (selected-frame) 'top) > > You use them by placing the cursor at the end of the line _right next > to the last )_ and then press C-x C-e. > > Without further ado, here is the relevant part from my dot-emacs: > > > (setq mac-display-list > '((external . ((name . "external") > (font . "-*-*-medium-r-normal--16-*-*-*-*-*-fontset- > hiraginokaku") > (normalsize . (110 48)) > (normalposition . (0 22)) > (maxsize . (164 49)))) > (laptop . ((name . "laptop") > (font . "-*-*-medium-r-normal--14-*-*-*-*-*-fontset-hiraginokaku") > (normalsize . (80 38)) > (normalposition . (0 22)) > (maxsize . (124 39)))) > )) > > (defun mac-switch-display () > "Switches the display type between laptop and external" > (interactive) > (cond ((equal (cdr (assoc 'name mac-current-display)) "laptop") > (setq mac-current-display (cdr (assoc 'external mac-display-list)))) > ((equal (cdr (assoc 'name mac-current-display)) "external") > (setq mac-current-display (cdr (assoc 'laptop mac-display-list)))) > ) > (apply 'set-frame-size (cons (selected-frame) (cdr (assoc > 'normalsize mac-current-display)))) > (apply 'set-frame-position (cons (selected-frame) (cdr (assoc > 'normalposition mac-current-display)))) > (apply 'set-frame-font (list (cdr (assoc 'font mac-current- > display)))) > ) > > (defun mac-resize-display () > "Resizes the display. Toggles between the maxed and normal display > size. If the current displaysize is smaller than the normal display > size, switch to the normal display size. All sizes are frame widths" > (interactive) > (cond ((< (frame-parameter (selected-frame) 'width) (car (cdr > (assoc 'normalsize mac-current-display)))) > (mac-show-menu-bar) > (apply 'set-frame-position (cons (selected-frame) (cdr (assoc > 'normalposition mac-current-display)))) > (apply 'set-frame-size (cons (selected-frame) (cdr (assoc > 'normalsize mac-current-display)))) > ) > ((< (frame-parameter (selected-frame) 'width) (car (cdr (assoc > 'maxsize mac-current-display)))) > (mac-hide-menu-bar) > (set-frame-position (selected-frame) 0 0) > (apply 'set-frame-size (cons (selected-frame) (cdr (assoc 'maxsize > mac-current-display)))) > ) > ((= (frame-parameter (selected-frame) 'width) (car (cdr (assoc > 'maxsize mac-current-display)))) > (mac-show-menu-bar) > (apply 'set-frame-position (cons (selected-frame) (cdr (assoc > 'normalposition mac-current-display)))) > (apply 'set-frame-size (cons (selected-frame) (cdr (assoc > 'normalsize mac-current-display)))) > ) > )) > > (if (eq window-system 'mac) > (progn (require 'carbon-font) > (setq mac-current-display (cdr (assoc 'external mac-display-list))) > (mac-switch-display) > (global-set-key (kbd "<M-f1>") 'mac-resize-display) > (global-set-key (kbd "<M-f2>") 'mac-switch-display) > )) > > > Kasper > > > ------------------------------ > > _______________________________________________ > macemacsjp-english mailing list > macem****@lists***** > http://lists.sourceforge.jp/mailman/listinfo/macemacsjp-english > > > End of macemacsjp-english Digest, Vol 24, Issue 15 > ************************************************** > -- Laissez-nous faire, laissez-nous passer. Le monde va de lui-même.
