leuven-theme in moody

init.el

;; -*- coding: utf-8 -*-

;; UTF-8 everywhere please
(setq locale-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(set-language-environment 'utf-8)

;; Always follow symlinks
(setq vc-follow-symlinks t)

;; Turn off mouse interface early in startup to avoid momentary display
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))

;; Define melpas
(require 'package)
(setq package-enable-at-startup nil)
(setq load-prefer-newer t) ;; Prevents outdated byte code files from being loaded
(add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/"))
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/")
             t)
(add-to-list 'package-archives
             '("tsinghua" . "https://mirrors.tuna.tsinghua.edu.cn/elpa/gnu/") t)
(package-initialize)

;; Bootstrap `use-package'
(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

;; Load use-package
(eval-when-compile
  (require 'use-package))
(setq use-package-always-ensure t)
(setq use-package-verbose nil)

(use-package moody
  :config
  (setq x-underline-at-descent-line t)
  (moody-replace-mode-line-buffer-identification)
  (moody-replace-vc-mode))

(use-package minions
  :bind ("<mouse-3>" . minions-minor-modes-menu)
  :init
  (setq-default minions-mode-line-lighter ":")
  :config
  (minions-mode 1))

(load-theme 'leuven t)