;;; -*- lexical-binding: t -*- ;; ;; this file: ;; https://dataswamp.org/~incal/emacs-init/x-incal.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-incal)