Hello, > I think you mean inkscape is pulled when you build the system. Then you > will not find it like this. It is needed to build the fancy grub image, > and it is "pulled" by the system building code (specifically by > 'svg->png' procedure in (gnu system grub) module). If you want to avoid > it, you can specify an "empty" theme for example: > > (bootloader (grub-configuration (device "/dev/sda") > (theme (grub-theme))))
Thanks for that information, that was what I wanted to know (both the where does it come from, and the how to avoid it being pulled in) I think a "guix revdep $PKG" should be a valuable tool it should work: 1 - globally in the list of defined packages 2 - locally in the list of packages from the current user's profile 3 - systemly, from the list of installed packages in the system profile I'm trying Eric's suggestion (thanks Eric), and that seems to do 1, I need a way to modify it to do the other 2... (see the attached script) WDYT ? -- Vincent Legoll
;;; GNU Guix --- Functional package management for GNU ;;; Copyright <C2><A9> 2016 Vincent Legoll <vincent.leg...@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (use-modules (guix packages) (gnu packages) (srfi srfi-1) (srfi srfi-26) (ice-9 getopt-long)) (define (revdep pkg) (fold-packages (lambda (package _) (when (any (cut eq? <> (specification->package pkg)) (map second (package-direct-inputs package))) (format #t "~a depends on ~a~%" (package-full-name package) pkg))) #t)) (define (main args) (let* ((option-spec '((version (single-char #\v) (value #f)) (help (single-char #\h) (value #f)))) (options (getopt-long args option-spec)) (help-wanted (option-ref options 'help #f)) (version-wanted (option-ref options 'version #f)) (pkgs (option-ref options '() #f))) (if (or version-wanted help-wanted) (begin (if version-wanted (display "revdep.scm version 0.1\n")) (if help-wanted (display "\ revdev.scm [options|package names] -v, --version Display version -h, --help Display this help\n"))) (map revdep pkgs)))) (main (command-line))
