[nongnu] elpa/inf-clojure 7493ed8 166/313: Set inf-clojure-*-cmd :risky and :safe properties

[ELPA Syncer]

branch: elpa/inf-clojure
commit 7493ed879809428eda413730474cf78f9cbdf377
Author: Andrea Richiardi <a.richiardi.work@gmail.com>
Commit: Bozhidar Batsov <bozhidar.batsov@gmail.com>

    Set inf-clojure-*-cmd :risky and :safe properties
    
    It will be considered risky if the value is a string (indicating command 
line
    execution) and safe if a cons cell containing a valid endpoint.
---
 inf-clojure.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/inf-clojure.el b/inf-clojure.el
index e6557a6..2ab2456 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -179,6 +179,16 @@ The following commands are available:
   (add-to-list 'completion-at-point-functions
                #'inf-clojure-completion-at-point))
 
+(defun inf-clojure--endpoint-p (x)
+  "Return non-nil if and only if X is a valid endpoint.
+
+A valid endpoint consists of a host and port
+number (e.g. (\"localhost\" . 5555))."
+  (and
+   (listp x)
+   (stringp (car x))
+   (numberp (cdr x))))
+
 (defcustom inf-clojure-lein-cmd "lein repl"
   "The command used to start a Clojure REPL for Leiningen projects.
 
@@ -188,6 +198,8 @@ number (e.g. (\"localhost\" . 5555)).  That's useful if 
you're
 often connecting to a remote REPL process."
   :type '(choice (string)
                  (cons string integer))
+  :risky #'stringp
+  :safe #'inf-clojure--endpoint-p
   :package-version '(inf-clojure . "2.0.0"))
 
 (define-obsolete-variable-alias 'inf-clojure-program 'inf-clojure-lein-cmd 
"2.0.0")
@@ -201,6 +213,8 @@ number (e.g. (\"localhost\" . 5555)).  That's useful if 
you're
 often connecting to a remote REPL process."
   :type '(choice (string)
                  (cons string integer))
+  :risky #'stringp
+  :safe #'inf-clojure--endpoint-p
   :package-version '(inf-clojure . "2.0.0"))
 
 (defcustom inf-clojure-generic-cmd "lein repl"
@@ -212,6 +226,8 @@ number (e.g. (\"localhost\" . 5555)).  That's useful if 
you're
 often connecting to a remote REPL process."
   :type '(choice (string)
                  (cons string integer))
+  :risky #'(stringp )
+  :safe #'inf-clojure--endpoint-p
   :package-version '(inf-clojure . "2.0.0"))
 
 (defvar-local inf-clojure-repl-type nil