Use "normalized codesets" everywhere.
In other words, change "xx_YY.UTF-8" to "xx_YY.utf8". * guix/profiles.scm (ca-certificate-bundle): Use "en_US.utf8" instead of "en_US.UTF-8". * guix/packages.scm (patch-and-repack): Likewise. * guix/build/gnu-build-system.scm (install-locale): Likewise. * guix/build-system/gnu.scm (gnu-build, gnu-cross-build): Likewise. * gnu/packages/python.scm (python-ipython): Likewise. * gnu/packages/gawk.scm (gawk): Likewise. * build-aux/hydra/demo-os.scm: Likewise. * gnu/packages/guile.scm (guile-ncurses)[arguments]: Remove 'change-locale' phase.
This commit is contained in:
		
							parent
							
								
									8a55e217ad
								
							
						
					
					
						commit
						afd3d9316c
					
				
					 8 changed files with 20 additions and 28 deletions
				
			
		| 
						 | 
				
			
			@ -1,5 +1,5 @@
 | 
			
		|||
;;; GNU Guix --- Functional package management for GNU
 | 
			
		||||
;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org>
 | 
			
		||||
;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
 | 
			
		||||
;;;
 | 
			
		||||
;;; This file is part of GNU Guix.
 | 
			
		||||
;;;
 | 
			
		||||
| 
						 | 
				
			
			@ -29,7 +29,7 @@
 | 
			
		|||
