;;; -*- lexical-binding: t -*-
;;
;; the dot is char number 80:
;;   __________________________________________________________________________.
;;
;; -----------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'luki-lisp)

;; -----------------------------------------------------------------------------

(defun do-x-fullscreen () (i)
  (when (gfx)
    (setq frame-resize-pixelwise t)
    (fringe-mode -1)
    (set-frame-width  nil 1280 nil 'pixelwise)
    (set-frame-height nil  720 nil 'pixelwise)
    (set-frame-parameter nil 'fullscreen 'fullboth)))

;; -----------------------------------------------------------------------------

(defun do-x (&optional no-set-font) (i)
  (blink-cursor-mode -1)
  (menu-bar-mode     -1)
  (scroll-bar-mode   -1)
  (tool-bar-mode     -1)
  (unless no-set-font
    (set-frame-font "OCR A Std" t))
  (do-x-fullscreen))

;; -----------------------------------------------------------------------------

(when (gfx)
  (do-x))

;; -----------------------------------------------------------------------------

(<- 'll-x)