anchor.diff:    (! pkill "Xorg")
     (! pkill -f "/user-lisp-evaluator/socket")
     (restart-lisp-shell-server))
  +
  +(defun im-browsers ()
  +  (firefox (list "https://web.telegram.org/")
  +           :pass-stderr nil :pass-stdout nil :wait nil
  +           :no-close t :stumpwm-tags "cat/e-im im telegram no-auto-tags"
  +           :javascript t
  +           :socks-proxy 1080)
  +  (firefox (list "https://web.skype.com/")
  +           :pass-stderr nil :pass-stdout nil :wait nil
  +           :no-close t :stumpwm-tags "cat/e-im im skype no-auto-tags"
  +           :javascript t
  +           :socks-proxy 1080)
  +  )
  +
  +(defun email-browsers ()
  +  (firefox (list "https://email.mccme.ru/")
  +           :pass-stderr nil :pass-stdout nil :wait nil
  +           :no-close t :stumpwm-tags "cat/em-email email mail mccme no-auto-tags"
  +           :data "/home/raskin/fallout/"
  +           :javascript t
  +           :socks-proxy 1080)
  +  (firefox (list "https://github.com/notifications/")
  +           :pass-stderr nil :pass-stdout nil :wait nil
  +           :no-close t :stumpwm-tags "cat/em-email email mail github no-auto-tags"
  +           :javascript t
  +           :socks-proxy 1080)
  +  )
  +
  +(defun matrix-term ()
  +  (& urxvt 
  +     -name "weechat:matrix:dev" -title "Weechat: Matrix: dev.mccme.ru"
  +     -e sh -c "https_proxy= weechat -d ~/.weechat-dev"))
  +
  +(defun vps-term ()
  +  (& sh -c "ssh-window \"$(cat ~/.vps-ssh)\""))
  +
  +(defun communication-windows ()
  +  (vps-term)
  +  (matrix-term)
  +  (im-browsers)
  +  (email-browsers))
  
positive.code:                        (namestring (truename file))))))
             arglist)))
  
  (defun-export
    sudo::root-urxvt
    (&key (display 0)
  
negative.code:   (! queryfs-session-run detach)
    (grab-kvm) (grab-fuse) (sleep 1) (grab-sound)
    (restart-lisp-shell-server))
  
  (defun gvim-plus-zathura (file &key compiler)
    (with-open-file (f file :if-does-not-exist :create))
  