45 lines
1.2 KiB
EmacsLisp
45 lines
1.2 KiB
EmacsLisp
;;; bascht --- all the looks
|
|
;;; Commentary:
|
|
;;; All the looks
|
|
|
|
;;; Code:
|
|
|
|
(load-theme 'material t nil)
|
|
(rainbow-mode 1)
|
|
(rainbow-delimiters-mode)
|
|
|
|
(custom-set-faces
|
|
'(default ((t (:family "Fira Mono" :foundry "CTDB" :slant normal :weight normal :height 113 :width normal)))))
|
|
|
|
(require 'org-bullets)
|
|
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
|
|
|
|
(defun on-after-init () "Don't set a background for -nw Emacs."
|
|
(unless (display-graphic-p (selected-frame))
|
|
(set-face-background 'default "unspecified-bg" (selected-frame))))
|
|
|
|
(add-hook 'window-setup-hook 'on-after-init)
|
|
|
|
(if (display-graphic-p)
|
|
'(progn
|
|
'(menu-bar-mode)
|
|
(custom-set-faces
|
|
'(mode-line ((t (:background "#85C" :foreground "#85CEEB" :box (:line-width 1 :color "dodger blue")))))
|
|
)
|
|
|
|
(custom-set-faces
|
|
'(mode-line ((t (:background "brightblack" :foreground "#4e4e4e" :box (:line-width 1 :color "dodger blue")))))
|
|
)))
|
|
|
|
;;; Nice Org alert boxes
|
|
(setq alert-default-style 'libnotify)
|
|
|
|
;;; Mail niceties
|
|
(setq notmuch-search-line-faces
|
|
(quote
|
|
(("unread" :weight bold :foreground "white" :background "royal blue")
|
|
("flagged" :foreground "red" :background))))
|
|
|
|
(provide 'appearance-config)
|
|
;;; appearance-config.el ends here
|