gnu: Use HTTPS for archive.xfce.org sources. - guix - Wojtek's customized Guix

about summary refs log tree commit diff

path: root/po/doc/local.mk

diff options

author	Tobias Geerinckx-Rice <me@tobias.gr>	2020-03-10 23:15:07 +0100
committer	Tobias Geerinckx-Rice <me@tobias.gr>	2020-03-11 00:13:56 +0100
commit	d518851710abeb0e8bd4374c9836ac7ad7752186 (patch)
tree	1ad8abd1ce168d5653584bb9b2f294cedf24ac5f /po/doc/local.mk
parent	19153f2915dadc1f2a5c507cb8cf42ec1b1ffe1c (diff)
download	guix-d518851710abeb0e8bd4374c9836ac7ad7752186.tar.gz guix-d518851710abeb0e8bd4374c9836ac7ad7752186.zip

gnu: Use HTTPS for archive.xfce.org sources.

* gnu/packages/xfce.scm (gtk-xfce-engine, xfce4-xkb-plugin) (xfce4-settings, thunar, ristretto, orage, xfburn, mousepad) (xfce4-screenshooter, xfce4-screensaver, xfce4-cpugraph-plugin) (xfce4-eyes-plugin, xfce4-equake-plugin, xfce4-datetime-plugin) (xfce4-calculator-plugin, xfce4-cpufreq-plugin, xfce4-diskperf-plugin) (xfce4-embed-plugin, xfce4-fsguard-plugin, xfce4-genmon-plugin) (xfce4-kbdleds-plugin, xfce4-mailwatch-plugin, xfce4-mpc-plugin) (xfce4-mount-plugin, xfce4-netload-plugin, xfce4-places-plugin) (xfce4-smartbookmark-plugin, xfce4-statusnotifier-plugin) (xfce4-stopwatch-plugin, xfce4-systemload-plugin) (xfce4-time-out-plugin, xfce4-timer-plugin, xfce4-verve-plugin) (xfce4-wavelan-plugin, xfce4-weather-plugin))[source]: Use HTTPS.

Diffstat (limited to 'po/doc/local.mk')

0 files changed, 0 insertions, 0 deletions

e-modules (ice-9 match) (ice-9 threads) (srfi srfi-1) (guix build compile) (guix build utils)) (define host (getenv "host")) (define srcdir (getenv "srcdir")) (define (relative-file file) (if (string-prefix? (string-append srcdir "/") file) (string-drop file (+ 1 (string-length srcdir))) file)) (define (file-mtime<? f1 f2) (< (stat:mtime (stat f1)) (stat:mtime (stat f2)))) (define (scm->go file) (let* ((relative (relative-file file)) (without-extension (string-drop-right relative 4))) (string-append without-extension ".go"))) (define (file-needs-compilation? file) (let ((go (scm->go file))) (or (not (file-exists? go)) (file-mtime<? go file)))) (define* (parallel-job-count #:optional (flags (getenv "MAKEFLAGS"))) "Return the number of parallel jobs as determined by FLAGS, the flags passed to 'make'." (match flags (#f (current-processor-count)) (flags (let ((initial-flags (string-tokenize flags))) (let loop ((flags initial-flags)) (match flags (() ;; Note: GNU make prior to version 4.2 would hide "-j" flags from ;; $MAKEFLAGS. Thus, check for a "--jobserver" flag here and ;; assume we're using all cores if specified. (if (any (lambda (flag) (string-prefix? "--jobserver" flag)) initial-flags) (current-processor-count) ;GNU make < 4.2 1)) ;sequential make (("-j" (= string->number count) _ ...) (if (integer? count) count (current-processor-count))) ((head tail ...) (if (string-prefix? "-j" head) (match (string-drop head 2) ("" (current-processor-count)) ((= string->number count) (if (integer? count) count (current-processor-count)))) (loop tail))))))))) ;; Install a SIGINT handler to give unwind handlers in 'compile-file' an ;; opportunity to run upon SIGINT and to remove temporary output files. (sigaction SIGINT (lambda args (exit 1))) (match (command-line) ((_ . files) (compile-files srcdir (getcwd) (filter file-needs-compilation? files) #:workers (parallel-job-count) #:host host #:report-load (lambda (file total completed) (when file (format #t " LOAD ~a~%" file) (force-output))) #:report-compilation (lambda (file total completed) (when file (format #t " GUILEC ~a~%" (scm->go file)) (force-output))))))