From 3723b427e0d97deb3d14d74344b6ef0b70fe4d24 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 10 May 2024 08:52:19 +0300 Subject: Readd stumpwm? --- .stumpwm.d/keybindings.lisp | 125 +------------------------------------------- 1 file changed, 1 insertion(+), 124 deletions(-) mode change 100644 => 120000 .stumpwm.d/keybindings.lisp (limited to '.stumpwm.d/keybindings.lisp') diff --git a/.stumpwm.d/keybindings.lisp b/.stumpwm.d/keybindings.lisp deleted file mode 100644 index 68e1655..0000000 --- a/.stumpwm.d/keybindings.lisp +++ /dev/null @@ -1,124 +0,0 @@ -(in-package :stumpwm) - -(defcommand colon1 (&optional (initial "")) (:rest) - (let ((cmd (read-one-line (current-screen) ": " :initial-input initial))) - (when cmd - (eval-command cmd t)))) - -;; Flaoting window control -(setf *mouse-focus-policy* :click - *float-window-modifier* :SUPER) - -;; Float -(define-key *top-map* (kbd "s-f") "float-this") -(define-key *top-map* (kbd "s-F") "unfloat-this") - -(define-key *root-map* (kbd "C-r") "exec rofi -show drun -modi drun -show-icons") -(define-key *root-map* (kbd ",") "exec flameshot gui") -(define-key *root-map* (kbd "M-r") "restart-hard") -(define-key *root-map* (kbd "p") "exec emacsclient -e '(thanos/pass-launcher)'") -(define-key *root-map* (kbd "b") "windowlist") -(define-key *root-map* (kbd "d") "delete-window") -(define-key *root-map* (kbd "C-d") "remove") -;; Focus -(define-key *root-map* (kbd "C-f") "move-focus right") -(define-key *root-map* (kbd "C-b") "move-focus left") - -(defvar *thanos-buffers-map* - (let ((m (make-sparse-keymap))) - (define-key m (kbd "0") "delete-window-and-frame") - (define-key m (kbd "3") "hsplit-and-focus") - (define-key m (kbd "b") "windowlist") - m)) - -(define-key *root-map* (kbd "C-x") *thanos-buffers-map*) -(define-key *root-map* (kbd "s") "hsplit-and-focus") -(define-key *root-map* (kbd "w") "windowlist") -(define-key *root-map* (kbd "k") "delete-window-and-frame") -(define-key *root-map* (kbd "S") "vsplit") -(define-key *root-map* (kbd "b") "global-windowlist") - -(define-key *root-map* (kbd "e") "exec emacsclient -c") - -(define-key *root-map* (kbd "C-e") "exec emacs") - -;; Lock screen -(define-key *root-map* (kbd "C-l") "exec slock") - -(define-key *top-map* (kbd "F11") "fullscreen") -;; Audio -(define-key *top-map* (kbd "XF86AudioLowerVolume") "execa mixer sset Master 5%-") -(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec amixer sset Master 5%+") - -;; x220 specific -(define-key *top-map* (kbd "F1") "exec brightnessctl --device='intel_backlight' set 5%-") -(define-key *top-map* (kbd "F2") "exec brightnessctl --device='intel_backlight' set +5%") -(define-key *top-map* (kbd "F3") "exec ~/.scripts/keyboard-light-x220.sh") - -;; Next -(define-key *top-map* (kbd "s-n") "fnext") - -;;Groups - -;; Switch to group -;; Root map -(define-key *root-map* (kbd "1") "gselect 1") -(define-key *root-map* (kbd "2") "gselect 2") -(define-key *root-map* (kbd "3") "gselect 3") -(define-key *root-map* (kbd "4") "gselect 4") -(define-key *root-map* (kbd "5") "gselect 5") -(define-key *root-map* (kbd "0") "gselect") -;; Move winodw -(define-key *root-map* (kbd "M-1") "gmove 1") -(define-key *root-map* (kbd "M-2") "gmove 2") -(define-key *root-map* (kbd "M-3") "gmove 3") -(define-key *root-map* (kbd "M-4") "gmove 4") -(define-key *root-map* (kbd "M-5") "gmove 5") -(define-key *root-map* (kbd "M-0") "gmove") -;; Top map, using super -(define-key *top-map* (kbd "s-1") "gselect 1") -(define-key *top-map* (kbd "s-2") "gselect 2") -(define-key *top-map* (kbd "s-3") "gselect 3") -(define-key *top-map* (kbd "s-4") "gselect 4") -(define-key *top-map* (kbd "s-5") "gselect 5") -(define-key *top-map* (kbd "s-6") "gselect 6") -(define-key *top-map* (kbd "s-7") "gselect 7") -(define-key *top-map* (kbd "s-0") "gselect 5") -(define-key *top-map* (kbd "s-9") "gselect") -;; Move window to group -(define-key *top-map* (kbd "s-!") "gmove 1") -(define-key *top-map* (kbd "s-@") "gmove 2") -(define-key *top-map* (kbd "s-#") "gmove 3") -(define-key *top-map* (kbd "s-$") "gmove 4") -(define-key *top-map* (kbd "s-%") "gmove 5") -(define-key *top-map* (kbd "s-^") "gmove 6") -(define-key *top-map* (kbd "s-)") "gmove 5") -(define-key *top-map* (kbd "s-(") "gmove") - -(define-key *root-map* (kbd "C-w") "gselect") - -;; Focus -(define-key *root-map* (kbd "M-b") "move-window left") -(define-key *root-map* (kbd "M-f") "move-window right") -(define-key *root-map* (kbd "M-n") "move-window down") - -;; Split & Focus -(define-key *root-map* (kbd "s") "hsplit-and-focus") - -;; Groups -(define-key *groups-map* (kbd "g") "gselect") - -;; Nyxt -;; (defvar *nyxt-map* (make-sparse-keymap)) -;; (define-key *root-map* (kbd "s") *nyxt-map*) - -;; (define-key *nyxt-map* (kbd "M-d") "nyxt-duck-newb") -;; (define-key *nyxt-map* (kbd "h") "nyxt-http") -;; (define-key *nyxt-map* (kbd "d") "nyxt-duck") -;; (define-key *nyxt-map* (kbd "g") "nyxt-gh") - - - -;; Productivity -(load-module "productivity") -(define-key *top-map* (kbd "F7") "productivity-mode-toggle") diff --git a/.stumpwm.d/keybindings.lisp b/.stumpwm.d/keybindings.lisp new file mode 120000 index 0000000..26cf1e9 --- /dev/null +++ b/.stumpwm.d/keybindings.lisp @@ -0,0 +1 @@ +/gnu/store/3fkzgz8klcybdjqc30k267aw2lyyn8kz-home-dotfiles--stumpwm-d-keybindings-lisp \ No newline at end of file -- cgit v1.2.3 From 0582004885cd35bfacbff5d4fdfdce8b834c32ce Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 10 May 2024 09:05:49 +0300 Subject: Remove stumpwm --- .stumpwm.d/colors.lisp | 1 - .stumpwm.d/commands.lisp | 1 - .stumpwm.d/init.lisp | 1 - .stumpwm.d/keybindings.lisp | 1 - .stumpwm.d/modeline.lisp | 1 - .stumpwm.d/modules | 1 - .stumpwm.d/theme.lisp | 1 - .stumpwm.d/utils.lisp | 1 - 8 files changed, 8 deletions(-) delete mode 120000 .stumpwm.d/colors.lisp delete mode 120000 .stumpwm.d/commands.lisp delete mode 120000 .stumpwm.d/init.lisp delete mode 120000 .stumpwm.d/keybindings.lisp delete mode 120000 .stumpwm.d/modeline.lisp delete mode 160000 .stumpwm.d/modules delete mode 120000 .stumpwm.d/theme.lisp delete mode 120000 .stumpwm.d/utils.lisp (limited to '.stumpwm.d/keybindings.lisp') diff --git a/.stumpwm.d/colors.lisp b/.stumpwm.d/colors.lisp deleted file mode 120000 index dbd2dbc..0000000 --- a/.stumpwm.d/colors.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/3wp5npi1xy1cmyzx8j3cg24kssq4n8vb-home-dotfiles--stumpwm-d-colors-lisp \ No newline at end of file diff --git a/.stumpwm.d/commands.lisp b/.stumpwm.d/commands.lisp deleted file mode 120000 index dc1a495..0000000 --- a/.stumpwm.d/commands.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/0mzi180himhrnjgc33n49slvs5vwb7rb-home-dotfiles--stumpwm-d-commands-lisp \ No newline at end of file diff --git a/.stumpwm.d/init.lisp b/.stumpwm.d/init.lisp deleted file mode 120000 index c98020a..0000000 --- a/.stumpwm.d/init.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/lj5nq45z9a616607c956cdf73jq0nvq0-home-dotfiles--stumpwm-d-init-lisp \ No newline at end of file diff --git a/.stumpwm.d/keybindings.lisp b/.stumpwm.d/keybindings.lisp deleted file mode 120000 index 26cf1e9..0000000 --- a/.stumpwm.d/keybindings.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/3fkzgz8klcybdjqc30k267aw2lyyn8kz-home-dotfiles--stumpwm-d-keybindings-lisp \ No newline at end of file diff --git a/.stumpwm.d/modeline.lisp b/.stumpwm.d/modeline.lisp deleted file mode 120000 index be38179..0000000 --- a/.stumpwm.d/modeline.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/4garpamz8m6h8dnfy7m4p59zp0s5lyys-home-dotfiles--stumpwm-d-modeline-lisp \ No newline at end of file diff --git a/.stumpwm.d/modules b/.stumpwm.d/modules deleted file mode 160000 index 472bdef..0000000 --- a/.stumpwm.d/modules +++ /dev/null @@ -1 +0,0 @@ -Subproject commit 472bdef0acaac8893c9c5a38d4319da86f10c876 diff --git a/.stumpwm.d/theme.lisp b/.stumpwm.d/theme.lisp deleted file mode 120000 index 7d51a75..0000000 --- a/.stumpwm.d/theme.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/82s7lvf8s6hpmqvxamqxf2yp2wi7xy18-home-dotfiles--stumpwm-d-theme-lisp \ No newline at end of file diff --git a/.stumpwm.d/utils.lisp b/.stumpwm.d/utils.lisp deleted file mode 120000 index 616b237..0000000 --- a/.stumpwm.d/utils.lisp +++ /dev/null @@ -1 +0,0 @@ -/gnu/store/svvyhs2qfbdh620dagm5c30bflk7jn35-home-dotfiles--stumpwm-d-utils-lisp \ No newline at end of file -- cgit v1.2.3