mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
30 lines
817 B
EmacsLisp
30 lines
817 B
EmacsLisp
;;; siren-core-linux.el --- jimeh's Emacs Siren: Linux specific settings.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Linux specific settings and tweaks for Siren.
|
|
|
|
;;; Code:
|
|
|
|
;; Set default font
|
|
(if window-system
|
|
(let* ((primary "Menlo Nerd Font Mono")
|
|
(fallback "Menlo")
|
|
(family (if (member primary (font-family-list)) primary fallback)))
|
|
(set-face-attribute 'default nil :family family :height 90)))
|
|
|
|
;; 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-core-linux)
|
|
;;; siren-core-linux.el ends here
|