From 895ae18c340e07e83c0f3a6390ef36a1d229ef5f Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 22 Sep 2023 21:40:41 +0300 Subject: [stumpwm] Add productivity keybinding --- .stumpwm.d/keybindings.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to '.stumpwm.d') diff --git a/.stumpwm.d/keybindings.lisp b/.stumpwm.d/keybindings.lisp index 3bf5a2a..a1224ee 100644 --- a/.stumpwm.d/keybindings.lisp +++ b/.stumpwm.d/keybindings.lisp @@ -1,3 +1,4 @@ +(in-package :stumpwm) (defcommand colon1 (&optional (initial "")) (:rest) (let ((cmd (read-one-line (current-screen) ": " :initial-input initial))) @@ -76,3 +77,6 @@ (define-key *root-map* (kbd "M-n") "move-window down") (define-key *root-map* (kbd "s") "Duck") + +(load-module "productivity") +(define-key *top-map* (kbd "F7") "productivity-mode-toggle") -- cgit v1.2.3