;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/x.el

(defun do-x-fullscreen ()
  (setq frame-resize-pixelwise t)
  (set-face-attribute 'fringe nil :background #1="black" :foreground #1#)
  (fringe-mode -1)
  (set-frame-parameter nil 'fullscreen 'fullboth))

(defun do-x ()
  (do-x-fullscreen)
  (set-frame-font "-xos4-terminus-bold-r-normal--16-160-72-72-c-80-iso10646-1")
  (blink-cursor-mode -1)
  (menu-bar-mode     -1)
  (scroll-bar-mode   -1)
  (tool-bar-mode     -1))

(provide 'x)