From 60f90ec63c8d3006fe9ade644a1ccc38d566b8e3 Mon Sep 17 00:00:00 2001 From: Sakooooo <78461130+Sakooooo@users.noreply.github.com> Date: Wed, 7 Feb 2024 13:06:41 +0400 Subject: [PATCH] nvm --- config/emacs/emacs.org | 107 +++++++++++++++++++---------------------- 1 file changed, 49 insertions(+), 58 deletions(-) diff --git a/config/emacs/emacs.org b/config/emacs/emacs.org index d25cb916..ea94dde4 100644 --- a/config/emacs/emacs.org +++ b/config/emacs/emacs.org @@ -1310,74 +1310,65 @@ Aint no way bro ** EXWM RELEASE ME #+begin_src emacs-lisp - (when (eq system-type 'gnu/linux) - (display-battery-mode) - (use-package exwm - :config + (when (eq system-type 'gnu/linux) + (display-battery-mode) + (use-package exwm + :config - ;; background - (call-process-shell-command "feh --bg-fill ~/background.png" nil 0) - ;; workspaces - (setq exwm-workspace-number 5) + ;; background + (call-process-shell-command "feh --bg-fill ~/background.png" nil 0) + ;; workspaces + (setq exwm-workspace-number 5) - (require 'exwm-systemtray) - (exwm-systemtray-enable) + (require 'exwm-systemtray) + (exwm-systemtray-enable) - ;; always use these keys in 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 + ;; always use these keys in 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) + ;; 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-left] . windmove-left) - ([s-right] . windmove-right) - ([s-up] . windmove-up) - ([s-down] . windmove-down) + ;; Move between windows + ([s-left] . windmove-left) + ([s-right] . windmove-right) + ([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-w] . exwm-workspace-switch) + ;; Switch workspace + ([?\s-w] . exwm-workspace-switch) - ;; '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)))) - )) + ;; '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)))) + ) - - (use-package exwm-outer-gaps - :straight (exmw-outer-gaps :type git :host github :repo "lucasgruss/exwm-outer-gaps") - :config - (defun exwm-outer-gaps-redraw () - "exwm-outer gaps sometimes has artifacts in the gap area. Quickly toggling the mode on and off works forces a redraw of the gaps and gets rid of them." - (interactive) - (exwm-outer-gaps-mode)) - :hook (exwm-init - . (lambda () (exwm-outer-gaps-mode)))) + ) #+end_src * Org Mode Configuration Setup ** Babel Languages