From e6fe3864e244e6db74b668d24857c04472b2d475 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?F=C3=A9lix=20Baylac=20Jacqu=C3=A9?= Date: Fri, 20 Jan 2023 12:05:12 +0100 Subject: [PATCH] Release: 0.5 Fix the short form cloning regression. --- my-repo-pins-tests.el | 2 +- my-repo-pins.el | 17 +---------------- 2 files changed, 2 insertions(+), 17 deletions(-) diff --git a/my-repo-pins-tests.el b/my-repo-pins-tests.el index c42ede5..cf3affb 100644 --- a/my-repo-pins-tests.el +++ b/my-repo-pins-tests.el @@ -3,7 +3,7 @@ ;;; Copyright (C) 2022-2023 Félix Baylac Jacqué ;;; Author: Félix Baylac Jacqué ;;; Maintainer: Félix Baylac Jacqué -;;; Version: 0.4 +;;; Version: 0.5 ;;; Packages-Requires: ((ert-async "0.1.2")) ;;; License: diff --git a/my-repo-pins.el b/my-repo-pins.el index 5416aa6..d73dd1a 100644 --- a/my-repo-pins.el +++ b/my-repo-pins.el @@ -3,7 +3,7 @@ ;;; Copyright (C) 2022-2023 Félix Baylac Jacqué ;;; Author: Félix Baylac Jacqué ;;; Maintainer: Félix Baylac Jacqué -;;; Version: 0.4 +;;; Version: 0.5 ;;; Homepage: https://alternativebit.fr/projects/my-repo-pins/ ;;; Package-Requires: ((emacs "26.1")) ;;; License: @@ -594,20 +594,6 @@ yet, returns an empty list." "Open the DIR directory using the ‘my-repo-pins-code-root’ function." (funcall my-repo-pins-open-function dir)) - -(defun my-repo-pins--is-repo-query-cloned-in-code-root (repo-query) - "Check if REPO-QUERY has been already cloned to the code-root. - -Return t if that's the case, nil if it's not." - (let* ((parsed-repo-query (my-repo-pins--parse-repo-identifier repo-query)) - (repo-query-kind (alist-get 'tag parsed-repo-query))) - ;; It's impossible to say whether or not a owner/repo or repo - ;; query has been already cloned without resolving it first. - (if (eq repo-query-kind 'full-url) - (file-directory-p (concat (my-repo-pins--safe-get-code-root) - (my-repo-pins--filepath-from-clone-url (cdr repo-query)))) - nil))) - ;;============= ;; Internal: UI ;;============= @@ -807,7 +793,6 @@ exit-code parameter containing the process exit code." (let* ((code-root (my-repo-pins--safe-get-code-root)) (dest-dir (concat code-root (my-repo-pins--filepath-from-clone-url full-url)))) - ;; here (if (my-repo-pins--is-clone-url-in-code-root full-url code-root) (my-repo-pins--open dest-dir) (my-repo-pins--git-clone-in-dir