X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/blobdiff_plain/e7125caf1ae01df9ae58693d71ca29ed75a94eda..b29aa20fef0303ebd7b3e5dcaff4a612c7e0cf39:/.emacs.d/init.el?ds=sidebyside

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 48971fd..12cafdb 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -394,6 +394,7 @@ For disabling the behaviour for certain buffers and/or modes."
 
 ;; time and battery in mode-line
 (use-feature time
+  :disabled
   :demand
   :config
   (display-time-mode)
@@ -402,6 +403,7 @@ For disabling the behaviour for certain buffers and/or modes."
   (display-time-format "%a %b %-e, %-l:%M%P"))
 
 (use-feature battery
+  :disabled
   :demand
   :config
   (display-battery-mode)
@@ -561,6 +563,7 @@ For disabling the behaviour for certain buffers and/or modes."
 ;;; Essential packages
 
 (use-package exwm
+  :disabled
   :demand
   :config
   ;; make class name the buffer name, truncating beyond 60 characters
@@ -754,7 +757,20 @@ around if needed."
   :demand
   :after exwm
   :config
-  (exwm-randr-enable))
+  (exwm-randr-enable)
+  :custom
+  (exwm-randr-workspace-monitor-plist '(1 "VGA-1"))
+  :hook
+  (exwm-randr-screen-change . (lambda ()
+                                (let ((xrandr
+                                       (string-join
+                                        '("xrandr"
+                                          "--output VGA-1"
+                                          "--same-as LVDS-1"
+                                          "--auto")
+                                        " ")))
+                                  (start-process-shell-command
+                                   "xrandr" nil xrandr)))))
 
 (use-feature exwm-systemtray
   :demand
@@ -1317,8 +1333,6 @@ This function is intended for use with `ivy-ignore-buffers'."
 
 (eval-when-compile (defvar lean-mode-map))
 (use-package lean-mode
-  :straight (:host github :repo "leanprover/lean-mode"
-                   :fork (:repo "notbandali/lean-mode" :branch "remove-cl"))
   :defer 0.4
   :bind (:map lean-mode-map
               ("S-SPC" . company-complete))
@@ -1545,8 +1559,7 @@ This function is intended for use with `ivy-ignore-buffers'."
   (load-theme 'tangomod t)
   ;; (sml/apply-theme 'automatic)
   (font-lock-remove-keywords
-   'org-mode b/org-mode-font-lock-keywords)
-  (exwm-systemtray--refresh))
+   'org-mode b/org-mode-font-lock-keywords))
 
 (defun b/lights-off ()
   "Go dark."
@@ -1555,8 +1568,7 @@ This function is intended for use with `ivy-ignore-buffers'."
   (load-theme 'doom-one t)
   ;; (sml/apply-theme 'automatic)
   (font-lock-add-keywords
-   'org-mode b/org-mode-font-lock-keywords t)
-  (exwm-systemtray--refresh))
+   'org-mode b/org-mode-font-lock-keywords t))
 
 (bind-keys
  ("C-c t d" . b/lights-off)
@@ -1873,6 +1885,7 @@ This function is intended for use with `ivy-ignore-buffers'."
 ;; (use-package fill-column-indicator)
 
 (use-package emojify
+  :disabled
   :hook (erc-mode . emojify-mode))
 
 (use-feature window
@@ -2427,7 +2440,7 @@ https://csclub.uwaterloo.ca/~abandali")
 (use-feature ebdb-mua
   :demand
   :after ebdb
-  :custom (ebdb-mua-pop-up nil))
+  :custom (ebdb-mua-pop-up t))
 
 ;; (use-package ebdb-message
 ;;   :after ebdb)