Add support for fullscreen in Linux (X11)

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-<return>") '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

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-<return>") 'toggle-frame-fullscreen)
+
 ;; modifier keys
 ;; (setq mac-command-modifier 'super)
 ;; (setq mac-option-modifier 'meta)

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-<return>") '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-<up>") 'beginning-of-buffer)
   (global-set-key (kbd "s-<down>") 'end-of-buffer)