;;; -*- lexical-binding: t -*-

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

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

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

(-> 'bad-color)

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

(defvar bad-mode-map (make-keymap))
(define-minor-mode bad-mode "bad mode")

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

(defun bad-fullscreen ()
  (when (gfx)
    (setq frame-resize-pixelwise t)
    (fringe-mode -1)
    (set-frame-parameter nil 'fullscreen 'fullboth)))

(defun bad-font ()
  (font-lock-mode -1)
  (set-foreground-color our-white-b)
  (set-background-color our-black)
  (when (gfx)
    (let ((spec (font-spec :name "FreeMono")))
      (when (find-font spec)
        (set-fontset-font t 'unicode spec nil 'append)))))

(defun bad-hide ()
  (display-line-numbers-mode -1)
  (menu-bar-mode             -1)
  (scroll-bar-mode           -1)
  (show-paren-mode           -1)
  (tool-bar-mode             -1)
  (visual-line-mode          -1)
  (setq-local auto-save-default nil)
  (setq-local buffer-undo-list  t)
  (setq-local cursor-type       nil)
  (setq-local mode-line-format  nil)
  (setq-local truncate-lines    t) ; NOTE: OK
  (setq-local extended-command-suggest-shorter nil))

(defun bad-prepare ()
  (let* ((inhibit-message t))
    (setq-local image-recompute-map-p nil)
    (bad-fullscreen)
    (bad-font)
    (bad-hide)))

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

(<- 'bad-mode)