(operating-system
 | 
			
		||||
 (host-name "gnu")
 | 
			
		||||
 (timezone "Europe/Paris")
 | 
			
		||||
 (locale "en_US.UTF-8")
 | 
			
		||||
 (locale "en_US.utf8")
 | 
			
		||||
 | 
			
		||||
 (bootloader (grub-configuration
 | 
			
		||||
              (device "/dev/sda")))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -66,7 +66,7 @@
 | 
			
		|||
                   (setenv "GUIX_LOCPATH" (getcwd))
 | 
			
		||||
                   (zero? (system* "localedef" "--no-archive"
 | 
			
		||||
                                   "--prefix" (getcwd) "-i" "en_US"
 | 
			
		||||
                                   "-f" "UTF-8" "./en_US.UTF-8")))
 | 
			
		||||
                                   "-f" "UTF-8" "./en_US.utf8")))
 | 
			
		||||
                 %standard-phases))))
 | 
			
		||||
   (inputs `(("libsigsegv" ,libsigsegv)
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -295,25 +295,17 @@ many readers as needed).")
 | 
			
		|||
                               (string-append "--with-guilesitedir="
 | 
			
		||||
                                              (assoc-ref %outputs "out")
 | 
			
		||||
                                              "/share/guile/site/2.0"))
 | 
			
		||||
       #:phases (alist-cons-before
 | 
			
		||||
                 'check 'change-locale
 | 
			
		||||
                 (lambda _
 | 
			
		||||
                   ;; Use the locale that's actually available in the build
 | 
			
		||||
                   ;; environment.
 | 
			
		||||
                   (substitute* "test/f009_form_wide.test"
 | 
			
		||||
                     (("en_US\\.utf8")
 | 
			
		||||
                      "en_US.UTF-8")))
 | 
			
		||||
                 (alist-cons-after
 | 
			
		||||
                  'install 'post-install
 | 
			
		||||
                  (lambda* (#:key outputs #:allow-other-keys)
 | 
			
		||||
                    (let* ((out   (assoc-ref outputs "out"))
 | 
			
		||||
                           (dir   (string-append out "/share/guile/site/"))
 | 
			
		||||
                           (files (find-files dir ".scm")))
 | 
			
		||||
                      (substitute* files
 | 
			
		||||
                        (("\"libguile-ncurses\"")
 | 
			
		||||
                         (format #f "\"~a/lib/libguile-ncurses\""
 | 
			
		||||
                                 out)))))
 | 
			
		||||
                  %standard-phases))))
 | 
			
		||||
       #:phases (alist-cons-after
 | 
			
		||||
                 'install 'post-install
 | 
			
		||||
                 (lambda* (#:key outputs #:allow-other-keys)
 | 
			
		||||
                   (let* ((out   (assoc-ref outputs "out"))
 | 
			
		||||
                          (dir   (string-append out "/share/guile/site/"))
 | 
			
		||||
                          (files (find-files dir ".scm")))
 | 
			
		||||
                     (substitute* files
 | 
			
		||||
                       (("\"libguile-ncurses\"")
 | 
			
		||||
                        (format #f "\"~a/lib/libguile-ncurses\""
 | 
			
		||||
                                out)))))
 | 
			
		||||
                 %standard-phases)))
 | 
			
		||||
    (home-page "http://www.gnu.org/software/guile-ncurses/")
 | 
			
		||||
    (synopsis "Guile bindings to ncurses")
 | 
			
		||||
    (description
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -3665,7 +3665,7 @@ cluster without needing to write any wrapper code yourself.")
 | 
			
		|||
                   (man1 (string-append data "/man/man1"))
 | 
			
		||||
                   (info (string-append data "/info"))
 | 
			
		||||
                   (examples (string-append doc "/examples")))
 | 
			
		||||
              (setenv "LANG" "en_US.UTF-8")
 | 
			
		||||
              (setenv "LANG" "en_US.utf8")
 | 
			
		||||
              (with-directory-excursion "docs"
 | 
			
		||||
                ;; FIXME: html and pdf fail to build
 | 
			
		||||
                ;; (system* "make" "html")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -287,7 +287,7 @@ standard packages used as implicit inputs of the GNU build system."
 | 
			
		|||
                                          "bin" "sbin"))
 | 
			
		||||
                    (validate-runpath? #t)
 | 
			
		||||
                    (phases '%standard-phases)
 | 
			
		||||
                    (locale "en_US.UTF-8")
 | 
			
		||||
                    (locale "en_US.utf8")
 | 
			
		||||
                    (system (%current-system))
 | 
			
		||||
                    (build (nix-system->gnu-triplet system))
 | 
			
		||||
                    (imported-modules %gnu-build-system-modules)
 | 
			
		||||
| 
						 | 
				
			
			@ -422,7 +422,7 @@ is one of `host' or `target'."
 | 
			
		|||
                                                "bin" "sbin"))
 | 
			
		||||
                          (validate-runpath? #t)
 | 
			
		||||
                          (phases '%standard-phases)
 | 
			
		||||
                          (locale "en_US.UTF-8")
 | 
			
		||||
                          (locale "en_US.utf8")
 | 
			
		||||
                          (system (%current-system))
 | 
			
		||||
                          (build (nix-system->gnu-triplet system))
 | 
			
		||||
                          (imported-modules %gnu-build-system-modules)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -99,7 +99,7 @@
 | 
			
		|||
  #t)
 | 
			
		||||
 | 
			
		||||
(define* (install-locale #:key
 | 
			
		||||
                         (locale "en_US.UTF-8")
 | 
			
		||||
                         (locale "en_US.utf8")
 | 
			
		||||
                         (locale-category LC_ALL)
 | 
			
		||||
                         #:allow-other-keys)
 | 
			
		||||
  "Try to install LOCALE; emit a warning if that fails.  The main goal is to
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -478,7 +478,7 @@ IMPORTED-MODULES specify modules to use/import for use by SNIPPET."
 | 
			
		|||
            ;; First of all, install a UTF-8 locale so that UTF-8 file names
 | 
			
		||||
            ;; are correctly interpreted.  During bootstrap, LOCALES is #f.
 | 
			
		||||
            (setenv "LOCPATH" (string-append #+locales "/lib/locale"))
 | 
			
		||||
            (setlocale LC_ALL "en_US.UTF-8"))
 | 
			
		||||
            (setlocale LC_ALL "en_US.utf8"))
 | 
			
		||||
 | 
			
		||||
          (setenv "PATH" (string-append #+xz "/bin" ":"
 | 
			
		||||
                                        #+decomp "/bin"))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -576,7 +576,7 @@ MANIFEST.  Single-file bundles are required by programs such as Git and Lynx."
 | 
			
		|||
        (setenv "LOCPATH"
 | 
			
		||||
                (string-append #+glibc-utf8-locales "/lib/locale/"
 | 
			
		||||
                               #+(package-version glibc-utf8-locales)))
 | 
			
		||||
        (setlocale LC_ALL "en_US.UTF-8")
 | 
			
		||||
        (setlocale LC_ALL "en_US.utf8")
 | 
			
		||||
 | 
			
		||||
        (match (append-map ca-files '#$(manifest-inputs manifest))
 | 
			
		||||
          (()
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue