From 3e3da97ba5a34656f98c4547cdf140951ad37b21 Mon Sep 17 00:00:00 2001 From: Lucien Cartier-Tilet Date: Thu, 29 Jul 2021 19:36:36 +0200 Subject: [PATCH] Better keybinds, reorganizing some other keybinds --- keybindings.lisp | 64 ++++++++++++++++++++++++++++-------------------- 1 file changed, 37 insertions(+), 27 deletions(-) diff --git a/keybindings.lisp b/keybindings.lisp index bac571e..289b05a 100644 --- a/keybindings.lisp +++ b/keybindings.lisp @@ -53,29 +53,11 @@ m)) -(defvar *my-applications-keymap* - (let ((m (make-sparse-keymap))) - (define-key m (kbd "b") (concat "exec " browser)) - (define-key m (kbd "d") "exec lightcord") - (define-key m (kbd "e") (concat "exec " editor)) - (define-key m (kbd "E") "exec emacs") - (define-key m (kbd "g") "exec gimp") - - m)) - -(defvar *my-screenshot-keymap* - (let ((m (make-sparse-keymap))) - (define-key m (kbd "d") "exec scrot -d 3 -e 'mv $f ~/Pictures/Screenshots'") - (define-key m (kbd "s") "exec scrot -e 'mv $f ~/Pictures/Screenshots'") - (define-key m (kbd "S") "exec scrot -s -e 'mv $f ~/Pictures/Screenshots'") - (define-key m (kbd "g") "exec scrot -e 'gimp $f; mv $f ~/Pictures/Screenshots'") - m)) - (defvar *my-rofi-keymap* (let ((m (make-sparse-keymap))) (define-key m (kbd "a") "exec awiki") - (define-key m (kbd "r") "exec rofi --combi-modi drun,window --show combi") - (define-key m (kbd "s") "exec rofi --show ssh") + (define-key m (kbd "r") "exec rofi -combi-modi drun,window -show combi") + (define-key m (kbd "s") "exec rofi -show ssh") (define-key m (kbd "p") "exec rofi-pass -t") (define-key m (kbd "P") "exec rofi-pass") (define-key m (kbd "e") "exec rofi-emoji") @@ -86,19 +68,47 @@ (define-key m (kbd "Y") "exec rofi-ytdl") m)) +(defvar *my-applications-keymap* + (let ((m (make-sparse-keymap))) + (define-key m (kbd "b") (concat "exec " browser)) + (define-key m (kbd "d") "exec lightcord") + (define-key m (kbd "e") (concat "exec " editor)) + (define-key m (kbd "E") "exec emacs") + (define-key m (kbd "g") "exec gimp") + (define-key m (kbd "n") "exec nemo") + (define-key m (kbd "r") '*my-rofi-keymap*) + (define-key m (kbd "s") '*my-screenshot-keymap*) + m)) + +(defvar *my-screenshot-keymap* + (let ((m (make-sparse-keymap))) + (define-key m (kbd "d") "exec scrot -d 3 -e 'mv $f ~/Pictures/Screenshots'") + (define-key m (kbd "s") "exec scrot -e 'mv $f ~/Pictures/Screenshots'") + (define-key m (kbd "S") "exec scrot -s -e 'mv $f ~/Pictures/Screenshots'") + (define-key m (kbd "g") "exec scrot -e 'gimp $f; mv $f ~/Pictures/Screenshots'") + m)) + +(define-key *top-map* (kbd "s-c") "move-focus left") +(define-key *top-map* (kbd "s-t") "move-focus down") +(define-key *top-map* (kbd "s-s") "move-focus up") +(define-key *top-map* (kbd "s-r") "move-focus right") +(define-key *top-map* (kbd "s-C") "move-window left") +(define-key *top-map* (kbd "s-T") "move-window down") +(define-key *top-map* (kbd "s-S") "move-window up") +(define-key *top-map* (kbd "s-R") "move-window right") +(define-key *top-map* (kbd "s-M-c") "exchange-direction left") +(define-key *top-map* (kbd "s-M-t") "exchange-direction down") +(define-key *top-map* (kbd "s-M-s") "exchange-direction up") +(define-key *top-map* (kbd "s-M-r") "exchange-direction right") +(define-key *top-map* (kbd "Print") '*my-screenshot-keymap*) + (define-key *top-map* (kbd "s-RET") "exec kitty") (define-key *top-map* (kbd "s-a") '*my-applications-keymap*) -(define-key *top-map* (kbd "s-r") '*my-rofi-keymap*) -(define-key *top-map* (kbd "s-R") "reload") -(define-key *top-map* (kbd "s-s") '*my-screenshot-keymap*) (define-key *root-map* (kbd "SPC") "exec kitty") (define-key *root-map* (kbd "b") "exec firefox") -(define-key *root-map* (kbd "e") "exec emacsclient -c") -(define-key *root-map* (kbd "C-e") "exec emacs") -(define-key *root-map* (kbd "g") "exec gimp") (define-key *root-map* (kbd "l") "exec plock") -(define-key *root-map* (kbd "n") "exec nemo") +(define-key *root-map* (kbd "r") "reload") (define-key *root-map* (kbd "w") '*my-frames-management-keymap*) (define-interactive-keymap (iresize tile-group) (:on-enter #'setup-iresize