;;; fullscreen.el --- Full screen ;; Filename: fullscreen.el ;; Description: Full screen ;; Author: Andy Stewart ;; Maintainer: Andy Stewart ;; Copyright (C) 2009, Andy Stewart, all rights reserved. ;; Created: 2009-02-11 21:05:32 ;; Version: 0.1 ;; Last-Updated: 2009-02-11 21:05:32 ;; By: Andy Stewart ;; URL: http://www.emacswiki.org/emacs/download/fullscreen.el ;; Keywords: fullscreen ;; Compatibility: GNU Emacs 23.0.60.1 ;; ;; Features that might be required by this library: ;; ;; ;; ;;; This file is NOT part of GNU Emacs ;;; License ;; ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 3, or (at your option) ;; any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program; see the file COPYING. If not, write to ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth ;; Floor, Boston, MA 02110-1301, USA. ;;; Commentary: ;; ;; Full screen. ;; ;; Below are commands you can use: ;; ;; `fullscreen' Full screen. ;; `fullscreen-toggle' Toggle full screen status. ;; ;;; Installation: ;; ;; Put fullscreen.el to your load-path. ;; The load-path is usually ~/elisp/. ;; It's set in your ~/.emacs like this: ;; (add-to-list 'load-path (expand-file-name "~/elisp")) ;; ;; And the following to your ~/.emacs startup file. ;; ;; (require 'fullscreen) ;; ;; No need more. ;;; Customize: ;; ;; ;; ;; All of the above can customize by: ;; M-x customize-group RET fullscreen RET ;; ;;; Change log: ;; ;; 2009/02/11 ;; * First released. ;; ;;; Acknowledgements: ;; ;; ;; ;;; TODO ;; ;; ;; ;;; Require ;;; Code: (defun fullscreen () "Fullscreen." (interactive) (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 ;; if first parameter is '1', can't toggle fullscreen status '(1 "_NET_WM_STATE_FULLSCREEN" 0))) (defun fullscreen-toggle () "Toggle fullscreen status." (interactive) (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 ;; if first parameter is '2', can toggle fullscreen status '(2 "_NET_WM_STATE_FULLSCREEN" 0))) (provide 'fullscreen) ;;; fullscreen.el ends here