[elpa] externals/srht 23bb1bae06 5/7: srht-git: srht-git--read-url: New function.

[ELPA Syncer]

branch: externals/srht
commit 23bb1bae06cf927c0dba6b205544ee357fa3c680
Author: Aleksandr Vityazev <avityazev@posteo.org>
Commit: Aleksandr Vityazev <avityazev@posteo.org>

    srht-git: srht-git--read-url: New function.
    
    * lisp/srht-git (srht-git--read-url): Reader for urls.
    (srht-git-repo-create): Set reader for "clone URL" infix.
---
 lisp/srht-git.el | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/lisp/srht-git.el b/lisp/srht-git.el
index 9fdf297ab4..ca9920c3d9 100644
--- a/lisp/srht-git.el
+++ b/lisp/srht-git.el
@@ -137,6 +137,22 @@ INITIAL-INPUT, HISTORY (see `read-from-minibuffer')."
         (message "Please enter non-empty!")
         (sit-for 1)))))
 
+(defun srht-git--read-url (prompt initial-input history)
+  "Read URL string from the minibuffer, prompting with string PROMPT.
+INITIAL-INPUT, HISTORY (see `read-from-minibuffer')."
+  (save-match-data
+    (cl-block nil
+      (while t
+        (let ((str (read-from-minibuffer prompt initial-input nil nil history))
+              (regex (rx (group "http"
+                                (zero-or-one "s")
+                                "://")
+                         (group (* alphanumeric)))))
+          (when (eq 0 (string-match regex str))
+            (cl-return str)))
+        (message "Please enter url with https://";)
+        (sit-for 1)))))
+
 ;;;###autoload (autoload 'srht-git-repo-create "srht-git" nil t)
 (transient-define-prefix srht-git-repo-create ()
   "Prefix that just shows off many typical infix types."
@@ -163,8 +179,8 @@ INITIAL-INPUT, HISTORY (see `read-from-minibuffer')."
    ("u" "clone URL" "cloneUrl="
     :always-read t
     :prompt "Repository will be cloned from the given URL: "
-    ;; TODO: add custom reader
-    )]
+    :reader srht-git--read-url)
+   ]
   ["New repository"
    ("c" "create repository" srht-git-repo-create0)])