nvm
This commit is contained in:
parent
a9813b4a1d
commit
60f90ec63c
1 changed files with 49 additions and 58 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue