More mode line and tab bar customizations

7 files changed, 18 insertions, 16 deletions

diff --git a/.config/emacs/modules/bd--browse.el b/.config/emacs/modules/bd--browse.el
index 28db1f6..b4e77aa 100644
--- a/.config/emacs/modules/bd--browse.el
+++ b/.config/emacs/modules/bd--browse.el
@@ -61,6 +61,7 @@ icecat, or eww."
         url-privacy-level '(email os emacs lastloc cookies))
 
 (use-package shr
+  :defer t
   :custom
   (shr-use-fonts t)
   (shr-cookie-policy nil)
diff --git a/.config/emacs/modules/bd--emms.el b/.config/emacs/modules/bd--emms.el
index a378e0c..60eae31 100644
--- a/.config/emacs/modules/bd--emms.el
+++ b/.config/emacs/modules/bd--emms.el
@@ -49,12 +49,10 @@ playback."
          (t
           (emms-track-simple-description track))))))
   :custom
-  ;; set dir and volume keys
   (emms-source-file-default-directory (expand-file-name "~/ik/playlists/"))
-  ;; misc
   (emms-info-report-each-num-tracks 2000)
   (emms-playlist-buffer-name "*Playlist*")
-  (emms-mode-line-format " %s ")
+  (emms-mode-line-format " [%s] ")
   (emms-repeat-playlist t))
 
 
diff --git a/.config/emacs/modules/bd--exwm-windowing.el b/.config/emacs/modules/bd--exwm-windowing.el
index eb9edd7..eb5e39e 100644
--- a/.config/emacs/modules/bd--exwm-windowing.el
+++ b/.config/emacs/modules/bd--exwm-windowing.el
@@ -81,6 +81,8 @@ that buffer."
      ([?\C-k] . [S-end delete])
      ([?\M-w] . [C-c])
      ([?\C-y] . [C-v])
+     ([?\C-s] . [C-g])
+     ([?\C-r] . [C-S-g])
      ([?\M-d] . [C-delete])
      ([?\M-b] . [C-left])
      ([?\M-f] . [C-right])
diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el
index 15b470f..35c486e 100644
--- a/.config/emacs/modules/bd--modeline.el
+++ b/.config/emacs/modules/bd--modeline.el
@@ -19,13 +19,13 @@
         mode-line-modes))
 (global-set-key (kbd "C-c ,") 'minor-mode-blackout-mode)
 
-(defface bd/underline-shadow
+(defface bd/bold-shadow
   `((t :inherit shadow
        :bold t))
-  "Shadow with an underline.")
+  "Shadow with bold.")
 
 (defvar-local bd/buffer-identification-mode-line
-    '(:eval (format "%s" (propertize (buffer-name) 'face 'bd/underline-shadow)))
+    '(:eval (format "%s" (propertize (buffer-name) 'face 'bd/bold-shadow)))
   "Formats the modeline-buffer-name.")
 
 ;;;; pos
@@ -38,13 +38,10 @@
         (cdr mode-line-position))))
 
 ;;;; git
-(defun git-vc-modeline ()
-  (mapconcat 'concat (cdr (split-string vc-mode "[:-]")) "-"))
-
 (defvar-local bd/vc-mode-line
-    '(:eval (when (and vc-mode (not (eq major-mode 'magit-status-mode)))
-              (format " %s "
-                      (propertize (git-vc-modeline) 'face 'shadow))))
+    '(:eval (when vc-mode
+	      (format "-- %s"
+		      (propertize (cadr (split-string vc-mode "[:-]")) 'face 'shadow))))
   "Formats the checked out git repository.")
 
 
@@ -59,7 +56,6 @@
                bd/buffer-identification-mode-line
 	       " -- "
                mode-line-modes
-	       " -- "
 	       bd/vc-mode-line
 	       " -- "
                bd/line-position))
diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el
index 05b0b91..ae72981 100644
--- a/.config/emacs/modules/bd--shells.el
+++ b/.config/emacs/modules/bd--shells.el
@@ -75,5 +75,12 @@ clear the scrollback contents. Outputs banner message."
   (comint-prompt-read-only t))
 
 
+(use-package proced
+  :config
+  (add-hook 'proced-mode-hook
+	    (lambda ()
+	      (proced-toggle-auto-update 1))))
+
+
 (provide 'bd--shells)
 ;;; bd-shells ends here
diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el
index 9553888..8a4a867 100644
--- a/.config/emacs/modules/bd--tabs.el
+++ b/.config/emacs/modules/bd--tabs.el
@@ -7,7 +7,7 @@
   :init
   (display-time)
   :custom
-  (display-time-format "  %m/%d %H:%M")
+  (display-time-format " [%m/%d %H:%M] ")
   (display-time-default-load-average nil))
 
 (use-package battery
diff --git a/.config/emacs/modules/bd--themes.el b/.config/emacs/modules/bd--themes.el
index 514df4b..4ebe1b0 100644
--- a/.config/emacs/modules/bd--themes.el
+++ b/.config/emacs/modules/bd--themes.el
@@ -3,7 +3,6 @@
 ;;; Code:
 
 
-;; variable-pitch fonts
 (defun bd/enable-variable-pitch-exempt ()
   "Text modes to exempt from variable pitch fonts."
   (unless (derived-mode-p 'latex-mode 'mhtml-mode 'nxml-mode 'yaml-mode)
@@ -30,7 +29,6 @@ to.")
                     :height 120)
 
 
-;;;; colors
 (use-package modus-themes
   :load-path (lambda () (expand-file-name "themes/" data-directory))
   :demand t