Skip to content

Instantly share code, notes, and snippets.

@rougier
Last active January 16, 2021 22:58
Show Gist options
  • Save rougier/177bf6861b8594a827420edf8d0c1b08 to your computer and use it in GitHub Desktop.
Save rougier/177bf6861b8594a827420edf8d0c1b08 to your computer and use it in GitHub Desktop.
Bordered emacs
;; 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))))
@rougier
Copy link
Author

rougier commented May 30, 2020

Screenshot 2020-05-30 at 10 36 17

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment