From d9439b707f6388e77e73a4cf081da3bcee187258 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Emin=20Umut=20Ger=C3=A7ek?= Date: Fri, 6 Aug 2021 09:15:06 +0300 Subject: [PATCH] Add default arguments for shell commands --- org-pomodoro.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/org-pomodoro.el b/org-pomodoro.el index 30e6921..741bb9d 100644 --- a/org-pomodoro.el +++ b/org-pomodoro.el @@ -98,6 +98,11 @@ finishes the pomodoro and enters the break period." :group 'org-pomodoro :type 'string) +(defcustom org-pomodoro-default-args nil + "Default arguments appended to all other args." + :group 'org-pomodoro + :type 'string) + ;;; POMODORO START SOUND (defcustom org-pomodoro-start-sound-p nil "Determines whether to play a sound when a pomodoro started. @@ -421,7 +426,7 @@ or :break when starting a break.") "org-pomodoro-audio-player" nil (mapconcat 'identity `(,org-pomodoro-audio-player - ,@(delq nil (list args (shell-quote-argument (expand-file-name sound))))) + ,@(delq nil (list org-pomodoro-default-args args (shell-quote-argument (expand-file-name sound))))) " ")))))) (defun org-pomodoro-maybe-play-sound (type)