emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/geiser-kawa e440789 058/119: Add optional arg to function


From: Philip Kaludercic
Subject: [nongnu] elpa/geiser-kawa e440789 058/119: Add optional arg to function checking for jar file
Date: Sun, 1 Aug 2021 18:30:38 -0400 (EDT)

branch: elpa/geiser-kawa
commit e440789aa38a619a011ab1e22cd51baab32c63e4
Author: spellcard199 <spellcard199@protonmail.com>
Commit: spellcard199 <spellcard199@protonmail.com>

    Add optional arg to function checking for jar file
---
 elisp/geiser-kawa.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/elisp/geiser-kawa.el b/elisp/geiser-kawa.el
index 15607a9..ff9011c 100644
--- a/elisp/geiser-kawa.el
+++ b/elisp/geiser-kawa.el
@@ -123,11 +123,14 @@
   (remove-hook 'compilation-finish-functions
                #'geiser-kawa--deps-run-kawa-remove-compil-hook))
 
-(defun geiser-kawa--deps-run-kawa-advice()
+(defun geiser-kawa--deps-run-kawa-advice(&optional install-if-absent)
   (if (file-exists-p geiser-kawa-deps-jar-path)
       (geiser-kawa--deps-run-kawa-unadviced)
-    (when (y-or-n-p
-           "geiser-kawa depends on additional java libraries. Do you want to 
download and compile them now?")
+    (when (or install-if-absent
+              (y-or-n-p
+               (concat
+                "geiser-kawa depends on additional java libraries. "
+                "Do you want to download and compile them now?")))
       (geiser-kawa--deps-run-kawa--add-compil-hook)
       (geiser-kawa-deps-mvn-package))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]