(define-module (awesome)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (gnu packages)
  #:use-module (gnu packages wm))

(define-public patched-awesome
  (let ((version (package-version awesome)))
    (package
      (inherit awesome)
      (name "patched-awesome")
      (source
       (origin
         (method url-fetch)
         (uri (string-append
               "https://github.com/awesomeWM/awesome-releases/raw/"
               "master/awesome-" version ".tar.xz"))
         (sha256
          (base32
           "0lqpw401mkkmp9wgbvrmm45bqq2j9357l4irwdqv6l1305pls9kq"))
         (modules '((guix build utils)
                    (srfi srfi-19)))
         (snippet '(begin
                     ;; Remove non-reproducible timestamp and use the date
                     ;; of the source file instead.
                     (substitute* "common/version.c"
                       (("__DATE__ \" \" __TIME__")
                        (date->string
                         (time-utc->date
                          (make-time time-utc 0
                                     (stat:mtime (stat "awesome.c"))))
                         "\"~c\"")))
                     #t))
         (patches (search-patches "awesome-reproducible-png.patch"
                                  "patches/awesome-screen.patch")))))))