From b33c0815dd2c6f61f68a7bf1489087d96f8435d4 Mon Sep 17 00:00:00 2001 From: ThanosApollo Date: Sat, 26 Nov 2022 20:31:55 +0200 Subject: Update keyboard functions, change dmenu kbd --- .emacs.d/lisp/init-exwm.el | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) (limited to '.emacs.d/lisp/init-exwm.el') 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-") 'apollo/rofi-switch-window) (exwm-input-set-key (kbd "s-q") 'kill-emacs) (exwm-input-set-key (kbd "") 'apollo/volume-increase) (exwm-input-set-key (kbd "") '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 -- cgit v1.2.3