anchor.diff:  clone command in doing The Right Thing©, such as using a Git remote
   URL instead of HTTPS.
   
  -See `nyxt/vcs:*vcs-username*' (default username) and `*vcs-username-alist*'.
  -
  -
  -***********************************************************************
  -*Disclaimer*: this feature is meant to grow with Next 1.4 and onwards!
  -***********************************************************************
  -
  -We could clone on GitHub/GitLab, be notified if we have unpushed
  -changes, browse files in a text editor, use hooks...
  -"))
  +See `nyxt/vcs:*vcs-username*' (default username) and
  +`*vcs-username-alist*'."))
   (in-package :nyxt/vcs)
   (eval-when (:compile-toplevel :load-toplevel :execute)
     (trivial-package-local-nicknames:add-package-local-nickname :alex :alexandria)
  
positive.code: (uiop:define-package :nyxt/vcs
    (:use :common-lisp :trivia :nyxt)
    (:documentation "Interact with Git repositories.
  
  New command: vcs-clone (alias git-clone), to clone a VCS repository on
  disk (Git only at the moment).
  
  Change the `*vcs-projects-roots*' list to define where to look for
  existing repositories on disk.
  
negative.code:   (namestring (merge-pathnames (uiop:truename* base) dir)))
  
  (defun choose-clone-url (root-name project-name clone-uri)
    "If we are cloning one repository of ours (ROOT-NAME equals
  `vcs-username'), then use a git remote url instead of https."
    (let ((username (nyxt/vcs::vcs-username (quri:uri-domain clone-uri))))
      (if (and username
               (string= root-name username))
  