stumpwm/applications.lisp @ 46fd11ae3808

Merge
author Steve Losh <steve@stevelosh.com>
date Thu, 13 Jun 2024 12:30:10 -0400
parents 4e1d6d6873fe
children 6c4c335faf47
(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 papers () ()
  (run-or-raise "jabref" '(:class "org.jabref.gui.MainApplication")))