new spaceline conf

spaceline-conf.el

(with-eval-after-load 'spaceline
    (setq powerline-default-separator 'bar)
    (set-face-attribute 'mode-line-inactive nil :box nil)
    (spaceline-toggle-minor-modes-off)
    (with-eval-after-load 'window-purpose
      (spaceline-define-segment purpose
        "Purpose of buffer."
        ;; (purpose--modeline-string)
        (when purpose-mode (format "%s%s%s"
                                   (purpose-buffer-purpose (current-buffer))
                                   (if (window-dedicated-p) "#" "")
                                   (if (purpose-window-purpose-dedicated-p) "!" ""))))

      (let* ((main-mode-line (cdr (assq 'main spaceline--mode-lines)))
             (left-mode-line (car main-mode-line))
             (right-mode-line (cdr main-mode-line)))
        (unless (memq 'purpose left-mode-line)
          (setcar main-mode-line
                  (-insert-at (1+ (-elem-index 'major-mode left-mode-line))
                              'purpose
                              left-mode-line))))
      ;; remove purpose-mode from minor-modes list
      (diminish 'purpose-mode))
    (spaceline-compile))