From fcd6b4f213245e4ddc309757a98249387200a40e Mon Sep 17 00:00:00 2001 From: Jim Myhrberg Date: Tue, 29 Nov 2016 15:53:53 +0000 Subject: [PATCH] Add support for fullscreen in Linux (X11) --- core/siren-linux.el | 12 ++++++++++++ core/siren-osx.el | 3 +++ modules/siren-global-keybindings.el | 12 ++++-------- 3 files changed, 19 insertions(+), 8 deletions(-) diff --git a/core/siren-linux.el b/core/siren-linux.el index a4504e4..47232cc 100644 --- a/core/siren-linux.el +++ b/core/siren-linux.el @@ -10,5 +10,17 @@ (if window-system (set-face-attribute 'default nil :family "Monaco" :height 80)) +;; Keybindinds +(global-set-key (kbd "s-") 'siren-linux-toggle-fullscreen) + +;; Fullscreen helper function +(defun siren-linux-toggle-fullscreen () + "Toggle full screen on X11." + (interactive) + (when (eq window-system 'x) + (set-frame-parameter + nil 'fullscreen + (when (not (frame-parameter nil 'fullscreen)) 'fullboth)))) + (provide 'siren-linux) ;;; siren-linux.el ends here diff --git a/core/siren-osx.el b/core/siren-osx.el index e6952ab..f762d9f 100644 --- a/core/siren-osx.el +++ b/core/siren-osx.el @@ -10,6 +10,9 @@ (if window-system (set-face-attribute 'default nil :family "Monaco" :height 100)) +;; Mac OS X Fullscreen (requires Emacs 24.4 or later) +(global-set-key (kbd "s-") 'toggle-frame-fullscreen) + ;; modifier keys ;; (setq mac-command-modifier 'super) ;; (setq mac-option-modifier 'meta) diff --git a/modules/siren-global-keybindings.el b/modules/siren-global-keybindings.el index 4957a40..8a8e78c 100644 --- a/modules/siren-global-keybindings.el +++ b/modules/siren-global-keybindings.el @@ -49,21 +49,17 @@ ;; Rename current file and buffer (global-set-key (kbd "C-c r") 'siren-rename-file-and-buffer) +;; Flyspell correct previous word +(when (require 'flyspell nil 'noerror) + (global-set-key (kbd "s-.") 'flyspell-correct-word-before-point)) + ;; Mac OS X specific keybindings (when (eq system-type 'darwin) - - ;; Mac OS X Fullscreen (requires Emacs 24.4 or later) - (global-set-key (kbd "s-") 'toggle-frame-fullscreen) - ;; Undo/Redo (via undo-tree) (when (require 'undo-tree nil 'noerror) (global-set-key (kbd "s-z") 'undo-tree-undo) (global-set-key (kbd "s-Z") 'undo-tree-redo)) - ;; Flyspell correct previous word - (when (require 'flyspell nil 'noerror) - (global-set-key (kbd "s-.") 'flyspell-correct-word-before-point)) - ;; Move to beginning/end of buffer (global-set-key (kbd "s-") 'beginning-of-buffer) (global-set-key (kbd "s-") 'end-of-buffer)