autostart.lisp 1.6 KB

12345678910111213141516171819202122232425262728293031323334
  1. (in-package :stumpwm)
  2. (mapcar (lambda (func)
  3. (add-hook *start-hook* func))
  4. (list (lambda () (kdeconnect-indicator))
  5. (lambda () (dunst))
  6. (lambda ()
  7. (picom)
  8. (run-shell-command "/home/oleg/.local/bin/wallpaper"))
  9. (lambda () (keynav))
  10. (lambda () (run-commands "volume-decrease")) ;start pulseaudio
  11. (lambda () (sb-thread:make-thread
  12. (lambda ()
  13. (run-shell-command "/home/oleg/.guix-profile/bin/xclickroot -r /home/oleg/.local/bin/xmenu.sh"))
  14. :name "xclickroot"))
  15. ;; (lambda () (sb-thread:make-thread
  16. ;; (lambda ()
  17. ;; (run-shell-command
  18. ;; (join (list (xdotool-behave-screen-edge
  19. ;; (vnc-command 5901)
  20. ;; :position "top"))))
  21. ;; (run-shell-command
  22. ;; (join (list (xdotool-behave-screen-edge
  23. ;; (format nil "sh -c ~s"
  24. ;; "echo '(music-youtube)' | stumpish -e eval")
  25. ;; :position "bottom"))))
  26. ;; (run-shell-command
  27. ;; (join (list (xdotool-behave-screen-edge
  28. ;; (format nil "sh -c ~s"
  29. ;; "echo '(editor)' | stumpish -e eval")
  30. ;; :position "left")))))
  31. ;; :name "xdotool"))
  32. ))