01/10: gnu: emacs-treemacs: Refactor "install-data" phase.

[guix-commits]

wigust pushed a commit to branch master
in repository guix.

commit 9a1bfd68a95fa91d3c80c2b77e0d69540cd2e8a9
Author: Oleg Pykhalov <address@hidden>
AuthorDate: Thu Jan 9 02:27:06 2020 +0300

    gnu: emacs-treemacs: Refactor "install-data" phase.
    
    * gnu/packages/emacs-xyz.scm (emacs-treemacs)[arguments]: Refactor
    "install-data" phase.
---
 gnu/packages/emacs-xyz.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index ee0aafc..6c9d493 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -17847,13 +17847,13 @@ processes for Emacs")
              #t))
          (add-after 'install 'install-data
            (lambda* (#:key outputs #:allow-other-keys)
-             (let ((images (string-append (assoc-ref outputs "out")
-                                          "/share/" ,name "/images")))
+             (let ((out (assoc-ref outputs "out")))
                (with-directory-excursion "../.." ;treemacs root
-                 (copy-recursively "icons/default" images)
-                 (copy-recursively "src/scripts"
-                                   (string-append (assoc-ref outputs "out")
-                                                  "/share/" ,name "/scripts"))
+                 (copy-recursively "icons/default"
+                  (string-append out "/share/" ,name "/images"))
+                 (copy-recursively
+                  "src/scripts"
+                  (string-append out "/share/" ,name "/scripts"))
                  #t)))))))
     (home-page "https://github.com/Alexander-Miller/treemacs";)
     (synopsis "Emacs tree style file explorer")