Bordered emacs

bordered-emacs.el

;; Copyright 2020 Nicolas Rougier - BSD License
;; Usage: emacs -q -l bordered.el
(set-face-font 'default "Roboto Mono Light 14")
(setq default-frame-alist
      (append (list '(width  . 72) '(height . 40)
                    '(vertical-scroll-bars . nil)
                    '(internal-border-width . 0)
                    '(font . "Roboto Mono Light 14"))))
(set-frame-parameter (selected-frame)
                     'internal-border-width 0)

(setq inhibit-startup-screen t
      inhibit-startup-message t
      inhibit-startup-echo-area-message t
      initial-scratch-message nil
      initial-major-mode 'text-mode
      default-major-mode 'text-mode
      frame-resize-pixelwise t)
(scroll-bar-mode 0)
(tool-bar-mode 0)
(menu-bar-mode 0)

(fringe-mode '(99 . 0))
(global-display-line-numbers-mode)

(set-face-attribute 'fringe nil
                    :background "#30303f")

(set-face-attribute 'header-line nil
                    :height 140
                    :foreground "#000000"
                    :background "#ffffff"
                    :box `(:line-width 5 :color "#ffffff" :style nil))
(set-face-attribute 'mode-line nil
                    :height 10
                    :foreground "#ffffff"
                    :background "#ffffff"
                    :box nil)
(set-face-attribute 'line-number nil
                    :foreground "#ffffff"
                    :background "#ffffff")

(setq-default header-line-format
              (list
               (propertize "  ⚪️ ⚪️ ⚪️      "
                           'face `(:height 0.75
                                   :background "#30303f"
                                   :box nil))
                            'display '(raise 0.0)
               (propertize " Editing %b " 'face `(:weight regular))))
(setq-default mode-line-format
              (list
               (propertize (make-string 99 ?\ )
                           'face `(:height 10
                                   :background "#30303f"
                                   :box nil))))