             projectile-root-top-down ; First look for projects in top-down order
             projectile-root-bottom-up)) ; Then in bottom-up order
 
-    ;; Customize the Projectile mode-line lighter
-    (setq projectile-mode-line "​P")
-    ;; (setq projectile-mode-line '(:eval
-    ;;                              (if (file-remote-p default-directory)
-    ;;                                  "P"
-    ;;                                (format "‹%s›" (projectile-project-name)))))
+    ;; Disable dynamic mode-line lighter.
+    (setq projectile-mode-line-lighter "​P")
+    (setq projectile-mode-line-fn (lambda () projectile-mode-line-lighter))
 
     (defun modi/projectile-project-name (project-root)
       "Return project name after some modification if needed.

;; Time-stamp: <2018-07-09 17:54:19 kmodi>

;; Projectile
;; https://github.com/bbatsov/projectile

  :bind (:map modi-mode-map
         ("C-c p" . hydra-projectile/body)
         ("C-c f" . hydra-projectile/body)
         ("s-f" . hydra-projectile/body))
  :commands (projectile-project-root)
  :config
  (progn
    (when (not (bound-and-true-p disable-pkg-ivy))
