.emacs.d/init/basics/appearance.el

84 lines
2.3 KiB
EmacsLisp
Raw Normal View History

2019-10-14 17:38:14 +02:00
;;; appearance.el --- Configure appearance. -*- lexical-binding: t; -*-
2019-11-09 18:52:12 +01:00
;; Time-stamp: <2019-11-09T12:20:03+00:00>
2019-10-14 17:38:14 +02:00
;;; Commentary:
;;; Code:
(require 'basics/global-variables)
(use-package emacs
:ensure nil
:config
(tool-bar-mode -1) ; Hide toolbar.
(if (display-graphic-p)
(set-scroll-bar-mode 'right)) ; Put scrollbar to the right side.
(add-to-list 'default-frame-alist ; Set default font.
'(font . "Source Code Pro-10"))
(global-hl-line-mode t) ; Highlight current line.
(show-paren-mode t) ; Visualize matching parens.
2019-11-09 18:52:12 +01:00
(setq frame-title-format ; Show filename in frame title.
'(multiple-frames
"%b" ("" invocation-name "@" system-name " " buffer-file-truename)))
2019-10-14 17:38:14 +02:00
)
;; Icon font (required by doom and others).
(use-package all-the-icons
:config
(unless (file-exists-p "~/.local/share/fonts/all-the-icons.ttf")
(all-the-icons-install-fonts t))
)
;; Themes for doom-modeline.
(unless slow-computer
(use-package doom-themes
:after (all-the-icons)
:config
(load-theme 'doom-molokai t)
:custom-face
(font-lock-comment-face ((t (:inherit font-lock-comment-face
:foreground "#667755"))))
)
) ; unless slow-computer.
;; Neat modeline.
(use-package doom-modeline
:after (all-the-icons)
:init
(column-number-mode t) ; Show column numbers in modeline.
(size-indication-mode) ; Buffer size display in the modeline.
:config
(setq doom-modeline-minor-modes nil
;; doom-modeline-buffer-file-name-style 'relative-to-project
doom-modeline-buffer-file-name-style 'truncate-except-project)
:hook
(after-init . doom-modeline-mode)
)
;; If 2 files have the same name, append directory name after the filename.
(use-package uniquify
:ensure nil ; Builtin.
:custom
(uniquify-after-kill-buffer-p t)
(uniquify-buffer-name-style 'post-forward)
(uniquify-strip-common-suffix t)
)
;; Show line numbers on the left side of the buffer.
(use-package display-line-numbers
:if (>= emacs-major-version 26)
:config
(global-display-line-numbers-mode)
)
(provide 'basics/appearance)
;;; appearance.el ends here