sway: fix status_command

[~bandali/configs] / .emacs.d / init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index bcb3a3b..7a85083 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -658,7 +658,7 @@ For disabling the behaviour for certain buffers and/or modes."
   :defer 0.2
   :config
   (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")
   :defer 0.2
   :config
   (add-to-list 'recentf-exclude "^/\\(?:ssh\\|su\\|sudo\\)?:")

-  (setq recentf-max-saved-items 40))
+  (setq recentf-max-saved-items 2000))

 
 ;; smart M-x enhancement (needed by counsel for history)
 (use-package smex)
 
 ;; smart M-x enhancement (needed by counsel for history)
 (use-package smex)


@@ -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))


@@ -1877,7 +1890,7 @@ https://csclub.uwaterloo.ca/~abandali/")
            (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org")))
           ((header "subject" "ThankCRM")
            (to "webmasters-comment@gnu.org")
            (eval (set (make-local-variable 'message-user-fqdn) "fencepost.gnu.org")))
           ((header "subject" "ThankCRM")
            (to "webmasters-comment@gnu.org")

-           (body "Added  to 2019supporters.html.\n\nMoving to campaigns.\n")
+           (body "")

            (eval (setq a/message-cite-say-hi nil)))
           ("nnimap\\+uw:.*"
            (address "abandali@uwaterloo.ca")
            (eval (setq a/message-cite-say-hi nil)))
           ("nnimap\\+uw:.*"
            (address "abandali@uwaterloo.ca")