Emacs 窗口大小设置

 

;;全屏
(defun my-fullscreen ()
(interactive)
(x-send-client-message
nil 0 nil "_NET_WM_STATE" 32
'(2 "_NET_WM_STATE_FULLSCREEN" 0)))

;;启动窗口大小
(setq default-frame-alist
'((height . 40) (width . 90) (menu-bar-lines . 20) (tool-bar-lines . 0)))

;;;该函数用于最大化,状态值为1说明最大化后不会被还原
;;;因为这里有两次最大化 (分别是水平和垂直)
;(defun my-maximized ()
; (interactive)
; (x-send-client-message
; nil 0 nil "_NET_WM_STATE" 32
; '(1 "_NET_WM_STATE_MAXIMIZED_HORZ" 0))
; (interactive)
; (x-send-client-message
; nil 0 nil "_NET_WM_STATE" 32
; '(1 "_NET_WM_STATE_MAXIMIZED_VERT" 0)))
;;;启动时最大化
;(my-maximized)


;;F11 全屏
(global-set-key [(f11)] 'my-fullscreen)