summaryrefslogtreecommitdiffstats
path: root/.emacs.d/jd/jd-exwm.el
diff options
context:
space:
mode:
authorjdlugosz963 <jdlugosz963@gmail.com>2023-10-19 19:24:35 +0200
committerjdlugosz963 <jdlugosz963@gmail.com>2023-10-19 19:24:35 +0200
commitc6c985d1188830ac90a546cfa27a77c220c9d096 (patch)
treeb2aaaebfbcbd4141eb6ca5cf533a7e0db2cbe962 /.emacs.d/jd/jd-exwm.el
parent2a5d171484392d55f3abfd9e48807edc77c182b0 (diff)
downloaddotfiles-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.el20
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))