12345678910111213141516171819202122232425262728293031323334 |
- (in-package :stumpwm)
- (mapcar (lambda (func)
- (add-hook *start-hook* func))
- (list (lambda () (kdeconnect-indicator))
- (lambda () (dunst))
- (lambda ()
- (picom)
- (run-shell-command "/home/oleg/.local/bin/wallpaper"))
- (lambda () (keynav))
- (lambda () (run-commands "volume-decrease")) ;start pulseaudio
- (lambda () (sb-thread:make-thread
- (lambda ()
- (run-shell-command "/home/oleg/.guix-profile/bin/xclickroot -r /home/oleg/.local/bin/xmenu.sh"))
- :name "xclickroot"))
- ;; (lambda () (sb-thread:make-thread
- ;; (lambda ()
- ;; (run-shell-command
- ;; (join (list (xdotool-behave-screen-edge
- ;; (vnc-command 5901)
- ;; :position "top"))))
- ;; (run-shell-command
- ;; (join (list (xdotool-behave-screen-edge
- ;; (format nil "sh -c ~s"
- ;; "echo '(music-youtube)' | stumpish -e eval")
- ;; :position "bottom"))))
- ;; (run-shell-command
- ;; (join (list (xdotool-behave-screen-edge
- ;; (format nil "sh -c ~s"
- ;; "echo '(editor)' | stumpish -e eval")
- ;; :position "left")))))
- ;; :name "xdotool"))
- ))
|