(define-module (gnu packages qdirstat)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages qt)
  #:use-module (guix build-system gnu)
  #:use-module (guix git-download)
  #:use-module (guix packages)
  #:use-module ((guix licenses) #:prefix license:))


(define-public qdirstat
  (package
    (name "qdirstat")
    (version "1.6.1")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/shundhammer/qdirstat.git")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0q77a347qv1aka6sni6l03zh5jzyy9s74aygg554r73g01kxczpb"))))

    (outputs `("out"))			; "cache-writer" could be made an output
    (inputs
     `(("qtbase" ,qtbase)		; Could add ("perl" ,perl) as an input
       ("zlib" ,zlib)))			; for the cache-writer see debbug#41040
    (native-inputs
     `(("qttools" ,qttools)))
    (build-system gnu-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (replace 'configure
           (lambda* (#:key outputs #:allow-other-keys)
             (invoke "qmake"
                     (string-append "PREFIX="
                                    (assoc-ref outputs "out"))
                     (string-append "INSTALL_PREFIX="
                                    (assoc-ref outputs "out"))))))))

    (home-page "https://github.com/shundhammer/qdirstat")
    (synopsis "Graphical disk space inspection utility")
    (description
     "QDirStat is a graphical application for analysing disk usage.  It shows
where your disk space has gone and helps you clean it up.  Shaded boxes
represent files and files are grouped by directory structure.")
    (license (list license:gpl2+
                   license:non-copyleft)))) ; scripts/qdirstat-cache-writer