ambrevar/storage: Return list of stowed saves in stow-saves.
parent
29b3fe926e
commit
9ded15843d
|
@ -123,17 +123,19 @@ If DESTINATION ends with '.gpg', it gets GPG-encrypted."
|
||||||
(str:concat "--load=" (home ".emacs.d" "lisp" "init-notmuch-sync.el"))
|
(str:concat "--load=" (home ".emacs.d" "lisp" "init-notmuch-sync.el"))
|
||||||
"-f notmuch-dump-important-tags")))
|
"-f notmuch-dump-important-tags")))
|
||||||
|
|
||||||
(export-always 'stowed-saves)
|
(export-always 'stow-saves)
|
||||||
(defun stowed-saves ()
|
(defun stow-saves ()
|
||||||
(dolist (entry (fof:list-directory (personal "games" "stowed-saves")))
|
(mapcar
|
||||||
(format t "~a~&" (fof:path (fof:basename entry)))
|
(lambda (gamesave)
|
||||||
(uiop:run-program
|
(uiop:run-program
|
||||||
`("stow"
|
`("stow"
|
||||||
"-t" ,(home)
|
"-t" ,(home)
|
||||||
"-d" ,(fof:path (fof:parent entry))
|
"-d" ,(fof:path (fof:parent gamesave))
|
||||||
,(fof:path (fof:basename entry)))
|
,(fof:path (fof:basename gamesave)))
|
||||||
:output t
|
:output t
|
||||||
:error-output t)))
|
:error-output t)
|
||||||
|
(fof:path (fof:basename gamesave)))
|
||||||
|
(fof:list-directory (personal "games" "stowed-saves"))))
|
||||||
|
|
||||||
(defun git-repository? (dir)
|
(defun git-repository? (dir)
|
||||||
(find ".git" (uiop:subdirectories (if (stringp dir)
|
(find ".git" (uiop:subdirectories (if (stringp dir)
|
||||||
|
|
Loading…
Reference in New Issue