msyds/sydnix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(emacs): syd-project-checkout

Browse Source
This commit is contained in:
Madeleine Sydney
2025-04-11 01:49:52 -06:00
parent a68f69c2e0
commit f13fc85141
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
modules/home/users/crumb/emacs/modules/syd-projects.el
View File

@@ -25,6 +25,17 @@
(add-to-list 'project-switch-commands (add-to-list 'project-switch-commands
(funcall switch-cmd #'syd-project-root-find-file "Browse")))) (funcall switch-cmd #'syd-project-root-find-file "Browse"))))
(defun syd-project-checkout (repo-uri)
(interactive (list (read-string "Repo: ")))
(let* ((repo-name
(when (string-match (rx "/" (group-n 1 (+ (any alphanumeric "-_")))
(? ".git") eol)
repo-uri)
(match-string 1 repo-uri)))
(dest (file-name-concat (expand-file-name "~/git") repo-name)))
(shell-command (format "git clone %s %s" repo-uri dest))
(find-file dest)))
;; Projection provides a Projectile-like project management library atop ;; Projection provides a Projectile-like project management library atop
;; Emacs built-in project.el. It's more lightweight, while still featureful. ;; Emacs built-in project.el. It's more lightweight, while still featureful.
(use-package projection (use-package projection