ewal_and_moody.el

(defvar-local moody-vc-mode
    '(:eval (moody-ribbon (substring vc-mode 1) nil 'up)))

(put 'moody-vc-mode 'risky-local-variable t)

;;;###autoload
(defun moody-replace-vc-mode (&optional restore)
  "Use moody's variant of `vc-mode' mode-line element.

If optional RESTORE is true, then go back to the default.
If called interactively, then toggle between the variants."
  (interactive (list (moody-format-find 'moody-vc-mode)))
  (moody-replace-element '(vc-mode vc-mode)
                         '(vc-mode moody-vc-mode)
                         restore))


;;Someones example of ewal usage
;;My config with all its warts:
;;
(use-package ewal
  :init (setq ewal-use-built-in-always-p nil
              ewal-use-built-in-on-failure-p t
              ewal-built-in-palette "sexy-material")
  :custom ((ewal-use-built-in-always-p nil)
           (ewal-use-built-in-on-failure-p t)
           (ewal-load-color 'magenta +8)
           (ewal-built-in-palette "sexy-material")
           ;; (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)
           ;;   (set-face-attribute 'mode-line-inactive nil :background "#f9f2d9"))
           ))

;;))
(use-package ewal-spacemacs-themes
  :init (progn
          (setq spacemacs-theme-underline-parens t
                my:rice:font (font-spec
                              :family "Source Code Pro"
                              :weight 'semi-bold
                              :size 30))
          (show-paren-mode +1)
          ;;(global-hl-line-mode)
          (set-frame-font my:rice:font nil t)
          (add-to-list  'default-frame-alist
                        `(font . ,(font-xlfd-name my:rice:font))))

  :config (progn
            (load-theme 'ewal-spacemacs-modern t)
            (enable-theme 'ewal-spacemacs-modern)

            ))

(use-package ewal-evil-cursors
  :after (ewal-spacemacs-themes)
  :config (ewal-evil-cursors-get-colors
           :apply t :spaceline t))



;; NOTE what is spaceline?
;; (use-package spaceline
;;   :after (ewal-evil-cursors winum)
;;   :init (setq powerline-default-separator nil)
;;   :config (spaceline-spacemacs-theme))

(setq moody-mode-line-height #'moody-default-mode-line-height)

(require 'moody)
(moody-replace-mode-line-front-space)
(moody-replace-mode-line-buffer-identification)
(moody-replace-vc-mode)

;; This is another package for modeline, but it just works
;; Enable minions mode (hide all your modes on modeline and see them in special menu)
(use-package minions
  :config (minions-mode 1))