diff options
author | jdlugosz963 <jdlugosz963@gmail.com> | 2023-10-19 19:24:35 +0200 |
---|---|---|
committer | jdlugosz963 <jdlugosz963@gmail.com> | 2023-10-19 19:24:35 +0200 |
commit | c6c985d1188830ac90a546cfa27a77c220c9d096 (patch) | |
tree | b2aaaebfbcbd4141eb6ca5cf533a7e0db2cbe962 /.emacs.d/jd/jd-exwm.el | |
parent | 2a5d171484392d55f3abfd9e48807edc77c182b0 (diff) | |
download | dotfiles-c6c985d1188830ac90a546cfa27a77c220c9d096.tar.gz dotfiles-c6c985d1188830ac90a546cfa27a77c220c9d096.zip |
Add stumpwm and change disk config for berserker.
Diffstat (limited to '.emacs.d/jd/jd-exwm.el')
-rwxr-xr-x | .emacs.d/jd/jd-exwm.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/.emacs.d/jd/jd-exwm.el b/.emacs.d/jd/jd-exwm.el index ed1c673..f083c44 100755 --- a/.emacs.d/jd/jd-exwm.el +++ b/.emacs.d/jd/jd-exwm.el | |||
@@ -4,6 +4,8 @@ | |||
4 | ;;; Code: | 4 | ;;; Code: |
5 | 5 | ||
6 | 6 | ||
7 | (jd/use-package perspective "emacs-perspective") | ||
8 | |||
7 | (jd/use-package exwm "emacs-exwm" | 9 | (jd/use-package exwm "emacs-exwm" |
8 | :config | 10 | :config |
9 | (defun jd/exwm-update-class () | 11 | (defun jd/exwm-update-class () |
@@ -73,6 +75,7 @@ | |||
73 | ?\M-` | 75 | ?\M-` |
74 | ?\M-& | 76 | ?\M-& |
75 | ?\M-! | 77 | ?\M-! |
78 | ?\C-g | ||
76 | ?\M-: | 79 | ?\M-: |
77 | ?\C-\M-j | 80 | ?\C-\M-j |
78 | ?\C-\ )) | 81 | ?\C-\ )) |
@@ -114,27 +117,24 @@ | |||
114 | (defun jd/dunst-show-history () | 117 | (defun jd/dunst-show-history () |
115 | (interactive) | 118 | (interactive) |
116 | (start-process-shell-command "dunstctl" nil "dunstctl history-pop")) | 119 | (start-process-shell-command "dunstctl" nil "dunstctl history-pop")) |
120 | (global-set-key (kbd "C-c N h") #'jd/dunst-show-history) | ||
117 | 121 | ||
118 | (defun jd/dunst-close () | 122 | (defun jd/dunst-close () |
119 | (interactive) | 123 | (interactive) |
120 | (start-process-shell-command "dunstctl" nil "dunstctl close")) | 124 | (start-process-shell-command "dunstctl" nil "dunstctl close")) |
125 | (global-set-key (kbd "C-c N c") #'jd/dunst-close) | ||
121 | 126 | ||
122 | (defun jd/dunst-close-all () | 127 | (defun jd/dunst-close-all () |
123 | (interactive) | 128 | (interactive) |
124 | (start-process-shell-command "dunstctl" nil "dunstctl close-all")) | 129 | (start-process-shell-command "dunstctl" nil "dunstctl close-all")) |
125 | 130 | (global-set-key (kbd "C-c N a") #'jd/dunst-close-all) | |
126 | (jd/leader-key-def | ||
127 | "d" '(nil :which-key "dunst") | ||
128 | "dh" '(jd/dunst-show-history :which-key "show history") | ||
129 | "dc" '(jd/dunst-close :which-key "close") | ||
130 | "da" '(jd/dunst-close-all :which-key "close all")) | ||
131 | 131 | ||
132 | (desktop-environment-mode)) | 132 | (desktop-environment-mode)) |
133 | 133 | ||
134 | (set-frame-parameter (selected-frame) 'alpha '(90 . 90)) | 134 | ;; (set-frame-parameter (selected-frame) 'alpha '(90 . 90)) |
135 | (add-to-list 'default-frame-alist `(alpha . (90 . 90))) | 135 | ;; (add-to-list 'default-frame-alist `(alpha . (90 . 90))) |
136 | (set-frame-parameter (selected-frame) 'fullscreen 'maximized) | 136 | ;; (set-frame-parameter (selected-frame) 'fullscreen 'maximized) |
137 | (add-to-list 'default-frame-alist '(fullscreen . maximized)) | 137 | ;; (add-to-list 'default-frame-alist '(fullscreen . maximized)) |
138 | 138 | ||
139 | (defun jd-exwm/get-color (ATTRIBUTE) | 139 | (defun jd-exwm/get-color (ATTRIBUTE) |
140 | (face-attribute 'default ATTRIBUTE)) | 140 | (face-attribute 'default ATTRIBUTE)) |