| 1 | |
| 2 | |
| 3 | |
| 4 | |
| 5 | |
| 6 | |
| 7 | |
| 8 | |
| 9 | |
| 10 | |
| 11 | |
| 12 | |
| 13 | |
| 14 | |
| 15 | |
| 16 | |
| 17 | |
| 18 | |
| 19 |
|
| 20 | (define-module (gnu packages gxmessage)
|
| 21 | #:use-module (guix licenses)
|
| 22 | #:use-module (guix packages)
|
| 23 | #:use-module (guix download)
|
| 24 | #:use-module (guix build-system gnu)
|
| 25 | #:use-module (gnu packages glib)
|
| 26 | #:use-module (gnu packages pkg-config)
|
| 27 | #:use-module (gnu packages gtk)
|
| 28 | #:use-module (gnu packages))
|
| 29 |
|
| 30 | (define-public gxmessage
|
| 31 | (package
|
| 32 | (name "gxmessage")
|
| 33 | (version "3.4.3")
|
| 34 | (source (origin
|
| 35 | (method url-fetch)
|
| 36 | (uri (string-append "mirror://gnu/gxmessage/gxmessage-"
|
| 37 | version ".tar.gz"))
|
| 38 | (sha256
|
| 39 | (base32 "01ggvvp0nyn8xczh93icifnji468wsjgqzd1f1bixwsqziaicknv"))))
|
| 40 | (build-system gnu-build-system)
|
| 41 | (arguments
|
| 42 | '(#:phases
|
| 43 | (modify-phases %standard-phases
|
| 44 | (add-before 'install 'skip-gtk-update-icon-cache
|
| 45 | |
| 46 | (lambda _
|
| 47 | (substitute* "Makefile"
|
| 48 | (("gtk-update-icon-cache") "true"))
|
| 49 | #t)))))
|
| 50 | (inputs
|
| 51 | (list gtk+))
|
| 52 | (native-inputs
|
| 53 | (list intltool pkg-config))
|
| 54 | (home-page "https://www.gnu.org/software/gxmessage/")
|
| 55 | (synopsis "Open popup message window with buttons for return")
|
| 56 | (description "GNU gxmessage is a program that pops up dialog windows, which display
|
| 57 | a message to the user and waits for their action. The program then exits
|
| 58 | with an exit code corresponding to the response.")
|
| 59 | (license gpl3+)))
|