summaryrefslogtreecommitdiff
path: root/.emacs.d
diff options
context:
space:
mode:
Diffstat (limited to '.emacs.d')
-rw-r--r--.emacs.d/lisp/init-exwm.el18
1 files changed, 13 insertions, 5 deletions
diff --git a/.emacs.d/lisp/init-exwm.el b/.emacs.d/lisp/init-exwm.el
index c5884cc..98ec823 100644
--- a/.emacs.d/lisp/init-exwm.el
+++ b/.emacs.d/lisp/init-exwm.el
@@ -36,11 +36,17 @@
(start-process-shell-command
"nitrogen" nil "nitrogen --restore"))
-(defun apollo/change-keys ()
+(defun apollo/emacs-keys ()
"Swap caps with ctrl."
(interactive)
(start-process-shell-command
- "setxkbmap" nil "setxkbmap -option ctrl:swapcaps"))
+ "setxkbmap" nil "setxkbmap us -option ctrl:swapcaps"))
+
+(defun apollo/greek-keyboard ()
+ "Swap caps with ctrl."
+ (interactive)
+ (start-process-shell-command
+ "setxkbmap" nil "setxkbmap gr"))
(defun apollo/exwm-init-hook ()
"Do this upon start."
@@ -52,8 +58,8 @@
;;Launch apps that will run in the background
;; (apollo/run-in-background "blueman-applet")
(apollo/run-in-background "picom")
-;; (apollo/run-background "nm-applet")
- (apollo/change-keys)
+;; (apollo/run-in-background "nm-applet")
+ (apollo/emacs-keys)
(apollo/set-wallpaper)
)
@@ -139,11 +145,13 @@
(exwm-workspace-switch-create ,i))))
(number-sequence 0 9))))
- (exwm-input-set-key (kbd "s-d") 'dmenu)
+ (exwm-input-set-key (kbd "C-c d") 'dmenu)
(exwm-input-set-key (kbd "s-<tab>") 'apollo/rofi-switch-window)
(exwm-input-set-key (kbd "s-q") 'kill-emacs)
(exwm-input-set-key (kbd "<XF86AudioRaiseVolume>") 'apollo/volume-increase)
(exwm-input-set-key (kbd "<XF86AudioLowerVolume>") 'apollo/volume-decrease)
+ (exwm-input-set-key (kbd "s-0") 'apollo/emacs-keys)
+ (exwm-input-set-key (kbd "s-9") 'apollo/greek-keyboard)
(exwm-enable))
;;Transparency