diff options
author | Thanos Apollo <[email protected]> | 2023-02-04 10:43:44 +0200 |
---|---|---|
committer | Thanos Apollo <[email protected]> | 2023-02-04 10:43:44 +0200 |
commit | f3fc871f65f03db7e4daaba49c09b04475d2b81b (patch) | |
tree | f2c61700fb4e901f38d1fb0636fc82fe12036ca8 /.exwm.el | |
parent | 00acf9231cc987531ec7905bc0ae969b16e182b6 (diff) |
exwm: Update battery and xrandr
Diffstat (limited to '.exwm.el')
-rw-r--r-- | .exwm.el | 34 |
1 files changed, 18 insertions, 16 deletions
@@ -1,12 +1,17 @@ -;;My EΧWM configuration -;;This files loads before .emacs/init.el when used with emacs-exwm +;;; My EΧWM configuration +;; This files loads before .emacs/init.el when used with +;; GNU Guix emacs-desktop-environment (defun apollo/exwm-init-hook () "Do this upon start." - (display-battery-mode 0) ;;Change to 1 to display battery + (if (string= (system-name) "fsociety") ;; Check if it's my desktop, otherwise display battery + (display-battery-mode 0) + (display-battery-mode 1)) (setq display-time-day-and-date t) (display-time-mode 1) + + (exwm-firefox-holyK-mode 1) ;;Launch apps that will run in the background ;; (apollo/run-in-background "blueman-applet") @@ -32,7 +37,7 @@ ;; Set the screen resolution (require 'exwm-randr) -(setq exwm-randr-workspace-output-plist '(1 "DP-1" 2 "HDMI-A-0")) +(setq exwm-randr-workspace-monitor-plist '(0 "DP-1" 2 "HDMI-A-0")) (add-hook 'exwm-randr-screen-change-hook (lambda () (start-process-shell-command @@ -76,26 +81,23 @@ ;; Keep in mind that changing this list after EXWM initializes has no effect. (setq exwm-input-global-keys `( - ;; Reset to line-mode (C-c C-k switches to char-mode via exwm-input-release-keyboard) + ([?\s-r] . exwm-reset) - ;; Move between windows - ; ([s-up] . windmove-up) - ; ([s-down] . windmove-down) - ;; Launch applications via shell command - ([?\s-&] . (lambda (command) - (interactive (list (read-shell-command "$ "))) - (start-process-shell-command command nil command))) + ;; ;; Launch applications via shell command + ;; ([?\s-&] . (lambda (command) + ;; (interactive (list (read-shell-command "$ "))) + ;; (start-process-shell-command command nil command))) ;; Switch workspace ([?\s-e] . exwm-workspace-switch) ([?\s-`] . (lambda () (interactive) (exwm-workspace-switch-create 0))) - ([?\s-1] . (lambda () (interactive) (exwm-workspace-switch-create 1))) - ([?\s-2] . (lambda () (interactive) (exwm-workspace-switch-create 2))) - ([?\s-3] . (lambda () (interactive) (exwm-workspace-switch-create 3))) - ([?\s-4] . (lambda () (interactive) (exwm-workspace-switch-create 4))) + ([?\s-2] . (lambda () (interactive) (exwm-workspace-switch-create 1))) + ([?\s-3] . (lambda () (interactive) (exwm-workspace-switch-create 2))) + ([?\s-4] . (lambda () (interactive) (exwm-workspace-switch-create 3))) + ([?\s-5] . (lambda () (interactive) (exwm-workspace-switch-create 4))) ,@(mapcar (lambda (i) `(,(kbd (format "s-%d" i)) . |