01/01: gnu: Add xclock.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit ff75441fcf0ba1212b0342f933a8999bafe60f03
Author: Yoshinori Arai <address@hidden>
Date:   Thu Jan 31 11:55:01 2019 +0900

    gnu: Add xclock.
    
    * gnu/packages/xorg.scm (xclock): New variable.
    
    Signed-off-by: Marius Bakke <address@hidden>
---
 gnu/packages/xorg.scm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index a43dfe8..bf7a405 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -19,6 +19,7 @@
 ;;; Copyright © 2018 Oleg Pykhalov <address@hidden>
 ;;; Copyright © 2018 Benjamin Slade <address@hidden>
 ;;; Copyright © 2019 nee <address@hidden>
+;;; Copyright © 2019 Yoshinori Arai <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -5724,6 +5725,37 @@ user-friendly mechanism to start the X server.")
 Intrinsics (Xt) Library.")
     (license license:x11)))
 
+(define-public xclock
+  (package
+    (name "xclock")
+    (version "1.0.7")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://www.x.org/releases/individual/app/";
+                           name "-" version ".tar.bz2"))
+       (sha256
+        (base32 "1l3xv4bsca6bwxx73jyjz0blav86i7vwffkhdb1ac81y9slyrki3"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:configure-flags
+       (list (string-append "--with-appdefaultdir="
+                            %output ,%app-defaults-dir))))
+    (inputs
+     `(("libxmu" ,libxmu)
+       ("libx11" ,libx11)
+       ("libxaw" ,libxaw)
+       ("libxrender" ,libxrender)
+       ("libxft" ,libxft)
+       ("libxkbfile" ,libxkbfile)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (home-page "https://www.x.org/";)
+    (synopsis "Analog / digital clock for X")
+    (description "The xclock program displays the time in analog or digital
+form.")
+    (license (license:x11-style "file://COPYING" "See COPYING for details."))))
+
 (define-public xmag
   (package
     (name "xmag")