mirror of
http://github.com/JaeUs3792/dotfiles
synced 2025-12-14 08:01:35 +09:00
EXWM : exwm for wsl
This commit is contained in:
126
.emacs.d/desktop.el
Normal file
126
.emacs.d/desktop.el
Normal file
@ -0,0 +1,126 @@
|
|||||||
|
(defun efs/run-in-background (command)
|
||||||
|
(let ((command-parts (split-string command "[ ]+")))
|
||||||
|
(apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
|
||||||
|
|
||||||
|
(defun efs/exwm-init-hook ()
|
||||||
|
;; Make workspace 1 be the one where we land at startup
|
||||||
|
(exwm-workspace-switch-create 1)
|
||||||
|
|
||||||
|
;; Launch apps that will run in the background
|
||||||
|
(efs/run-in-background "dwall -s firewatch")
|
||||||
|
(efs/run-in-background "picom -b --config $HOME/.xmonad/scripts/picom.conf &")
|
||||||
|
)
|
||||||
|
|
||||||
|
(defun efs/exwm-update-class ()
|
||||||
|
(exwm-workspace-rename-buffer exwm-class-name))
|
||||||
|
|
||||||
|
(defun efs/exwm-update-title ()
|
||||||
|
(pcase exwm-class-name
|
||||||
|
("Firefox" (exwm-workspace-rename-buffer (format "Firefox: %s" exwm-title)))))
|
||||||
|
|
||||||
|
;; This function isn't currently used, only serves as an example how to
|
||||||
|
;; position a window
|
||||||
|
(defun efs/position-window ()
|
||||||
|
(let* ((pos (frame-position))
|
||||||
|
(pos-x (car pos))
|
||||||
|
(pos-y (cdr pos)))
|
||||||
|
|
||||||
|
(exwm-floating-move (- pos-x) (- pos-y))))
|
||||||
|
|
||||||
|
;;(defun efs/configure-window-by-class ()
|
||||||
|
;; (interactive)
|
||||||
|
;; (pcase exwm-class-name
|
||||||
|
;; ("vivaldi-stable" (exwm-workspace-move-window 2))
|
||||||
|
;; ("Sol" (exwm-workspace-move-window 3))
|
||||||
|
;; ("mpv" (exwm-floating-toggle-floating)
|
||||||
|
;; (exwm-layout-toggle-mode-line))))
|
||||||
|
|
||||||
|
;; This function should be used only after configuring autorandr!
|
||||||
|
;;(defun efs/update-displays ()
|
||||||
|
;; (efs/run-in-background "autorandr --change --force")
|
||||||
|
;; (efs/set-wallpaper)
|
||||||
|
;; (message "Display config: %s"
|
||||||
|
;; (string-trim (shell-command-to-string "autorandr --current"))))
|
||||||
|
|
||||||
|
(use-package exwm
|
||||||
|
:config
|
||||||
|
;; Set the default number of workspaces
|
||||||
|
(setq exwm-workspace-number 10)
|
||||||
|
|
||||||
|
;; When window "class" updates, use it to set the buffer name
|
||||||
|
(add-hook 'exwm-update-class-hook #'efs/exwm-update-class)
|
||||||
|
|
||||||
|
;; When window title updates, use it to set the buffer name
|
||||||
|
(add-hook 'exwm-update-title-hook #'efs/exwm-update-title)
|
||||||
|
|
||||||
|
;; Configure windows as they're created
|
||||||
|
;;(add-hook 'exwm-manage-finish-hook #'efs/configure-window-by-class)
|
||||||
|
|
||||||
|
;; When EXWM starts up, do some extra confifuration
|
||||||
|
(add-hook 'exwm-init-hook #'efs/exwm-init-hook)
|
||||||
|
|
||||||
|
;; Automatically send the mouse cursor to the selected workspace's display
|
||||||
|
(setq exwm-workspace-warp-cursor t)
|
||||||
|
|
||||||
|
;; Window focus should follow the mouse pointer
|
||||||
|
(setq mouse-autoselect-window t
|
||||||
|
focus-follows-mouse t)
|
||||||
|
|
||||||
|
;; These keys should always pass through to Emacs
|
||||||
|
(setq exwm-input-prefix-keys
|
||||||
|
'(?\C-x
|
||||||
|
?\C-u
|
||||||
|
?\C-h
|
||||||
|
?\M-x
|
||||||
|
?\M-`
|
||||||
|
?\M-&
|
||||||
|
?\M-:
|
||||||
|
?\C-\M-j ;; Buffer list
|
||||||
|
?\C-\ )) ;; Ctrl+Space
|
||||||
|
|
||||||
|
;; Ctrl+Q will enable the next key to be sent directly
|
||||||
|
(define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
|
||||||
|
|
||||||
|
;; Set up global key bindings. These always work, no matter the input state!
|
||||||
|
;; 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-h] . windmove-left)
|
||||||
|
([?\s-l] . windmove-right)
|
||||||
|
([?\s-k] . windmove-up)
|
||||||
|
([?\s-j] . windmove-down)
|
||||||
|
|
||||||
|
;; Launch applications via shell command
|
||||||
|
([?\s-&] . (lambda (command)
|
||||||
|
(interactive (list (read-shell-command "$ ")))
|
||||||
|
(start-process-shell-command command nil command)))
|
||||||
|
|
||||||
|
;; Switch workspace
|
||||||
|
([?\s-w] . exwm-workspace-switch)
|
||||||
|
([?\s-`] . (lambda () (interactive) (exwm-workspace-switch-create 0)))
|
||||||
|
|
||||||
|
;; 's-N': Switch to certain workspace with Super (Win) plus a number key (0 - 9)
|
||||||
|
,@(mapcar (lambda (i)
|
||||||
|
`(,(kbd (format "s-%d" i)) .
|
||||||
|
(lambda ()
|
||||||
|
(interactive)
|
||||||
|
(exwm-workspace-switch-create ,i))))
|
||||||
|
(number-sequence 0 9))))
|
||||||
|
|
||||||
|
(exwm-enable))
|
||||||
|
|
||||||
|
(use-package desktop-environment
|
||||||
|
:after exwm
|
||||||
|
:config (desktop-environment-mode)
|
||||||
|
:custom
|
||||||
|
(desktop-environment-brightness-small-increment "2%+")
|
||||||
|
(desktop-environment-brightness-small-decrement "2%-")
|
||||||
|
(desktop-environment-brightness-normal-increment "5%+")
|
||||||
|
(desktop-environment-brightness-normal-decrement "5%-"))
|
||||||
|
|
||||||
|
;; Make sure the server is started (better to do this in your main Emacs config!)
|
||||||
|
(server-start)
|
||||||
@ -1,7 +1,7 @@
|
|||||||
#+TITLE: Desktop
|
#+TITLE: Desktop
|
||||||
|
|
||||||
* Exwm Desktop
|
* Exwm Desktop
|
||||||
#+begin_src config :tangle ~/.emacs.d/exwm/EXWM.desktop :mkdirp yes
|
#+begin_src config
|
||||||
[Desktop Entry]
|
[Desktop Entry]
|
||||||
Name=EXWM
|
Name=EXWM
|
||||||
Comment=Emacs Window Manager
|
Comment=Emacs Window Manager
|
||||||
@ -12,7 +12,7 @@ X-LightDM-DesktopName=exwm
|
|||||||
DesktopNames=exwm
|
DesktopNames=exwm
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
#+begin_src shell :tangle ~/.emacs.d/exwm/start-exwm.sh :mkdirp yes
|
#+begin_src shell
|
||||||
#!/bin/sh
|
#!/bin/sh
|
||||||
# Set the screen DPI (uncomment this if needed!)
|
# Set the screen DPI (uncomment this if needed!)
|
||||||
# xrdb ~/.emacs.d/exwm/Xresources
|
# xrdb ~/.emacs.d/exwm/Xresources
|
||||||
@ -21,9 +21,11 @@ DesktopNames=exwm
|
|||||||
#picom &
|
#picom &
|
||||||
#picom -b --config /home/jaeus/.config/i3/picom.conf &
|
#picom -b --config /home/jaeus/.config/i3/picom.conf &
|
||||||
# Enable screen locking on suspend
|
# Enable screen locking on suspend
|
||||||
xss-lock -- slock &
|
#xss-lock -- slock &
|
||||||
|
|
||||||
# Fire it up
|
# Fire it up for WSL
|
||||||
|
VETHER_IP=$(/bin/grep nameserver /etc/resolv.conf 2> /dev/null | /bin/tr -s ' ' | /bin/cut -d' ' -f2)
|
||||||
|
export DISPLAY=$VETHER_IP:10.0
|
||||||
exec dbus-launch --exit-with-session emacs -mm --debug-init -l ~/.emacs.d/desktop.el
|
exec dbus-launch --exit-with-session emacs -mm --debug-init -l ~/.emacs.d/desktop.el
|
||||||
|
|
||||||
#+end_src
|
#+end_src
|
||||||
@ -31,253 +33,132 @@ exec dbus-launch --exit-with-session emacs -mm --debug-init -l ~/.emacs.d/deskto
|
|||||||
|
|
||||||
* Configuration
|
* Configuration
|
||||||
#+begin_src emacs-lisp :tangle ~/.emacs.d/desktop.el
|
#+begin_src emacs-lisp :tangle ~/.emacs.d/desktop.el
|
||||||
(defun efs/run-in-background (command)
|
(defun efs/run-in-background (command)
|
||||||
(let ((command-parts (split-string command "[ ]+")))
|
(let ((command-parts (split-string command "[ ]+")))
|
||||||
(apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
|
(apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
|
||||||
|
|
||||||
(defun efs/set-wallpaper ()
|
(defun efs/exwm-init-hook ()
|
||||||
(interactive)
|
;; Make workspace 1 be the one where we land at startup
|
||||||
;; NOTE: You will need to update this to a valid background path!
|
(exwm-workspace-switch-create 1)
|
||||||
(start-process-shell-command
|
|
||||||
"dwall" nil "dwall -s colony"))
|
|
||||||
|
|
||||||
(defun efs/exwm-init-hook ()
|
;; Launch apps that will run in the background
|
||||||
;; Make workspace 1 be the one where we land at startup
|
(efs/run-in-background "dwall -s firewatch")
|
||||||
(exwm-workspace-switch-create 1)
|
(efs/run-in-background "picom -b --config $HOME/.xmonad/scripts/picom.conf &")
|
||||||
|
)
|
||||||
|
|
||||||
;; Open eshell by default
|
(defun efs/exwm-update-class ()
|
||||||
;;(eshell)
|
(exwm-workspace-rename-buffer exwm-class-name))
|
||||||
|
|
||||||
;; NOTE: The next two are disabled because we now use Polybar!
|
(defun efs/exwm-update-title ()
|
||||||
|
(pcase exwm-class-name
|
||||||
|
("Firefox" (exwm-workspace-rename-buffer (format "Firefox: %s" exwm-title)))))
|
||||||
|
|
||||||
;; Show battery status in the mode line
|
;; This function isn't currently used, only serves as an example how to
|
||||||
;;(display-battery-mode 1)
|
;; position a window
|
||||||
|
(defun efs/position-window ()
|
||||||
|
(let* ((pos (frame-position))
|
||||||
|
(pos-x (car pos))
|
||||||
|
(pos-y (cdr pos)))
|
||||||
|
|
||||||
;; Show the time and date in modeline
|
(exwm-floating-move (- pos-x) (- pos-y))))
|
||||||
;;(setq display-time-day-and-date t)
|
|
||||||
;;(display-time-mode 1)
|
|
||||||
;; Also take a look at display-time-format and format-time-string
|
|
||||||
|
|
||||||
;; Start the Polybar panel
|
;;(defun efs/configure-window-by-class ()
|
||||||
(efs/start-panel)
|
;; (interactive)
|
||||||
|
;; (pcase exwm-class-name
|
||||||
|
;; ("vivaldi-stable" (exwm-workspace-move-window 2))
|
||||||
|
;; ("Sol" (exwm-workspace-move-window 3))
|
||||||
|
;; ("mpv" (exwm-floating-toggle-floating)
|
||||||
|
;; (exwm-layout-toggle-mode-line))))
|
||||||
|
|
||||||
;; Launch apps that will run in the background
|
;; This function should be used only after configuring autorandr!
|
||||||
;;(efs/run-in-background "dunst")
|
;;(defun efs/update-displays ()
|
||||||
(efs/run-in-background "nm-applet")
|
;; (efs/run-in-background "autorandr --change --force")
|
||||||
;(efs/run-in-background "xmobar -x 0 /home/jaeus/.config/xmobar/xmobarrc0")
|
;; (efs/set-wallpaper)
|
||||||
;(efs/run-in-background "xmobar -x 1 /home/jaeus/.config/xmobar/xmobarrc1")
|
;; (message "Display config: %s"
|
||||||
(efs/run-in-background "picom -b --config /home/jaeus/.config/i3/picom.conf")
|
;; (string-trim (shell-command-to-string "autorandr --current"))))
|
||||||
(efs/run-in-background "dwall -s firewatch")
|
|
||||||
(efs/run-in-background "volumeicon")
|
|
||||||
(efs/run-in-background "blueberry-tray")
|
|
||||||
(efs/run-in-background "seafile-applet")
|
|
||||||
(efs/run-in-background "green-tunnel -s")
|
|
||||||
(efs/run-in-background "/home/jaeus/.emacs.d/exwm/run_xmodmap.sh")
|
|
||||||
(efs/run-in-background "/home/jaeus/.emacs.d/exwm/run_fcitx.sh"))
|
|
||||||
|
|
||||||
(defun efs/exwm-update-class ()
|
(use-package exwm
|
||||||
(exwm-workspace-rename-buffer exwm-class-name))
|
:config
|
||||||
|
;; Set the default number of workspaces
|
||||||
|
(setq exwm-workspace-number 10)
|
||||||
|
|
||||||
(defun efs/exwm-update-title ()
|
;; When window "class" updates, use it to set the buffer name
|
||||||
(pcase exwm-class-name
|
(add-hook 'exwm-(use-package package-name
|
||||||
("Firefox" (exwm-workspace-rename-buffer (format "Firefox: %s" exwm-title)))))
|
:ensure t)date-class-hook #'efs/exwm-update-class)
|
||||||
|
|
||||||
;; This function isn't currently used, only serves as an example how to
|
;; When window title updates, use it to set the buffer name
|
||||||
;; position a window
|
(add-hook 'exwm-update-title-hook #'efs/exwm-update-title)
|
||||||
(defun efs/position-window ()
|
|
||||||
(let* ((pos (frame-position))
|
|
||||||
(pos-x (car pos))
|
|
||||||
(pos-y (cdr pos)))
|
|
||||||
|
|
||||||
(exwm-floating-move (- pos-x) (- pos-y))))
|
;; Configure windows as they're created
|
||||||
|
;;(add-hook 'exwm-manage-finish-hook #'efs/configure-window-by-class)
|
||||||
|
|
||||||
(defun efs/configure-window-by-class ()
|
;; When EXWM starts up, do some extra confifuration
|
||||||
(interactive)
|
(add-hook 'exwm-init-hook #'efs/exwm-init-hook)
|
||||||
(pcase exwm-class-name
|
|
||||||
("vivaldi-stable" (exwm-workspace-move-window 2))
|
|
||||||
("Sol" (exwm-workspace-move-window 3))
|
|
||||||
("mpv" (exwm-floating-toggle-floating)
|
|
||||||
(exwm-layout-toggle-mode-line))))
|
|
||||||
|
|
||||||
;; This function should be used only after configuring autorandr!
|
;; Automatically send the mouse cursor to the selected workspace's display
|
||||||
(defun efs/update-displays ()
|
(setq exwm-workspace-warp-cursor t)
|
||||||
(efs/run-in-background "autorandr --change --force")
|
|
||||||
(efs/set-wallpaper)
|
|
||||||
(message "Display config: %s"
|
|
||||||
(string-trim (shell-command-to-string "autorandr --current"))))
|
|
||||||
|
|
||||||
(use-package exwm
|
;; Window focus should follow the mouse pointer
|
||||||
:config
|
(setq mouse-autoselect-window t
|
||||||
;; Set the default number of workspaces
|
focus-follows-mouse t)
|
||||||
(setq exwm-workspace-number 10)
|
|
||||||
|
|
||||||
;; When window "class" updates, use it to set the buffer name
|
;; These keys should always pass through to Emacs
|
||||||
(add-hook 'exwm-update-class-hook #'efs/exwm-update-class)
|
(setq exwm-input-prefix-keys
|
||||||
|
'(?\C-x
|
||||||
|
?\C-u
|
||||||
|
?\C-h
|
||||||
|
?\M-x
|
||||||
|
?\M-`
|
||||||
|
?\M-&
|
||||||
|
?\M-:
|
||||||
|
?\C-\M-j ;; Buffer list
|
||||||
|
?\C-\ )) ;; Ctrl+Space
|
||||||
|
|
||||||
;; When window title updates, use it to set the buffer name
|
;; Ctrl+Q will enable the next key to be sent directly
|
||||||
(add-hook 'exwm-update-title-hook #'efs/exwm-update-title)
|
(define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
|
||||||
|
|
||||||
;; Configure windows as they're created
|
;; Set up global key bindings. These always work, no matter the input state!
|
||||||
(add-hook 'exwm-manage-finish-hook #'efs/configure-window-by-class)
|
;; 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)
|
||||||
|
|
||||||
;; When EXWM starts up, do some extra confifuration
|
;; Move between windows
|
||||||
(add-hook 'exwm-init-hook #'efs/exwm-init-hook)
|
([?\s-h] . windmove-left)
|
||||||
|
([?\s-l] . windmove-right)
|
||||||
|
([?\s-k] . windmove-up)
|
||||||
|
([?\s-j] . windmove-down)
|
||||||
|
|
||||||
;; Rebind CapsLock to Ctrl
|
;; Launch applications via shell command
|
||||||
;;(start-process-shell-command "xmodmap" nil "xmodmap /home/jaeus/.emacs.d/exwm/Xmodmap")
|
([?\s-&] . (lambda (command)
|
||||||
|
(interactive (list (read-shell-command "$ ")))
|
||||||
|
(start-process-shell-command command nil command)))
|
||||||
|
|
||||||
;; NOTE: Uncomment the following two options if you want window buffers
|
;; Switch workspace
|
||||||
;; to be available on all workspaces!
|
([?\s-w] . exwm-workspace-switch)
|
||||||
|
([?\s-`] . (lambda () (interactive) (exwm-workspace-switch-create 0)))
|
||||||
|
|
||||||
;; Automatically move EXWM buffer to current workspace when selected
|
;; 's-N': Switch to certain workspace with Super (Win) plus a number key (0 - 9)
|
||||||
;; (setq exwm-layout-show-all-buffers t)
|
,@(mapcar (lambda (i)
|
||||||
|
`(,(kbd (format "s-%d" i)) .
|
||||||
|
(lambda ()
|
||||||
|
(interactive)
|
||||||
|
(exwm-workspace-switch-create ,i))))
|
||||||
|
(number-sequence 0 9))))
|
||||||
|
|
||||||
;; Display all EXWM buffers in every workspace buffer list
|
(exwm-enable))
|
||||||
;; (setq exwm-workspace-show-all-buffers t)
|
|
||||||
|
|
||||||
;; NOTE: Uncomment this option if you want to detach the minibuffer!
|
(use-package desktop-environment
|
||||||
;; Detach the minibuffer (show it with exwm-workspace-toggle-minibuffer)
|
:after exwm
|
||||||
;;(setq exwm-workspace-minibuffer-position 'top)
|
:config (desktop-environment-mode)
|
||||||
|
:custom
|
||||||
|
(desktop-environment-brightness-small-increment "2%+")
|
||||||
|
(desktop-environment-brightness-small-decrement "2%-")
|
||||||
|
(desktop-environment-brightness-normal-increment "5%+")
|
||||||
|
(desktop-environment-brightness-normal-decrement "5%-"))
|
||||||
|
|
||||||
;; Set the screen resolution (update this to be the correct resolution for your screen!)
|
;; Make sure the server is started (better to do this in your main Emacs config!)
|
||||||
(require 'exwm-randr)
|
(server-start)
|
||||||
(exwm-randr-enable)
|
|
||||||
(start-process-shell-command "xrandr" nil "xrandr --output DP-4 --primary --mode 2560x1440 --pos 0x0 --rotate normal --output HDMI-0 --mode 1920x1080 --pos 2560x0 --rotate normal")
|
|
||||||
|
|
||||||
;; This will need to be updated to the name of a display! You can find
|
|
||||||
;; the names of your displays by looking at arandr or the output of xrandr
|
|
||||||
(setq exwm-randr-workspace-monitor-plist '(2 "HDMI-0" 3 "HDMI-0"))
|
|
||||||
|
|
||||||
;; NOTE: Uncomment these lines after setting up autorandr!
|
|
||||||
;; React to display connectivity changes, do initial display update
|
|
||||||
;; (add-hook 'exwm-randr-screen-change-hook #'efs/update-displays)
|
|
||||||
;; (efs/update-displays)
|
|
||||||
|
|
||||||
;; Set the wallpaper after changing the resolution
|
|
||||||
(efs/set-wallpaper)
|
|
||||||
|
|
||||||
;; NOTE: This is disabled because we now use Polybar!
|
|
||||||
;; Load the system tray before exwm-init
|
|
||||||
;(require 'exwm-systemtray)
|
|
||||||
;(setq exwm-systemtray-height 32)
|
|
||||||
;(exwm-systemtray-enable)
|
|
||||||
|
|
||||||
;; Automatically send the mouse cursor to the selected workspace's display
|
|
||||||
(setq exwm-workspace-warp-cursor t)
|
|
||||||
|
|
||||||
;; Window focus should follow the mouse pointer
|
|
||||||
(setq mouse-autoselect-window t
|
|
||||||
focus-follows-mouse t)
|
|
||||||
|
|
||||||
;; These keys should always pass through to Emacs
|
|
||||||
(setq exwm-input-prefix-keys
|
|
||||||
'(?\C-x
|
|
||||||
?\C-u
|
|
||||||
?\C-h
|
|
||||||
?\M-x
|
|
||||||
?\M-`
|
|
||||||
?\M-&
|
|
||||||
?\M-:
|
|
||||||
?\C-\M-j ;; Buffer list
|
|
||||||
?\C-\ )) ;; Ctrl+Space
|
|
||||||
|
|
||||||
;; Ctrl+Q will enable the next key to be sent directly
|
|
||||||
(define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
|
|
||||||
|
|
||||||
;; Set up global key bindings. These always work, no matter the input state!
|
|
||||||
;; 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-h] . windmove-left)
|
|
||||||
([?\s-l] . windmove-right)
|
|
||||||
([?\s-k] . windmove-up)
|
|
||||||
([?\s-j] . windmove-down)
|
|
||||||
|
|
||||||
;; Launch applications via shell command
|
|
||||||
([?\s-&] . (lambda (command)
|
|
||||||
(interactive (list (read-shell-command "$ ")))
|
|
||||||
(start-process-shell-command command nil command)))
|
|
||||||
|
|
||||||
;; Switch workspace
|
|
||||||
([?\s-w] . exwm-workspace-switch)
|
|
||||||
([?\s-`] . (lambda () (interactive) (exwm-workspace-switch-create 0)))
|
|
||||||
|
|
||||||
;; 's-N': Switch to certain workspace with Super (Win) plus a number key (0 - 9)
|
|
||||||
,@(mapcar (lambda (i)
|
|
||||||
`(,(kbd (format "s-%d" i)) .
|
|
||||||
(lambda ()
|
|
||||||
(interactive)
|
|
||||||
(exwm-workspace-switch-create ,i))))
|
|
||||||
(number-sequence 0 9))))
|
|
||||||
|
|
||||||
(exwm-input-set-key (kbd "s-SPC") 'counsel-linux-app)
|
|
||||||
|
|
||||||
(exwm-enable))
|
|
||||||
|
|
||||||
(use-package desktop-environment
|
|
||||||
:after exwm
|
|
||||||
:config (desktop-environment-mode)
|
|
||||||
:custom
|
|
||||||
(desktop-environment-brightness-small-increment "2%+")
|
|
||||||
(desktop-environment-brightness-small-decrement "2%-")
|
|
||||||
(desktop-environment-brightness-normal-increment "5%+")
|
|
||||||
(desktop-environment-brightness-normal-decrement "5%-"))
|
|
||||||
|
|
||||||
;; Make sure the server is started (better to do this in your main Emacs config!)
|
|
||||||
(server-start)
|
|
||||||
|
|
||||||
(defvar efs/polybar-process nil
|
|
||||||
"Holds the process of the running Polybar instance, if any")
|
|
||||||
|
|
||||||
|
|
||||||
(defun dw/polybar-exwm-workspace ()
|
|
||||||
(pcase exwm-workspace-current-index
|
|
||||||
(0 "👿")
|
|
||||||
(1 "💻")
|
|
||||||
(2 "🏻")
|
|
||||||
(3 "🎈")
|
|
||||||
(4 "👀")))
|
|
||||||
|
|
||||||
(defun dw/polybar-exwm-workspace-path ()
|
|
||||||
(let ((workspace-path (frame-parameter nil 'bufler-workspace-path-formatted)))
|
|
||||||
(if workspace-path
|
|
||||||
(substring-no-properties workspace-path)
|
|
||||||
"")))
|
|
||||||
|
|
||||||
(defun efs/kill-panel ()
|
|
||||||
(interactive)
|
|
||||||
(when efs/polybar-process
|
|
||||||
(ignore-errors
|
|
||||||
(kill-process efs/polybar-process)))
|
|
||||||
(setq efs/polybar-process nil))
|
|
||||||
|
|
||||||
(defun efs/start-panel ()
|
|
||||||
(interactive)
|
|
||||||
(efs/kill-panel)
|
|
||||||
(setq efs/polybar-process (start-process-shell-command "polybar" nil "polybar panel")))
|
|
||||||
|
|
||||||
(defun efs/send-polybar-hook (module-name hook-index)
|
|
||||||
(start-process-shell-command "polybar-msg" nil (format "polybar-msg hook %s %s" module-name hook-index)))
|
|
||||||
|
|
||||||
(defun efs/send-polybar-exwm-workspace ()
|
|
||||||
(efs/send-polybar-hook "exwm-workspace" 1))
|
|
||||||
|
|
||||||
;; Update panel indicator when workspace changes
|
|
||||||
(add-hook 'exwm-workspace-switch-hook #'efs/send-polybar-exwm-workspace)
|
|
||||||
|
|
||||||
(defun efs/disable-desktop-notifications ()
|
|
||||||
(interactive)
|
|
||||||
(start-process-shell-command "notify-send" nil "notify-send \"DUNST_COMMAND_PAUSE\""))
|
|
||||||
|
|
||||||
(defun efs/enable-desktop-notifications ()
|
|
||||||
(interactive)
|
|
||||||
(start-process-shell-command "notify-send" nil "notify-send \"DUNST_COMMAND_RESUME\""))
|
|
||||||
|
|
||||||
(defun efs/toggle-desktop-notifications ()
|
|
||||||
(interactive)
|
|
||||||
(start-process-shell-command "notify-send" nil "notify-send \"DUNST_COMMAND_TOGGLE\""))
|
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|||||||
8
.emacs.d/exwm/start-exwm.sh
Normal file → Executable file
8
.emacs.d/exwm/start-exwm.sh
Normal file → Executable file
@ -6,7 +6,9 @@
|
|||||||
#picom &
|
#picom &
|
||||||
#picom -b --config /home/jaeus/.config/i3/picom.conf &
|
#picom -b --config /home/jaeus/.config/i3/picom.conf &
|
||||||
# Enable screen locking on suspend
|
# Enable screen locking on suspend
|
||||||
xss-lock -- slock &
|
#xss-lock -- slock &
|
||||||
|
# Fire it up for WSL
|
||||||
# Fire it up
|
VETHER_IP=$(/bin/grep nameserver /etc/resolv.conf 2> /dev/null | /bin/tr -s ' ' | /bin/cut -d' ' -f2)
|
||||||
|
export DISPLAY=$VETHER_IP:10.0
|
||||||
|
picom -b --config $HOME/.xmonad/scripts/picom.conf &
|
||||||
exec dbus-launch --exit-with-session emacs -mm --debug-init -l ~/.emacs.d/desktop.el
|
exec dbus-launch --exit-with-session emacs -mm --debug-init -l ~/.emacs.d/desktop.el
|
||||||
|
|||||||
@ -11,11 +11,15 @@ set -s escape-time 0
|
|||||||
# scrollback buffer size increase
|
# scrollback buffer size increase
|
||||||
set -g history-limit 100000
|
set -g history-limit 100000
|
||||||
|
|
||||||
|
bind h select-pane -L
|
||||||
|
bind j select-pane -D
|
||||||
|
bind k select-pane -U
|
||||||
|
bind l select-pane -R
|
||||||
|
|
||||||
# List of plugins
|
# List of plugins
|
||||||
set -g @plugin 'tmux-plugins/tpm'
|
set -g @plugin 'tmux-plugins/tpm'
|
||||||
set -g @plugin 'tmux-plugins/tmux-sensible'
|
set -g @plugin 'tmux-plugins/tmux-sensible'
|
||||||
set -g @plugin 'tmux-plugins/tmux-yank'
|
set -g @plugin 'tmux-plugins/tmux-yank'
|
||||||
|
|
||||||
# Other examples:
|
# Other examples:
|
||||||
# set -g @plugin 'github_username/plugin_name'
|
# set -g @plugin 'github_username/plugin_name'
|
||||||
# set -g @plugin 'git@github.com/user/plugin'
|
# set -g @plugin 'git@github.com/user/plugin'
|
||||||
|
|||||||
Reference in New Issue
Block a user