From: Ricardo Wurmus <rekado@elephly.net>
To: guix-devel@gnu.org
Subject: [PATCH 2/2] profiles: Build GTK+ input module cache.
Date: Thu, 22 Sep 2016 22:28:27 +0200 [thread overview]
Message-ID: <20160922202827.22039-2-rekado@elephly.net> (raw)
In-Reply-To: <20160922202827.22039-1-rekado@elephly.net>
* guix/profiles.scm (gtk-im-modules): New procedure.
(%default-profile-hooks): Add it.
---
guix/profiles.scm | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 63 insertions(+)
diff --git a/guix/profiles.scm b/guix/profiles.scm
index 78deeb7..1a522ae 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -723,6 +723,68 @@ creates the GTK+ 'icon-theme.cache' file for each theme."
#:substitutable? #f)
(return #f))))
+(define (gtk-im-modules manifest)
+ "Return a derivation that builds the cache files for input method modules
+for both major versions of GTK+."
+
+ (mlet %store-monad ((gtk+ (manifest-lookup-package manifest "gtk+" "3"))
+ (gtk+-2 (manifest-lookup-package manifest "gtk+" "2")))
+
+ (define (build gtk gtk-version)
+ (let ((major (string-take gtk-version 1)))
+ (with-imported-modules '((guix build utils)
+ (guix build union)
+ (guix build profiles)
+ (guix search-paths)
+ (guix records))
+ #~(begin
+ (use-modules (guix build utils)
+ (guix build union)
+ (guix build profiles)
+ (ice-9 popen)
+ (srfi srfi-26))
+
+ (let* ((prefix (string-append "/lib/gtk-" #$major ".0/"
+ #$gtk-version))
+ (query (string-append #$gtk "/bin/gtk-query-immodules-"
+ #$major ".0"))
+ (destdir (string-append #$output prefix))
+ (moddirs (cons (string-append #$gtk prefix "/immodules")
+ (filter file-exists?
+ (map (cut string-append <> prefix "/immodules")
+ '#$(manifest-inputs manifest))))))
+
+ ;; Union all the gtk immodules directories.
+ (mkdir-p (string-append #$output "/lib/gtk-" #$major ".0"))
+ (union-build destdir moddirs #:log-port (%make-void-port "w"))
+
+ ;; Generate a new 'immodules.cache' file.
+ (let ((pipe (apply open-pipe*
+ OPEN_READ query
+ (map readlink (find-files destdir "\\.so$"))))
+ (outfile (string-append #$output prefix
+ "/immodules-gtk" #$major ".cache")))
+ (dynamic-wind
+ (const #t)
+ (lambda ()
+ (call-with-output-file outfile
+ (lambda (out)
+ (while (not (eof-object? (peek-char pipe)))
+ (write-char (read-char pipe) out))))
+ #t)
+ (lambda ()
+ (close-pipe pipe)))))))))
+
+ ;; Don't run the hook when there's nothing to do.
+ (let ((gexp #~(begin
+ #$(if gtk+ (build gtk+ "3.0.0") #t)
+ #$(if gtk+-2 (build gtk+-2 "2.10.0") #t))))
+ (if (or gtk+ gtk+-2)
+ (gexp->derivation "gtk-im-modules" gexp
+ #:local-build? #t
+ #:substitutable? #f)
+ (return #f)))))
+
(define (xdg-desktop-database manifest)
"Return a derivation that builds the @file{mimeinfo.cache} database from
desktop files. It's used to query what applications can handle a given
@@ -844,6 +906,7 @@ files for the truetype fonts of the @var{manifest} entries."
ghc-package-cache-file
ca-certificate-bundle
gtk-icon-themes
+ gtk-im-modules
xdg-desktop-database
xdg-mime-database))
--
2.10.0
next prev parent reply other threads:[~2016-09-22 20:28 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-09-22 20:28 [PATCH 1/2] profiles: manifest-lookup-package: Optionally match version prefix Ricardo Wurmus
2016-09-22 20:28 ` Ricardo Wurmus [this message]
2016-09-25 11:25 ` [PATCH 2/2] profiles: Build GTK+ input module cache 宋文武
2016-09-26 5:56 ` Ricardo Wurmus
2016-09-26 11:04 ` Ludovic Courtès
2016-10-30 7:05 ` Ricardo Wurmus
2016-09-26 10:41 ` [PATCH 1/2] profiles: manifest-lookup-package: Optionally match version prefix Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20160922202827.22039-2-rekado@elephly.net \
--to=rekado@elephly.net \
--cc=guix-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.