~ruther/guix-local

83a54fc239f452860b9d4a2ff3f46232482fcdf9 — Cayetano Santos 9 months ago 1d6ec30
gnu: hashcat-utils: Improve style.

* gnu/packages/password-utils.scm (hashcat-utils)[arguments]: Use
G-Expressions.

Change-Id: I770d386d35cb7f0461e87087cb129aeca9e6783e
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
1 files changed, 28 insertions(+), 28 deletions(-)

M gnu/packages/password-utils.scm
M gnu/packages/password-utils.scm => gnu/packages/password-utils.scm +28 -28
@@ 1733,34 1733,34 @@ password cracking.")
     (list perl))
    (build-system gnu-build-system)
    (arguments
     `(#:tests? #f                      ;no tests
       #:make-flags (list "CC=gcc"
                          ;; Upstream bug(?): "make all" seems to remove the
                          ;; Perl scripts from the source.
                          "native")
       #:phases
       (modify-phases %standard-phases
         (replace 'unpack
           (lambda* (#:key source #:allow-other-keys)
             (invoke "7z" "x" source)
             (chdir (string-append "hashcat-utils-" ,version "/src"))
             #t))
         (delete 'configure)
         (replace 'install
           (lambda* (#:key outputs #:allow-other-keys)
             (let ((out (string-append (assoc-ref outputs "out") "/bin")))
               (mkdir-p out)
               (for-each
                (lambda (file)
                  (copy-file file (string-append out "/"
                                                 (basename file ".bin"))))
                (find-files "." "\\.bin$"))
               (for-each
                (lambda (file)
                  (copy-file file (string-append out "/"
                                                 (basename file ".pl"))))
                (find-files "../bin" "\\.pl$"))
               #t))))))
     (list
      #:tests? #f                      ;no tests
      #:make-flags
      #~(list (string-append "CC=" #$(cc-for-target))
              ;; Upstream bug(?): "make all" seems to remove the
              ;; Perl scripts from the source.
              "native")
      #:phases
      #~(modify-phases %standard-phases
          (replace 'unpack
            (lambda* (#:key source #:allow-other-keys)
              (invoke "7z" "x" source)
              (chdir (string-append #$name "-" #$version "/src"))))
          (delete 'configure)
          (replace 'install
            (lambda _
              (let ((out (string-append #$output "/bin")))
                (mkdir-p out)
                (for-each
                 (lambda (file)
                   (copy-file file (string-append out "/"
                                                  (basename file ".bin"))))
                 (find-files "." "\\.bin$"))
                (for-each
                 (lambda (file)
                   (copy-file file (string-append out "/"
                                                  (basename file ".pl"))))
                 (find-files "../bin" "\\.pl$"))))))))
    (home-page "https://github.com/hashcat/hashcat-utils/")
    (synopsis "Small utilities that are useful in advanced password cracking")
    (description "Hashcat-utils are a set of small utilities that are useful