[bug#39086] [PATCH 2/5] gnu: Add unicode-emoji.

[Leo Prikler <leo.prikler@student.tugraz.at>]

* gnu/packages/ibus.scm (unicode-emoji): New package.
---
 gnu/packages/ibus.scm | 59 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)

diff --git a/gnu/packages/ibus.scm b/gnu/packages/ibus.scm
index 512a1ff9ec..3d582fb935 100644
--- a/gnu/packages/ibus.scm
+++ b/gnu/packages/ibus.scm
@@ -30,6 +30,7 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (guix build-system glib-or-gtk)
+  #:use-module (guix build-system trivial)
   #:use-module (guix utils)
   #:use-module (gnu packages)
   #:use-module (gnu packages anthy)
@@ -55,6 +56,64 @@
   #:use-module (gnu packages textutils)
   #:use-module (gnu packages xorg))
 
+(define-public unicode-emoji
+  (package
+    (name "unicode-emoji")
+    (version "12.0")
+    (source #f)
+    (build-system trivial-build-system)
+    (arguments
+     `(#:modules ((guix build utils))
+       #:builder
+       (let ((out (string-append %output "/share/unicode/emoji")))
+         (use-modules (guix build utils))
+         (mkdir-p out)
+         (for-each
+          (lambda (input)
+            (copy-file
+             (cdr input)
+             (string-append out "/"
+                            (substring (car input) 8) ; strip "unicode-"
+                            ".txt")))
+          %build-inputs)
+         #t)))
+    (inputs
+     `(("unicode-emoji-data"
+        ,(origin
+           (method url-fetch)
+           (uri "https://www.unicode.org/Public/emoji/12.0/emoji-data.txt")
+           (sha256
+            (base32 "03sf7h1d6kb9m5s02lif88jsi5kjszpkfvcymaqxj8ds70ar9pgv"))))
+       ("unicode-emoji-sequences"
+        ,(origin
+           (method url-fetch)
+           (uri "https://www.unicode.org/Public/emoji/12.0/emoji-sequences.txt")
+           (sha256
+            (base32 "1hghki2rn3n7m4lwpwi2a5wrsf2nij4bxga9ldabx4g0g2k23svs"))))
+       ("unicode-emoji-test"
+        ,(origin
+           (method url-fetch)
+           (uri "https://www.unicode.org/Public/emoji/12.0/emoji-test.txt")
+           (sha256
+            (base32 "1dqd0fh999mh6naj816ni113m9dimfy3ih9nffjq2lrv9mmlgdck"))))
+       ("unicode-emoji-variation-sequences"
+        ,(origin
+           (method url-fetch)
+           (uri "https://www.unicode.org/Public/emoji/12.0/emoji-variation-sequences.txt")
+           (sha256
+            (base32 "1cccwx5bl79w4c19vi5dhjqxrph92s8hihp9y8s2cqvdzmgbln7a"))))
+       ("unicode-emoji-zwj-sequences"
+        ,(origin
+           (method url-fetch)
+           (uri "https://www.unicode.org/Public/emoji/12.0/emoji-zwj-sequences.txt")
+           (sha256
+            (base32 "1l791nbijmmhwa7kmvfn8gp26ban512l6mgqpz1mnbq3xm19181n"))))))
+    (home-page "https://www.unicode.org")
+    (synopsis "Unicode Emoji data")
+    (description
+     "Data files for the Unicode Technological Standard #51 (Emoji).")
+    (license unicode)))
+
 (define-public ibus
   (package
     (name "ibus")
-- 
2.24.1