diff options
| author | 宋文武 <iyzsong@gmail.com> | 2015-09-11 20:09:40 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2015-09-11 20:24:30 +0800 |
| commit | f47fbeb23aa9bafb8b60ab753a2943134fb08297 (patch) | |
| tree | bee9e52d15e0b677c39bce55c253fabcca479b35 /guix/build/glib-or-gtk-build-system.scm | |
| parent | a1d5a6f913727f41a7ebb26635b1eaa255db0b73 (diff) | |
| download | gnu-guix-f47fbeb23aa9bafb8b60ab753a2943134fb08297.tar gnu-guix-f47fbeb23aa9bafb8b60ab753a2943134fb08297.tar.gz | |
build-system/glib-or-gtk: Don't generate 'icon-theme.cache'.
* guix/build-system/glib-or-gtk.scm (default-gtk+): Remove.
(lower): Adjust accordingly.
* guix/build/glib-or-gtk-build-system.scm (generate-icon-cache): Remove.
(%standard-phases): Remove 'glib-or-gtk-icon-cache' phase.
Diffstat (limited to 'guix/build/glib-or-gtk-build-system.scm')
| -rw-r--r-- | guix/build/glib-or-gtk-build-system.scm | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/guix/build/glib-or-gtk-build-system.scm b/guix/build/glib-or-gtk-build-system.scm index 15d7de2236..b6291e735b 100644 --- a/guix/build/glib-or-gtk-build-system.scm +++ b/guix/build/glib-or-gtk-build-system.scm @@ -213,37 +213,9 @@ if needed." #t)))) outputs)) -(define* (generate-icon-cache #:key outputs #:allow-other-keys) - "Implement phase \"glib-or-gtk-icon-cache\": generate icon cache if -needed." - (every (match-lambda - ((output . directory) - (let ((iconsdir (string-append directory - "/share/icons"))) - (when (file-exists? iconsdir) - (with-directory-excursion iconsdir - (for-each - (lambda (dir) - (unless (file-exists? - (string-append iconsdir "/" dir "/" - "icon-theme.cache")) - (system* "gtk-update-icon-cache" - "--ignore-theme-index" - (string-append iconsdir "/" dir)))) - (scandir "." - (lambda (name) - (and - (not (equal? name ".")) - (not (equal? name "..")) - (equal? 'directory - (stat:type (stat name))))))))) - #t))) - outputs)) - (define %standard-phases (modify-phases gnu:%standard-phases (add-after 'install 'glib-or-gtk-compile-schemas compile-glib-schemas) - (add-after 'install 'glib-or-gtk-icon-cache generate-icon-cache) (add-after 'install 'glib-or-gtk-wrap wrap-all-programs))) (define* (glib-or-gtk-build #:key inputs (phases %standard-phases) |