diff options
| -rw-r--r-- | stumpwm.org | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/stumpwm.org b/stumpwm.org index 7621899..ea48a46 100644 --- a/stumpwm.org +++ b/stumpwm.org @@ -40,8 +40,9 @@ (when *initializing* (run-shell-command "emacs --daemon & - feh --bg-scale ~/wallpapers/robo-girl.jpg & + feh --bg-scale ~/wallpapers/space-wall1.jpeg & picom & + xss-lock -n /usr/lib/xsecurelock/dimmer -l -- ~/Developer/scripts/lock.sh & setxkbmap us -option ctrl:swapcaps")) (setf *startup-message* "Welcome back, Thanos") @@ -50,15 +51,15 @@ #+begin_src lisp ;; Web jump (works for DuckDuckGo) (defmacro make-web-jump (name prefix) - `(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string name " Ask the duck: "))) + `(defcommand ,(intern name) (search) ((:rest ,(concatenate 'string "Ask the " name ": "))) (nsubstitute #\+ #\Space search) (run-shell-command (concatenate 'string ,prefix search)))) - (make-web-jump "duckduckgo" "mullvad-browser https://duckduckgo.com/?q=") + (make-web-jump "Duck" "firefox https://duckduckgo.com/?q=") - (defcommand mullvad-browser () () + (defcommand firefox () () "Run or raise Firefox." - (sb-thread:make-thread (lambda () (run-or-raise "mullvad-browser" '(:class "mullvad-browser") t nil)))) + (sb-thread:make-thread (lambda () (run-or-raise "firefox" '(:class "firefox") t nil)))) (defcommand delete-window-and-frame () () "Delete the current frame with its window." @@ -205,6 +206,7 @@ (load-module "cpu") (load-module "mpd") (load-module "mem") + ;(load-module "stumptray") (setf *mode-line-timeout* 2) @@ -277,10 +279,10 @@ (setf *group-format* "%t") (setf *window-format* "%n: %30t") + + #+end_src * Keybindings -:PROPERTIES: -:END: #+begin_src lisp (defcommand colon1 (&optional (initial "")) (:rest) (let ((cmd (read-one-line (current-screen) ": " :initial-input initial))) @@ -327,8 +329,8 @@ (define-key *top-map* (kbd "XF86LaunchA") "exec brightnessctl --device='tpacpi::kbd_backlight' set 1-") ;; Keyboard layout - (define-key *top-map* (kbd "F1") "exec setxkbmap us") - (define-key *top-map* (kbd "F2") "exec setxkbmap gr") + (define-key *top-map* (kbd "F1") "exec setxkbmap us -options ctrl:swapcaps") + (define-key *top-map* (kbd "F2") "exec setxkbmap gr -options ctrl:swapcaps") ;;; Groups ;; Switch to group @@ -352,5 +354,5 @@ (define-key *root-map* (kbd "M-f") "move-focus right") (define-key *root-map* (kbd "M-n") "move-focus down") - (define-key *root-map* (kbd "M-s") "duckduckgo") + (define-key *root-map* (kbd "M-s") "Duck") #+end_src |