x11-wm/stumpwm.stumpwm-contrib
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm-contrib.git synced 2026-09-10 07:26:25 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

bug with run-program

Browse source
This commit is contained in:
Vladimir Dikan 2022-05-07 23:57:07 +02:00
parent 87e1c98f88
commit da2178c43a
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
util/alert-me/alert-me.lisp
View file

@ -19,7 +19,7 @@
"Play the *ALERT-SOUND-FILE* if exists."
(when (probe-file *alert-sound-file*)
(uiop:run-program
"~a ~a" *sound-play-command* (namestring *alert-sound-file*))))
(format nil "~a ~a" *sound-play-command* (namestring *alert-sound-file*)))))
(defun alert-message (alert-hour alert-minute message)

2
util/pomodoro/package.lisp
View file

@ -72,7 +72,7 @@ at the end of each pomodoro.")
"Play the *BELL-SOUND-FILE* if exists."
(when (probe-file *bell-sound-file*)
(uiop:run-program
"~a ~a" *sound-play-command* (namestring *bell-sound-file*))))
(format nil "~a ~a" *sound-play-command* (namestring *bell-sound-file*)))))
(defun notify-break ()