Skip to content
Browse files

linux fullscreen

  • Loading branch information...
1 parent 24a971c commit 451794985bb515eba21290735e3cca7a52267e28 @alandipert committed
Showing with 25 additions and 0 deletions.
  1. +25 −0 init.el
View
25 init.el
@@ -280,10 +280,35 @@ Goes backward if ARG is negative; error if CHAR not found."
org-todo-keywords (quote ((sequence "TODO" "ONGOING" "DONE"))))
;;
+;; linux fullscreen
+;;
+
+(defvar my-fullscreen-p t "Check if fullscreen is on or off")
+
+(defun my-non-fullscreen ()
+ (interactive)
+ (progn
+ (set-frame-parameter nil 'width 82)
+ (set-frame-parameter nil 'fullscreen 'fullheight)))
+
+(defun my-fullscreen ()
+ (interactive)
+ (set-frame-parameter nil 'fullscreen 'fullboth))
+
+(defun toggle-fullscreen ()
+ (interactive)
+ (setq my-fullscreen-p (not my-fullscreen-p))
+ (if my-fullscreen-p
+ (my-non-fullscreen)
+ (my-fullscreen)))
+
+;;
;; window-system specific
;;
(when window-system
+ (if (not (eq system-type 'darwin))
+ (global-set-key (kbd "M-m") 'toggle-fullscreen))
(progn
(set-fringe-style -1)
(tooltip-mode -1)

0 comments on commit 4517949

Please sign in to comment.
Something went wrong with that request. Please try again.