Subject: Add package definition for screen message

From: Ton <[email-masked]>
Date: Wed, 28 Mar 2018 15:46:19 +0200

Here is the package definition for screen message. A simple program to fill
your screen with text input either as an argument to the program or input
during execution.

Built and tested on GuixSD Linux merlin 4.15.8-gnu #1 SMP 1 x86_64 GNU/Linux.

It passes guix lint without errors.

It builds 5 times deterministicly.

Guix size says "total: 568.0 MiB"
From c6ddc41853ff22acb3923b221b8530a057875253 Mon Sep 17 00:00:00 2001
From: Tonton <[email-masked]>
Date: Wed, 28 Mar 2018 15:45:07 +0200
Subject: [PATCH] Add package definition screen message

Built and tested on GuixSD Linux merlin 4.15.8-gnu #1 SMP 1 x86_64 GNU/Linux.

It passes guix lint without errors.

It builds 5 times deterministicly.

Guix size says "total: 568.0 MiB"
---
 gnu/packages/screen-message.scm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 gnu/packages/screen-message.scm

diff --git a/gnu/packages/screen-message.scm b/gnu/packages/screen-message.scm
new file mode 100644
index 000000000..6afd18aae
--- /dev/null
+++ b/gnu/packages/screen-message.scm
@@ -0,0 +1,36 @@
+(define-module (screen-message)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages glib))
+
+(define-public screen-message
+  (package
+    (name "screen-message")
+    (version "0.25")
+    (source (origin
+              (method url-fetch)
+              (uri
+               (string-append
+                "http://www.joachim-breitner.de/archive/screen-message/screen-message-"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "1lw955qq5pq010lzmaf32ylj2iprgsri9ih4hx672c3f794ilab0"))))
+    (build-system gnu-build-system)
+    (inputs `(("gtk3" ,gtk+)
+              ("gdk" ,gdk-pixbuf)
+              ("pango" ,pango)))
+    (native-inputs `(("pkgconfig" ,pkg-config)))
+    (arguments
+     `(#:make-flags (list (string-append "execgamesdir=" %output "/bin"))))
+    (synopsis "Prints messages on your screen")
+    (description "If you just want to disply a word or a short, possilby
+multi-line, text as large and as quickly as possible on your screen,
+then “screen-message” is the right tool for you.")
+    (home-page "http://www.joachim-breitner.de/projects#screen-message")
+    (license license:gpl2+)))
+
-- 
2.16.3