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

94 lines
2.6 KiB
EmacsLisp
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;;; appearance.el --- Configure appearance. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-03-07T20:20:36+0100>
;;; Commentary:
;;; Code:
(require 'basics/global-variables)
(use-package emacs
:ensure nil
:custom
;; If 2 files have the same name, append directory name after the filename.
(uniquify-after-kill-buffer-p t)
(uniquify-buffer-name-style 'post-forward)
(uniquify-strip-common-suffix t)
: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.
(setq frame-title-format ; Show filename in frame title.
'(multiple-frames
"%b" ("" invocation-name "@" system-name " " buffer-file-truename)))
)
;; Icon font (required by doom and others).
(use-package all-the-icons
:pin melpa ; We need > 3.2.0 for all-the-icons-ivy-rich (issue #4).
:init
(defun my/font-installed-p (font-name)
"Check if font with FONT-NAME is available."
(if (find-font (font-spec :name font-name))
t
nil))
:config
;; Install fonts if we have a GUI and the font is not already installed.
(when (and (window-system) (not (my/font-installed-p "all-the-icons")))
(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)
(doom-themes-visual-bell-config) ; Flash modeline on error.
:custom-face
(font-lock-comment-face ((t (: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.
:custom
(doom-modeline-minor-modes t)
(doom-modeline-buffer-file-name-style 'truncate-except-project)
(mode-line-percent-position nil) ; Don't didplay percentage in modeline.
:hook
(after-init . doom-modeline-mode)
)
;; Show line numbers on the left side of the buffer.
(use-package display-line-numbers
:if (>= emacs-major-version 26)
:config
(defun my/disable-line-numbers (&optional dummy)
(display-line-numbers-mode -1))
(global-display-line-numbers-mode)
)
(provide 'basics/appearance)
;;; appearance.el ends here