awesome.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

(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
           "0kwpbls9h1alxcmvxh5g9qb995fds5b2ngcr44w0ibazkyls2pdc"))
         (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")))))))