stumpwm/applications.lisp @ 2e41ef790dc8

(in-package :stumpwm-user)

(defcommand igv () ()
  (run-or-raise "igv" '(:class "org-broad-igv-ui-Main")))

(defcommand spotify () ()
  (run-or-raise "spotify" '(:class "Spotify")))

(defcommand zoom-meeting () ()
  (run-or-raise "echom 'No meeting running.'" '(:class "zoom" :title "Meeting")))

(defcommand files () ()
  (run-shell-command "open $HOME"))

(defcommand browser () ()
  (run-or-raise "firefox" '(:class "firefox")))

(defcommand vlc () ()
  (run-or-raise "vlc" '(:class "vlc")))

(defcommand terminal () ()
  (run-shell-command (format nil "st -f 'Ubuntu Mono:size=~D'" *terminal-font-size*)))

(defcommand terminal-in (path) ((:string "Working directory: "))
  (run-shell-command
    (format nil "st -f 'Ubuntu Mono:size=~D' env -C '~A' fish" ; todo actually escape this
            *terminal-font-size* path)))

(defcommand terminal-apl () ()
  (run-shell-command "st -f 'BQN386 Unicode:style=Regular:size=12'"))

(defcommand gcontrol () ()
  (run-or-raise "gcontrol" '(:class "Gnome-control-center")))

(defcommand papers () ()
  (run-or-raise "jabref" '(:class "org.jabref.gui.MainApplication")))