This repository has been archived on 2022-08-21. You can view files and clone it, but cannot push or open issues or pull requests.
dotfiles/home/.config/doom/exwm.el

346 lines
13 KiB
EmacsLisp

;;; exwm.el -*- lexical-binding: t; -*-
(defun follie/run-in-background (command)
(let ((command-parts (split-string command "[ ]+")))
(apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
(defun follie/set-wallpaper ()
"Change the current wallpaper with feh"
(interactive)
(start-process-shell-command
"feh" nil "feh --no-fehbg --bg-fill --randomize ~/Pictures/Wallpapers/*"))
(defun follie/exwm-init-hook ()
;; Make workspace 1 the default at startup
;;(exwm-workspace-switch-create 1)
;; Start pinentry
(pinentry-start)
;; System monitor in minibuffer
(symon-mode)
;; Additional status info on modeline
;;(setq display-time-day-and-date t)
(display-time-mode 1)
(if (not (equal "Battery status not available" (battery)))
(display-battery-mode 1))
;; Startup apps
(follie/run-in-background "pipewire")
(follie/run-in-background "dunst")
(follie/run-in-background "mpDris2")
(start-process-shell-command "xsetroot" nil "xsetroot -cursor_name left_ptr"))
(follie/run-in-background "greenclip daemon")
(defun follie/configure-window-by-class ()
(pcase exwm-class-name
("Komikku" (exwm-floating-toggle-floating)
(exwm-layout-hide-mode-line))))
(defun follie/update-displays ()
(follie/run-in-background "~/.local/bin/X11/monitors.sh")
(follie/set-wallpaper)
(message "Updated displays: %s"
(string-trim (shell-command-to-string "xrandr | grep \" connected\" | awk '{print $1}' | sed 's/^/ /' | tr -d '\\n'"))))
(defun follie/exwm-rename-buffer ()
(exwm-workspace-rename-buffer
(concat "[" exwm-class-name "] "
(if (<= (length exwm-title) 30) exwm-title
(concat (substring exwm-title 0 29))))))
(use-package! exwm
:config
;; Number of workspaces
(setq exwm-workspace-number 6)
;; Extra stuff at startup
(add-hook 'exwm-init-hook #'follie/exwm-init-hook)
;; Update buffer name
(add-hook 'exwm-update-class-hook #'follie/exwm-rename-buffer)
(add-hook 'exwm-update-title-hook #'follie/exwm-rename-buffer)
;; Force tiling by default
;;(setq exwm-manage-force-tiling t)
;; Window rules
(add-hook 'exwm-manage-finish-hook #'follie/configure-window-by-class)
;; Automatically move EXWM buffer to current workspace
(setq exwm-layout-show-all-buffers t)
;; Display all buffers in every workspace buffer list
(setq exwm-workspace-show-all-buffers t)
;; Multi monitor
(require 'exwm-randr)
(setq exwm-randr-workspace-monitor-plist '(1 "HDMI-1"))
(add-hook 'exwm-randr-screen-change-hook #'follie/update-displays)
(exwm-randr-enable)
;; System tray on minibuffer
(require 'exwm-systemtray)
(setq exwm-systemtray-height 20)
(exwm-systemtray-enable)
;; Automatically send cursor to the selected display
(setq exwm-workspace-warp-cursor t)
;; Focus follows cursor
(setq mouse-autoselect-window t
focus-follows-mouse t)
;; Keys that always pass through to Emacs in line-mode
(setq exwm-input-prefix-keys
'(?\C-x
?\C-u
?\C-g ;; keyboard-quit
?\C-h
?\M-x
?\M-`
?\M-&
?\M-:
?\C-\M-j)) ;; Buffer list
;; Ctrl+q to enable next key to be sent directly
(define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
;; Global key bindings
(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-left] . windmove-left)
([s-right] . windmove-right)
([s-up] . windmove-up)
([s-down] . windmove-down)
([?\s-h] . windmove-left)
([?\s-l] . windmove-right)
([?\s-k] . windmove-up)
([?\s-j] . windmove-down)
;; Swap window position
([s-S-left] . windmove-swap-states-left)
([s-S-right] . windmove-swap-states-right)
([s-S-up] . windmove-swap-states-up)
([s-S-down] . windmove-swap-states-down)
([?\s-H] . windmove-swap-states-left)
([?\s-L] . windmove-swap-states-right)
([?\s-K] . windmove-swap-states-up)
([?\s-J] . windmove-swap-states-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))))
;; Additional bindings for convenience
(exwm-input-set-key (kbd "s-s") '+eshell/toggle)
(exwm-input-set-key (kbd "s-v") '+vterm/here)
(exwm-input-set-key (kbd "s-SPC") 'counsel-linux-app)
(exwm-input-set-key (kbd "s-t") 'exwm-floating-toggle-floating)
(exwm-input-set-key (kbd "s-f") 'exwm-layout-toggle-fullscreen)
;; Enable EXWM
(exwm-enable)
;; Work around ido frame
(require 'exwm-config)
(exwm-config-ido)
(ido-mode nil))
;; Edit everything in X windows with Emacs
(use-package! exwm-edit
:after exwm
:config
(exwm-input-set-key (kbd "s-e") #'exwm-edit--compose))
;; xbps but with Emacs
;;(use-package! system-packages
;; :defer t
;; :config
;; (setq system-packages-use-sudo t))
(use-package! symon
:commands symon-mode
:custom
(symon-sparkline-type 'gridded)
:config
(symon-display))
;; playerctl status on modeline
;; (use-package! doom-modeline-now-playing
;; :after doom-modeline
;; :config
;; (doom-modeline-now-playing-timer)
;; ;; Enable almost everywhere
;; (doom-modeline-def-modeline 'main
;; '(bar workspace-name window-number modals matches buffer-info remote-host buffer-position word-count parrot selection-info now-playing)
;; '(objed-state misc-info persp-name battery grip irc mu4e gnus github debug repl lsp minor-modes input-method indent-info buffer-encoding major-mode process vcs checker))
;; (doom-modeline-def-modeline 'special
;; '(bar window-number modals matches buffer-info buffer-position word-count parrot selection-info now-playing)
;; '(objed-state misc-info battery irc-buffers debug minor-modes input-method indent-info buffer-encoding major-mode process))
;; (doom-modeline-def-modeline 'project
;; '(bar window-number buffer-default-directory now-playing)
;; '(misc-info battery irc mu4e gnus github debug minor-modes input-method major-mode process))
;; (doom-modeline-def-modeline 'vcs
;; '(bar window-number modals matches buffer-info buffer-position parrot selection-info now-playing)
;; '(misc-info battery irc mu4e gnus github debug minor-modes buffer-encoding major-mode process))
;; (doom-modeline-def-modeline 'info
;; '(bar window-number buffer-info info-nodes buffer-position parrot selection-info now-playing)
;; '(misc-info buffer-encoding major-mode))
;; (doom-modeline-def-modeline 'media
;; '(bar window-number buffer-size buffer-info now-playing)
;; '(misc-info media-info major-mode process vcs))
;; (doom-modeline-def-modeline 'message
;; '(bar window-number modals matches buffer-info-simple buffer-position word-count parrot selection-info now-playing)
;; '(objed-state misc-info battery debug minor-modes input-method indent-info buffer-encoding major-mode))
;; (doom-modeline-def-modeline 'pdf
;; '(bar window-number matches buffer-info pdf-pages now-playing)
;; '(misc-info major-mode process vcs))
;; (doom-modeline-def-modeline 'org-src
;; '(bar window-number modals matches buffer-info-simple buffer-position word-count parrot selection-info now-playing)
;; '(objed-state misc-info debug lsp minor-modes input-method indent-info buffer-encoding major-mode process checker))
;; (doom-modeline-def-modeline 'timemachine
;; '(bar window-number matches git-timemachine buffer-position word-count parrot selection-info now-playing)
;; '(misc-info minor-modes indent-info buffer-encoding major-mode)))
;; EMMS
(use-package! emms
:defer t
:init
(setq emms-seek-seconds 10)
:config
(emms-playing-time -1)
(emms-mode-line -1)
;; Play music with emms directly
(setq emms-source-file-default-directory "~/Music/"
emms-info-asynchronously 1
emms-playlist-buffer-name "*EMMS-Music*"
emms-source-file-directory-tree-function 'emms-source-file-directory-tree-find
emms-browser-covers 'emms-browser-cache-thumbnail-async)
;; Use mpd backend
(setq emms-player-mpd-server-name "localhost"
emms-player-mpd-server-port "6600"
emms-player-mpd-music-directory "~/Music/")
(add-to-list 'emms-player-list 'emms-player-mpd)
(add-to-list 'emms-info-functions
'emms-info-mpd
'emms-info-exiftool)
(map! :map emms-playlist-mode-map
:localleader
"d" #'emms-insert-directory))
(use-package! ivy-emms
:after emms
:config
(setq ivy-emms-default-action #'ivy-emms-play-next)
(setq ivy-emms-default-multi-action #'ivy-emms-play-next-multi))
;;(use-package! emms-mode-line-cycle
;; :after emms
;; :config
;; (emms-playing-time 1)
;; (emms-mode-line 1)
;; (emms-mode-line-cycle 1))
;; Duck the web with ivy
(use-package! counsel-web
:after counsel
:config
(setq counsel-web-engine 'duckduckgo)
(setq counsel-web-search-action #'browse-url)
(setq counsel-web-search-alternate-action #'browse-url-firefox)
(setq counsel-web-search-dynamic-update nil)
(exwm-input-set-key (kbd "s-d") #'counsel-web-search))
;; Function keys
(use-package! desktop-environment
:after exwm
:diminish desktop-environment-mode
:config
;; Give me back Super+l
(progn
(setf
(alist-get (elt (kbd "s-l") 0) desktop-environment-mode-map nil t)
nil)
(desktop-environment-mode))
(exwm-input-set-key (kbd "s-x") #'desktop-environment-lock-screen)
:custom
;; Brightness
(desktop-environment-brightness-get-command "brightnessctl")
(desktop-environment-brightness-get-regexp "\\([0-9]+%\\)")
(desktop-environment-brightness-set-command "brightnessctl set %s")
(desktop-environment-brightness-small-increment "2%+")
(desktop-environment-brightness-small-decrement "2%-")
(desktop-environment-brightness-normal-increment "5%+")
(desktop-environment-brightness-normal-decrement "5%-")
;; Volume
(desktop-environment-volume-get-command "pulsemixer --get-volume")
(desktop-environment-volume-get-regexp "\\([0-9]+ \\)")
(desktop-environment-volume-toggle-command "pulsemixer --toggle-mute")
(desktop-environment-volume-toggle-microphone-command nil)
(desktop-environment-volume-set-command "pulsemixer --change-volume %s")
(desktop-environment-volume-small-increment "+2")
(desktop-environment-volume-small-decrement "-2")
(desktop-environment-volume-normal-increment "+5")
(desktop-environment-volume-normal-decrement "-5")
;; Screenshot
(desktop-environment-screenshot-directory "~/Screenshots")
(desktop-environment-screenshot-command "scrot -m -q 100 '%Y-%m-%d-%T_$wx$h.png'")
(desktop-environment-screenshot-partial-command
"scrot -s -f -l style=solid,width=2,color=\"red\" -q 100 '%Y-%m-%d-%T_$wx$h.png'")
;; Screenlock
(desktop-environment-screenlock-command "~/.local/bin/X11/i3lock.sh"))
;; Control dunst
(defun close-desktop-notifications ()
"Close all current notifications"
(interactive)
(start-process-shell-command "dunstctl" nil "dunstctl close-all"))
(defun toggle-desktop-notifications ()
"Toggle desktop notification on/off"
(interactive)
(start-process-shell-command "dunstctl" nil "dunstctl set-paused toggle"))
;; Clipboard management
(defun greenclip--select-item (str)
"Copy selected item to clipboard"
(setq str (replace-regexp-in-string "\u00a0" "\n" str))
;; (kill-new str) ;; Add the item to Emacs kill ring as well
(condition-case nil
(cond
((fboundp 'ns-set-pasteboard)
(ns-set-pasteboard str))
((fboundp 'gui-set-selection)
(gui-set-selection 'CLIPBOARD str))
(t
(error "No clipboard support")))
(error
(with-temp-buffer
(insert str)
(if (file-executable-p "xsel")
(call-process-region (point-min) (point-max) "xsel" nil nil nil "--clipboard" "--input")
(call-process-region (point-min) (point-max) "xclip" nil nil nil "-selection clipboard" "--input"))))))
(defun ivy-greenclip ()
"Select an item from X clipboard history"
(interactive)
(let* ((history (split-string (shell-command-to-string "greenclip print") "[\r\n]+")))
(ivy-read "Clipboard item: "
history
:action (lambda (str)
(greenclip--select-item str)))))
(defun greenclip-clear-history ()
"Clear X clipboard history"
(interactive)
(start-process-shell-command "greenclip" nil "pkill greenclip && greenclip clear")
(follie/run-in-background "greenclip daemon"))