X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/d6c37a13aed6c5039e795f14081a6ff2f4cb1959..92ad96750352a948cc047d56c8c3c4b130afbbd3:/.emacs.d/init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index f2c5bff..e6059b3 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -17,11 +17,10 @@
 
 ;;; Commentary:
 
-;; Emacs configuration of Amin Bandali, computer scientist, free
-;; software activist, GNU maintainer & webmaster.  Packages are
-;; installed from GNU Guix, for purely functional and fully
-;; reproducible package management.  Before switching to GNU Guix,
-;; I used straight.el for package management, and before that, Borg.
+;; GNU Emacs configuration of Amin Bandali (mab), computer scientist,
+;; Free Software activist, and GNU maintainer & webmaster.  Packages
+;; are installed through GNU Guix, for a fully reproducible setup.
+;; Before switching to Guix, I used straight.el, and before that Borg.
 
 ;; Over the years, I've taken inspiration from configurations of many
 ;; great people.  Some that I can remember off the top of my head are:
@@ -67,7 +66,16 @@
   (setq b/emacs-initialized     t
         gc-cons-threshold       b/gc-cons-threshold
         gc-cons-percentage      b/gc-cons-percentage
-        file-name-handler-alist b/file-name-handler-alist))
+        file-name-handler-alist b/file-name-handler-alist)
+  (with-eval-after-load 'exwm-workspace
+    (setq-default
+     mode-line-format
+     (append
+      mode-line-format
+      '((:eval
+         (format
+          "[%s]" (number-to-string
+                  exwm-workspace-current-index))))))))
 (add-hook 'after-init-hook #'b/post-init)
 
 ;; increase number of lines kept in *Messages* log
@@ -1446,7 +1454,7 @@ This function is intended for use with `ivy-ignore-buffers'."
   :config
   (unbind-key "C-j" emmet-mode-keymap)
   (setq emmet-move-cursor-between-quotes t)
-  :hook (css-mode html-mode mhtml-mode sgml-mode))
+  :hook (css-mode html-mode sgml-mode))
 
 (comment
   (use-package meghanada