;;; guix-license.el --- Licenses ;; Copyright © 2016 Alex Kost ;; 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 this program. If not, see . ;;; Commentary: ;; This file provides the code to work with licenses of Guix packages. ;;; Code: (require 'guix-read) (require 'guix-backend) (require 'guix-guile) (defun guix-license-file (&optional directory) "Return name of the file with license definitions. DIRECTORY is a directory with Guix source (`guix-directory' by default)." (expand-file-name "guix/licenses.scm" (or directory guix-directory))) (defun guix-lookup-license-url (license) "Return URL of a LICENSE." (or (guix-eval-read (guix-make-guile-expression 'lookup-license-uri license)) (error "Hm, I don't know URL of '%s' license" license))) ;;;###autoload (defun guix-find-license-definition (license &optional directory) "Open licenses file from DIRECTORY and move to the LICENSE definition. See `guix-license-file' for the meaning of DIRECTORY. Interactively, with prefix argument, prompt for DIRECTORY." (interactive (list (guix-read-license-name) (guix-read-directory))) (find-file (guix-license-file directory)) (goto-char (point-min)) (when (re-search-forward (concat "\"" (regexp-quote license) "\"") nil t) (beginning-of-defun) (recenter 1))) ;;;###autoload (defun guix-browse-license-url (license) "Browse URL of a LICENSE." (interactive (list (guix-read-license-name))) (browse-url (guix-lookup-license-url license))) (provide 'guix-license) ;;; guix-license.el ends here 257c213e0fba'>nix-daemon
AgeCommit message (Expand)Author
2023-12-11daemon: Implement ‘substitute-urls’ RPC....* nix/libstore/worker-protocol.hh (PROTOCOL_VERSION): Bump. (WorkerOp): Add ‘wopSubstituteURLs’. * nix/nix-daemon/nix-daemon.cc (performOp): Implement it. * guix/store.scm (%protocol-version): Bump. (operation-id): Add ‘substitute-urls’. (substitute-urls): New procedure. * tests/store.scm ("substitute-urls, default") ("substitute-urls, client-specified URLs") ("substitute-urls, disabled"): New tests. Change-Id: I2c0119500c3a1eecfa5ebf32463ffb0f173161de Ludovic Courtès
2022-04-14daemon: Support systemd-style socket activation....* nix/nix-daemon/guix-daemon.cc (SD_LISTEN_FDS_START): New macro. (systemd_activation_sockets): New function. (main): Use it. Remove obsolete 'printMsg' call. * doc/guix.texi (Invoking guix-daemon): Document socket activation. Ludovic Courtès