From 9752b23ff7fd5295e41e6be693cefb5f8d19ce63 Mon Sep 17 00:00:00 2001
From: Alison Watson <marrub.xz@gmail.com>
Date: Sat, 15 Feb 2020 21:53:32 -0500
Subject: [PATCH] emacs: use our own modeline

---
 emacs/init.el | 30 ++++++++++++++----------------
 1 file changed, 14 insertions(+), 16 deletions(-)

diff --git a/emacs/init.el b/emacs/init.el
index 725b9aa..9bd9744 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -23,7 +23,7 @@
       sentence-end-double-space nil)
 
 (set-face-attribute 'variable-pitch nil :height 120 :family "Source Sans Pro")
-(set-face-attribute 'fixed-pitch nil    :height 120 :family "Source Code Pro")
+(set-face-attribute 'fixed-pitch    nil :height 120 :family "Source Code Pro")
 
 (dolist (range '((#x2310  . #x26bf)
                  (#x26c0  . #x329f)
@@ -32,6 +32,14 @@
 
 (set-fontset-font t '(#x2e80 . #x9fff) "Noto Sans CJK JP")
 
+;; mode line
+(setq-default mode-line-format
+              '("%+"
+                mode-line-buffer-identification
+                mode-line-modes
+                "%5l↑ %5c→ %5i= "
+                mode-line-percent-position))
+
 ;; scrolling
 (setq scroll-conservatively 101
       scroll-step 1
@@ -84,21 +92,10 @@
   (setq rand-theme-wanted '(base16-atelier-cave
                             base16-atelier-forest
                             base16-atelier-heath))
-  (rand-theme))
-
-(use-package doom-modeline
-  :ensure t
-  :after evil
-  :hook (after-init . doom-modeline-mode)
-  :init
-  (setq doom-modeline-bar-width 3
-        doom-modeline-buffer-encoding nil
-        doom-modeline-buffer-file-name-style 'truncate-with-project
-        doom-modeline-major-mode-icon nil
-        doom-modeline-minor-modes t
-        doom-modeline-project-detection 'project
-        doom-modeline-vcs-max-length 8)
-  (set-face-attribute 'mode-line nil :background "black"))
+  (rand-theme)
+  (set-face-attribute 'mode-line nil
+                      :background "#0a0a0a"
+                      :foreground "#92ebf0"))
 
 ;; major modes
 (use-package cc-mode
@@ -305,6 +302,7 @@
   :init
   (setq evil-cjk-emacs-word-boundary t
         evil-cross-lines t
+        evil-mode-line-format 'after
         evil-shift-width 3
         evil-vsplit-window-right t
         evil-want-keybinding nil)