emacs: mode-line-related tweaks
authorAmin Bandali <bandali@gnu.org>
Thu, 6 Jun 2019 04:53:16 +0000 (00:53 -0400)
committerAmin Bandali <bandali@gnu.org>
Thu, 6 Jun 2019 04:53:16 +0000 (00:53 -0400)
.emacs.d/init.el

index b05904f..21eecd6 100644 (file)
@@ -1222,7 +1222,8 @@ For disabling the behaviour for certain buffers and/or modes."
   :commands (sml/apply-theme)
   :demand
   :config
   :commands (sml/apply-theme)
   :demand
   :config
-  (sml/setup))
+  (sml/setup)
+  (smart-mode-line-enable))
 
 (use-package doom-themes)
 
 
 (use-package doom-themes)
 
@@ -1336,10 +1337,22 @@ For disabling the behaviour for certain buffers and/or modes."
          ("<end>"  . mwim-end-of-line-or-code)))
 
 (use-package projectile
          ("<end>"  . mwim-end-of-line-or-code)))
 
 (use-package projectile
+  :defer 0.5
   :bind-keymap ("C-c P" . projectile-command-map)
   :config
   (projectile-mode)
 
   :bind-keymap ("C-c P" . projectile-command-map)
   :config
   (projectile-mode)
 
+  (defun a/projectile-mode-line-fun ()
+  "Report project name and type in the modeline."
+  (let ((project-name (projectile-project-name))
+        (project-type (projectile-project-type)))
+    (format "%s%s"
+            projectile-mode-line-prefix
+            (if project-type
+                (format ":%s" project-type)
+              ""))))
+  (setq projectile-mode-line-function 'a/projectile-mode-line-fun)
+
   (defun my-projectile-invalidate-cache (&rest _args)
     ;; ignore the args to `magit-checkout'
     (projectile-invalidate-cache nil))
   (defun my-projectile-invalidate-cache (&rest _args)
     ;; ignore the args to `magit-checkout'
     (projectile-invalidate-cache nil))