stumpwm: update make-web-search and wallpaper

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