72 lines
2.1 KiB
EmacsLisp
72 lines
2.1 KiB
EmacsLisp
;;; lisp/interface.el --- Changes to Emacs' interface -*- lexical-binding: t; -*-
|
|
;;; Commentary:
|
|
;;
|
|
;; Emacs has a little too much going on in it's interface by default - things
|
|
;; like GTK dialog boxes for quitting, a scroll bar, a menu bar, etc. are all
|
|
;; unnecessary for most users - so disabling that is done right in this file.
|
|
;; Additionally, the default theme isn't very aesthetic, so that obviously needs to change too.
|
|
;;
|
|
;;; Code:
|
|
|
|
;; Stop Emacs from resizing the window at startup
|
|
(setq frame-resize-pixelwise t)
|
|
|
|
;; Remove the startup screen
|
|
(setq inhibit-startup-message t)
|
|
|
|
;; Disable the GTK dialog that appears when exiting without saving
|
|
(setq use-dialog-box nil)
|
|
|
|
;; Enable line numbers globally
|
|
(setq display-line-numbers 'relative)
|
|
(add-hook 'prog-mode-hook 'display-line-numbers-mode)
|
|
|
|
;; Modeline
|
|
(use-package nano-modeline)
|
|
(add-hook 'prog-mode-hook #'nano-modeline-prog-mode)
|
|
(add-hook 'org-mode-hook #'nano-modeline-org-mode)
|
|
|
|
;; Window dividers + fringe
|
|
(set-fringe-mode 0)
|
|
(window-divider-mode 1)
|
|
|
|
;; Add a nice border around Emacs
|
|
(modify-all-frames-parameters
|
|
'((right-divider-width . 15)
|
|
(internal-border-width . 15)))
|
|
(dolist (face '(window-divider
|
|
window-divider-first-pixel
|
|
window-divider-last-pixel))
|
|
(face-spec-reset-face face)
|
|
(set-face-foreground face (face-attribute 'default :background)))
|
|
(set-face-background 'fringe (face-attribute 'default :background))
|
|
|
|
;; vertico - An amazing search engine!
|
|
(use-package vertico
|
|
:init
|
|
(vertico-mode 1))
|
|
|
|
;; Use the `orderless' completion mechanism
|
|
(use-package orderless
|
|
:after vertico
|
|
:init
|
|
(setq completion-styles '(orderless basic)
|
|
completion-category-defaults nil
|
|
completion-category-overrides '((file (styles basic partial-completion)))))
|
|
|
|
;; magit - A beautiful git porcelain for Emacs
|
|
(use-package magit)
|
|
|
|
;; which-key - a popup which displays available keybindings
|
|
(use-package which-key
|
|
:init
|
|
(which-key-mode)
|
|
:custom
|
|
(which-key-idle-delay 0.1) ; Make the popup appear faster
|
|
(which-key-separator " - ")) ; Change the seperator which-key uses
|
|
|
|
(use-package diredfl ; Colourise dired!
|
|
:hook dired-mode)
|
|
|
|
;;; interface.el ends here
|