Emacs: replace moody with doom-modeline
Alan Pearce alan@alanpearce.eu
Fri, 29 Nov 2019 23:30:11 +0100
2 files changed, 11 insertions(+), 33 deletions(-)
M user/emacs/.emacs.d/init.el → user/emacs/.emacs.d/init.el
@@ -67,12 +67,6 @@ (if (eq window-system 'x) (setq-default line-spacing 0.2)) (setq frame-background-mode 'light) (mapc 'frame-set-background-mode (frame-list))) - (let ((line (face-attribute 'mode-line :underline))) - (set-face-attribute 'mode-line nil :overline line) - (set-face-attribute 'mode-line-inactive nil :overline line) - (set-face-attribute 'mode-line-inactive nil :underline line) - (set-face-attribute 'mode-line nil :box nil) - (set-face-attribute 'mode-line-inactive nil :box nil)) ;;; Chrome (use-package minions @@ -80,32 +74,15 @@ :custom ((minions-mode-line-lighter "#") (minions-mode-line-delimiters nil) (minions-mode t))) -(setq-default mode-line-position nil - mode-line-mule-info nil - mode-line-client nil - mode-line-remote nil) - -(defvar eyebrowse-lighter-default - '(:eval (eyebrowse-mode-line-indicator))) -(defvar moody-replace-eyebrowse-lighter - '(:eval (moody-tab (eyebrowse-mode-line-indicator) 1 'up))) -(defun moody-replace-eyebrowse (&optional reverse) - (interactive "P") - (if (assoc 'eyebrowse-mode mode-line-misc-info) - (setcdr (assoc 'eyebrowse-mode mode-line-misc-info) - (list (if reverse - eyebrowse-lighter-default - moody-replace-eyebrowse-lighter))) - (push (list 'eyebrowse-mode moody-replace-eyebrowse-lighter) - (cdr (last mode-line-misc-info))))) - -(use-package moody +(use-package doom-modeline + :hook (after-init . doom-modeline-mode) :config (progn - (setq x-underline-at-descent-line t) - (moody-replace-mode-line-buffer-identification) - (moody-replace-vc-mode) - (with-eval-after-load 'eyebrowse - (moody-replace-eyebrowse nil)))) + (setq doom-modeline-buffer-file-name-style 'relative-from-project + doom-modeline-buffer-icon nil + doom-modeline-buffer-modification-icon nil + doom-modeline-env-version nil) + (let ((foreground (face-attribute 'font-lock-comment-face :foreground))) + (set-face-attribute 'doom-modeline-buffer-modified nil :foreground foreground)))) (when (eq system-type 'darwin) (add-to-list 'default-frame-alist '(ns-transparent-titlebar . t)) @@ -470,7 +447,8 @@ (company-auto-complete-chars '(?\ ?\( ?\) ?.))) :general (:states 'insert "TAB" #'company-indent-or-complete-common)) -;; (use-package all-the-icons) +(use-package all-the-icons + :config (setq all-the-icons-color-icons nil)) (use-package company-lsp :config (progn
M user/settings/emacs.nix → user/settings/emacs.nix
@@ -106,8 +106,8 @@ lsp-treemacs magit markdown-mode minions + doom-modeline monotropic-theme - moody nginx-mode nix-mode nix-update