From 9ded15843da3397e17ba2ac2c04e0fe37c2fcf98 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sat, 5 Jun 2021 13:04:49 +0200 Subject: [PATCH] ambrevar/storage: Return list of stowed saves in stow-saves. --- .../common-lisp/source/ambrevar/storage.lisp | 24 ++++++++++--------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/.local/share/common-lisp/source/ambrevar/storage.lisp b/.local/share/common-lisp/source/ambrevar/storage.lisp index cf7fa397..c594ff47 100644 --- a/.local/share/common-lisp/source/ambrevar/storage.lisp +++ b/.local/share/common-lisp/source/ambrevar/storage.lisp @@ -123,17 +123,19 @@ If DESTINATION ends with '.gpg', it gets GPG-encrypted." (str:concat "--load=" (home ".emacs.d" "lisp" "init-notmuch-sync.el")) "-f notmuch-dump-important-tags"))) -(export-always 'stowed-saves) -(defun stowed-saves () - (dolist (entry (fof:list-directory (personal "games" "stowed-saves"))) - (format t "~a~&" (fof:path (fof:basename entry))) - (uiop:run-program - `("stow" - "-t" ,(home) - "-d" ,(fof:path (fof:parent entry)) - ,(fof:path (fof:basename entry))) - :output t - :error-output t))) +(export-always 'stow-saves) +(defun stow-saves () + (mapcar + (lambda (gamesave) + (uiop:run-program + `("stow" + "-t" ,(home) + "-d" ,(fof:path (fof:parent gamesave)) + ,(fof:path (fof:basename gamesave))) + :output t + :error-output t) + (fof:path (fof:basename gamesave))) + (fof:list-directory (personal "games" "stowed-saves")))) (defun git-repository? (dir) (find ".git" (uiop:subdirectories (if (stringp dir)