       (if (stringp mode-name) mode-name (car mode-name))
       (if (stringp mode-line-process) mode-line-process)))
     :tight-right t)
-
-  (spaceline-define-segment *buffer-size
-    (powerline-buffer-size)
-    :tight-right t
-    :skip-alternate t)
 
   (defun narf--col-at-pos (pos)
     (save-excursion (goto-char pos) (current-column)))

    (powerline-hud (if active 'spaceline-highlight-face 'region) line-face 1)
    :tight-right t)

  ;; Initialize modeline
  (spaceline-install
   ;; Left side
   '(*macro-recording
     ((*anzu *iedit *evil-substitute *flycheck)
      :fallback *buffer-size)
     (*buffer-path *remote-host)
     *buffer-modified
     *vc
     )
   ;; Right side
   '(*selection-info
     *buffer-encoding-abbrev
     *major-mode
     *env-version
     (global :when active)
     ("%l/%c" *buffer-position)
     *hud
     )))

(provide 'core-ui)
;;; core-ui.el ends here

    (if buffer-file-name
        (let* ((project-path (let (projectile-require-project-root) (projectile-project-root)))
               (buffer-path (f-relative buffer-file-name project-path))
               (max-length (truncate (/ (window-width) 2)))
               (path-len (length buffer-path)))
          (if (> path-len max-length)
              (f-filename buffer-path)
            (concat (f-filename project-path) "/" buffer-path)))
      "%b")
    :face (if active 'mode-line-buffer-file 'mode-line-inactive)
    :skip-alternate t
