;;; guix.el --- Interface for GNU Guix package manager

;; Copyright © 2014, 2015 Alex Kost <alezost@gmail.com>

;; Package-Requires: ((geiser "0.3"))
;; Keywords: tools

;; 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 <http://www.gnu.org/licenses/>.

;;; Commentary:

;; This package provides an interface for searching, listing and getting
;; information about Guix packages and generations; and for
;; installing/upgrading/removing packages.

;;; Code:

(require 'guix-base)
(require 'guix-list)
(require 'guix-info)
(require 'guix-utils)
(require 'guix-read)

(defgroup guix nil
  "Interface for Guix package manager."
  :prefix "guix-"
  :group 'external)

(defgroup guix-faces nil
  "Guix faces."
  :group 'guix
  :group 'faces)

(defcustom guix-list-single-package nil
  "If non-nil, list a package even if it is the only matching result.
If nil, show a single package in the info buffer."
  :type 'boolean
  :group 'guix)

(defvar guix-search-params '(name synopsis description)
  "Default list of package parameters for searching by regexp.")

(defvar guix-search-history nil
  "A history of minibuffer prompts.")

(defun guix-get-show-packages (profile search-type &rest search-vals)
  "Search for packages and show results.

If PROFILE is nil, use `guix-current-profile'.

See `guix-get-entries' for the meaning of SEARCH-TYPE and
SEARCH-VALS.

Results are displayed in the list buffer, unless a single package
is found and `guix-list-single-package' is nil."
  (or profile (setq profile guix-current-profile))
  (let ((packages (guix-get-entries profile guix-package-list-type
                                    search-type search-vals
                                    (guix-get-params-for-receiving
                                     'list guix-package-list-type))))
    (if (or guix-list-single-package
            (cdr packages))
        (guix-set-buffer profile packages 'list guix-package-list-type
                         search-type search-vals)
      (let ((packages (guix-get-entries profile guix-package-info-type
                                        search-type search-vals
                                        (guix-get-params-for-receiving
                                         'info guix-package-info-type))))
        (guix-set-buffer profile packages 'info guix-package-info-type
                         search-type search-vals)))))

(defun guix-get-show-generations (profile search-type &rest search-vals)
  "Search for generations and show results.

If PROFILE is nil, use `guix-current-profile'.

See `guix-get-entries' for the meaning of SEARCH-TYPE and
SEARCH-VALS."
  (apply #'guix-get-show-entries
         (or profile guix-current-profile)
         'list 'generation search-type search-vals))

;;;###autoload
(defun guix-search-by-name (name &op<tr class='logheader'><td><span title='2024-07-18 10:45:36 +0800'>2024-07-18</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=2f10c8d2448dcdc1c8c62294ec818616ee943a70'>gnu: Remove kactivities-stats.</a></td><td>Zheng Junjie</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/kde-frameworks.scm (kactivities-stats): Delete variable.

Change-Id: Icac701065a950f8728ef79a47bf49035d4d8f4ab


</td></tr>
<tr class='logheader'><td><span title='2024-07-18 10:45:36 +0800'>2024-07-18</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=0d7acce60dde7f1906016e3ad8099bfd05c5b9db'>gnu: khtml: Update to 5.116.0.</a></td><td>Zheng Junjie</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/kde-frameworks.scm (khtml): Update to 5.116.0.
[inputs]: Remove karchive, kcodecs, kglobalaccel, ki18n, kiconthemes, kio,
knotifications, kparts, ktextwidgets, kwallet, kwidgetsaddons,
kwindowsystem, kxmlgui, and sonnet; add karchive-5, kcodecs-5,
kglobalaccel-5, ki18n-5, kiconthemes-5, kio-5, knotifications-5,
kparts-5, ktextwidgets-5, kwallet-5, kwidgetsaddons-5,
kwindowsystem-5, kxmlgui-5, and sonnet-5.

Change-Id: I521e76eefa5a77a357c8baff61634ffe9ce44ba8


</td></tr>
<tr class='logheader'><td><span title='2024-07-18 10:45:36 +0800'>2024-07-18</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=559e576801e070c4715eb48968233a2c6a5f73d3'>gnu: kjs: Update to 5.116.0.</a></td><td>Zheng Junjie</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/kde-frameworks.scm (kjs): Update to 5.116.0.

Change-Id: If44a3cdb167f80b85b42d98f5bb2912b3dd3ea89


</td></tr>
<tr class='logheader'><td><span title='2024-07-18 10:45:36 +0800'>2024-07-18</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=b56ce6d9f395145356556c5299afe5c10c638282'>gnu: kemoticons: Update to 5.116.0.</a></td><td>Zheng Junjie</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/kde-frameworks.scm (kemoticons): Update to 5.116.0.
[inputs]: Remove karchive, kconfig, and kcoreaddons; add karchive-5,
kconfig-5, and kcoreaddons-5.
[propagated-inputs]: Remove kservice; add kservice-5.

Change-Id: Ia5e23fb19bb26244a66a6cfe2a3f48e60a961841


</td></tr>
<tr class='logheader'><td><span title='2024-07-18 10:45:36 +0800'>2024-07-18</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=7db116a322d3e54290eb853beb48e671fe4a888c'>gnu: Add kimageformats-5.</a></td><td>Zheng Junjie</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/kde-frameworks.scm (kimageformats-5): New variable.

Change-Id: I151594513fde3f38d6f4858f938128878e1cacee


</td></tr>
<tr class='logheader'><td><span title='2024-07-18 10:45:35 +0800'>2024-07-18</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=bd4e66579880c84949bbd61c741385623bee59e1'>gnu: Remove kross.</a></td><td>Zheng Junjie</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/kde-frameworks.scm (kross): Delete variable.

Change-Id: Iaf72d16811e2b16e3ed25513f56e9d540d60da03


</td></tr>
<tr class='logheader'><td><span title='2024-07-18 10:45:34 +0800'>2024-07-18</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=b0f61948bd603533f116f0d32255b0125ef8d6ce'>gnu: Remove kmediaplayer.</a></td><td>Zheng Junjie</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/kde-frameworks.scm (kmediaplayer): Delete variable.

Change-Id: I4adc8c6193e1adfd6614c349e0363d20630e8246


</td></tr>
<tr class='logheader'><td><span title='2024-07-18 10:45:34 +0800'>2024-07-18</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=6401e82a936be5e79283efdb9b5c770dadc07006'>gnu: Remove kjsembed.</a></td><td>Zheng Junjie</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/kde-frameworks.scm (k