Update keyboard functions, change dmenu kbd

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