Emacs: Style scroll bars.

This commit is contained in:
tastytea 2020-04-18 01:16:30 +02:00
parent 1dac11b5e1
commit 763c178fef
1 changed files with 11 additions and 5 deletions

View File

@ -1,6 +1,6 @@
;;; appearance.el --- Configure appearance. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-04-17T16:28:21+0200>
;; Time-stamp: <2020-04-18T01:14:30+0200>
;;; Commentary:
@ -28,8 +28,10 @@
(set-fontset-font t 'unicode "Noto Color Emoji" nil 'prepend)))
(tool-bar-mode -1) ; Hide toolbar.
(menu-bar-mode -1) ; Hide menu bar.
(when (display-graphic-p)
(set-scroll-bar-mode 'right)) ; Put scrollbar to the right side.
(set-scroll-bar-mode 'right)
(setq-default scroll-bar-width 10))
(my/set-default-fonts)
(global-hl-line-mode t) ; Highlight current line.
(show-paren-mode t) ; Visualize matching parens.
@ -58,9 +60,13 @@
(doom-themes-treemacs-enable-variable-pitch nil))
;; Highlight current line more clearly.
:custom-face (hl-line ((t (:background "#000000"))))
:config (progn (load-theme 'doom-outrun-electric t)
(doom-themes-visual-bell-config) ; Flash modeline on error.
(doom-themes-treemacs-config)))
:config (progn
(load-theme 'doom-outrun-electric t)
(doom-themes-visual-bell-config) ; Flash modeline on error.
(doom-themes-treemacs-config)
;; Set colors for scroll bar.
(set-face-background 'scroll-bar (face-background 'default))
(set-face-foreground 'scroll-bar (face-foreground 'shadow))))
) ; unless slow-computer.
;; Neat modeline.