stumpwm/applications.lisp @ 4f28fbfd7d63 default tip

(in-package :stumpwm-user)

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

(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 zoom () ()
  (when-let-window (w "^Zoom Meeting.*")
    (focus-window w t)))

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