spacepaste

Paste details

reply | raw

  1.  
  2. ;;; EXWM
  4. ;;; REVIEW: Athena+Xaw3d confuses xcape when binding Caps-lock to both L_Ctrl
  5. ;;; escape, in which case it will procude <C-escape> in Emacs. In practice, it
  6. ;;; means that `C-` keys will works but `<escape>` will need a fast double tap
  7. ;;; on Caps Lock.
  8. ;;;
  9. ;;; See https://github.com/ch11ng/exwm/issues/285
  10. ;;; and https://gitlab.com/interception/linux/plugins/caps2esc/issues/2.
  12. ;;; Rename buffer to window title.
  13. (defun exwm-rename-buffer-to-title () (exwm-workspace-rename-buffer exwm-title))
  14. (add-hook 'exwm-update-title-hook 'exwm-rename-buffer-to-title)
  16. (add-hook 'exwm-floating-setup-hook 'exwm-layout-hide-mode-line)
  17. (add-hook 'exwm-floating-exit-hook 'exwm-layout-show-mode-line)
  19. ;;; Allow non-floating resizing with mouse.
  20. (setq window-divider-default-bottom-width 2
  21. window-divider-default-right-width 2)
  22. (window-divider-mode)
  24. ;;; send all keypresses to emacs in line mode
  25. (setq exwm-input-line-mode-passthrough t)
  27. ;;; make exwm windows default to char instead of line mode
  28. (add-hook 'exwm-manage-finish-hook
  29. (lambda () (call-interactively #'exwm-input-release-keyboard)
  30. (exwm-layout-hide-mode-line)))
  33. (defun exwm-input-line-mode ()
  34. "Set exwm window to line-mode and show mode line"
  35. (call-interactively #'exwm-input-grab-keyboard)
  36. (exwm-layout-show-mode-line))
  38. (defun exwm-input-char-mode ()
  39. "Set exwm window to char-mode and hide mode line"
  40. (call-interactively #'exwm-input-release-keyboard)
  41. (exwm-layout-hide-mode-line))
  43. (require 'cl)
  44. (defun exwm-input-toggle-mode ()
  45. "Toggle between line- and char-mode"
  46. (with-current-buffer (window-buffer)
  47. (when (eq major-mode 'exwm-mode)
  48. (if (equal (second (second mode-line-process)) "line")
  49. (exwm-input-char-mode)
  50. (exwm-input-line-mode)))))
  52. (exwm-input-set-key (kbd "s-i")
  53. (lambda () (interactive)
  54. (exwm-input-toggle-mode)))
  56. ;;; System tray
  57. (require 'exwm-systemtray)
  58. (exwm-systemtray-enable)
  59. (setq exwm-systemtray-height 16)
  61. ;;; Those cannot be set globally: if Emacs would be run in another WM, the "s-"
  62. ;;; prefix will conflict with the WM bindings.
  63. (exwm-input-set-key (kbd "s-R") #'exwm-reset)
  64. (exwm-input-set-key (kbd "s-x") #'exwm-input-toggle-keyboard)
  65. (exwm-input-set-key (kbd "s-h") #'windmove-left)
  66. (exwm-input-set-key (kbd "s-j") #'windmove-down)
  67. (exwm-input-set-key (kbd "s-k") #'windmove-up)
  68. (exwm-input-set-key (kbd "s-l") #'windmove-right)
  69. (exwm-input-set-key (kbd "s-d") #'delete-window)
  70. (exwm-input-set-key (kbd "s-D") #'kill-this-buffer)
  71. (exwm-input-set-key (kbd "s-b") #'ivy-switch-buffer)
  72. (exwm-input-set-key (kbd "s-f") #'find-file)
  73. (exwm-input-set-key (kbd "s-M") #'exwm-floating-toggle-floating)
  74. (exwm-input-set-key (kbd "s-C") #'ivy-resume)
  75. (exwm-input-set-key (kbd "s-f") #'counsel-find-file)
  76. (exwm-input-set-key (kbd "s-g") #'counsel-ag)
  77. (exwm-input-set-key (kbd "s-c") #'counsel-grep-or-swiper)
  79. (defun exwm-layout-toggle-fullscreen-or-single-window ()
  80. (interactive)
  81. (if (eq major-mode 'exwm-mode)
  82. (call-interactively 'exwm-layout-toggle-fullscreen)
  83. (require 'functions)
  84. (toggle-single-window)))
  85. (exwm-input-set-key (kbd "s-O") #'exwm-layout-toggle-fullscreen-or-single-window)
  87. (defvar single-window--last-configuration nil "Last window configuration before calling `delete-other-windows'.")
  88. (defun toggle-single-window ()
  89. "Un-maximize current window.
  90. If multiple windows are active, save window configuration and
  91. delete other windows. If only one window is active and a window
  92. configuration was previously save, restore that configuration."
  93. (interactive)
  94. (if (= (count-windows) 1)
  95. (when single-window--last-configuration
  96. (set-window-configuration single-window--last-configuration))
  97. (setq single-window--last-configuration (current-window-configuration))
  98. (delete-other-windows)))
  101. ;; 's-SPC': Launch application
  102. (exwm-input-set-key (kbd "s-SPC")
  103. (lambda (command)
  104. (interactive (list (read-shell-command "$ ")))
  105. (start-process-shell-command command nil command)))
  107. ;; split windows
  108. (defun toggle-window-split ()
  109. "Switch between vertical and horizontal split.
  110. It only works for frames with exactly two windows."
  111. (interactive)
  112. (if (= (count-windows) 2)
  113. (let* ((this-win-buffer (window-buffer))
  114. (next-win-buffer (window-buffer (next-window)))
  115. (this-win-edges (window-edges (selected-window)))
  116. (next-win-edges (window-edges (next-window)))
  117. (this-win-2nd (not (and (<= (car this-win-edges)
  118. (car next-win-edges))
  119. (<= (cadr this-win-edges)
  120. (cadr next-win-edges)))))
  121. (splitter
  122. (if (= (car this-win-edges)
  123. (car (window-edges (next-window))))
  124. 'split-window-horizontally
  125. 'split-window-vertically)))
  126. (delete-other-windows)
  127. (let ((first-win (selected-window)))
  128. (funcall splitter)
  129. (if this-win-2nd (other-window 1))
  130. (set-window-buffer (selected-window) this-win-buffer)
  131. (set-window-buffer (next-window) next-win-buffer)
  132. (select-window first-win)
  133. (if this-win-2nd (other-window 1))))))
  135. (exwm-input-set-key (kbd "s-\\") #'toggle-window-split)
  138. (defun switch-to-last-buffer ()
  139. "Switch to last open buffer in current window."
  140. (interactive)
  141. (switch-to-buffer (other-buffer (current-buffer) 1)))
  143. (exwm-input-set-key (kbd "s-<tab>") #'switch-to-last-buffer)
  145. ;;; Emacs mode shortcuts.
  146. (exwm-input-set-key (kbd "s-t") #'org-find-first-agenda)
  147. ;;; TODO: (exwm-input-set-key (kbd "s-<return>") #'eshell-or-new-session)
  148. (exwm-input-set-key (kbd "s-<return>") #'eshell)
  149. (when (fboundp 'magit-status)
  150. (exwm-input-set-key (kbd "s-v") #'magit-status))
  151. (when (fboundp 'emms-all)
  152. (exwm-input-set-key (kbd "s-a") #'emms-smart-browse)
  153. (exwm-input-set-key (kbd "s-A") #'emms))
  154. (when (delq nil (mapcar (lambda (path) (string-match "/mu4e/\\|/mu4e$" path)) load-path))
  155. (exwm-input-set-key (kbd "s-m") #'mu4e-headers))
  158. (defvar exwm-lock-program "slock" "Shell command used to lock the screen.")
  159. (defun exwm-start-lock () (interactive) (start-process-shell-command exwm-lock-program nil exwm-lock-program))
  160. (exwm-input-set-key (kbd "s-z") #'exwm-start-lock)
  162. (defun exwm-start-screenshot () (interactive) (start-process-shell-command "scrot" nil "scrot ~/temp/screen-%F-%T.png"))
  163. (exwm-input-set-key (kbd "<print>") #'exwm-start-screenshot)
  165. ;;; TODO: Check out the 'volume' package.
  166. (defun exwm-volume (&optional up-or-down)
  167. (let ((controllers '(("amixer" . ((control . "set Master") (down . "5%-") (up . "5%+") (toggle . "toggle")))
  168. ("mixer" . ((control . "vol") (down . "-5") (up . "+5") (toggle . "^"))))))
  169. (while (not (executable-find (caar controllers)))
  170. (setq controllers (cdr controllers)))
  171. (when controllers
  172. (start-process-shell-command
  173. "volume control" nil (format "%s %s %s >/dev/null"
  174. (caar controllers)
  175. (alist-get 'control (cdar controllers))
  176. (alist-get up-or-down (cdar controllers) (alist-get 'toggle (cdar controllers) )))))))
  178. (defun exwm-start-volume-down () (interactive) (exwm-volume 'down))
  179. (defun exwm-start-volume-up () (interactive) (exwm-volume 'up))
  180. (defun exwm-start-volume-toggle () (interactive) (exwm-volume))
  181. (exwm-input-set-key (kbd "s-<kp-subtract>") #'exwm-start-volume-down)
  182. (exwm-input-set-key (kbd "s-<kp-add>") #'exwm-start-volume-up)
  183. (exwm-input-set-key (kbd "s-<kp-enter>") #'exwm-start-volume-toggle)
  185. (provide 'init-exwm)
  186. (exwm-enable)
  187.  
Powered by spacepaste. Paste removal.