dotfiles/dot_stumpwm.d/autostart.lisp

(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"))
              ))