;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2024 Ludovic Courtès <ludo@gnu.org>
;;;
;;; 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/>.

;; This manifest "ungrafts" all the currently grafted packages and returns
;; said packages and all their dependents.

(use-modules (guix diagnostics)
             (guix i18n)
             (guix packages)
             (guix profiles)
             (guix store)
             ((guix scripts build) #:select (dependents))
             ((gnu packages) #:select (all-packages))
             (srfi srfi-1))

(define (grafted-packages)
  (info (G_ "enumerating grafted packages...~%"))
  (let ((result (filter package-replacement (all-packages))))
    (info (G_ "found ~d grafted packages:~{ ~a~}~%")
          (length result) (map package-full-name result))
    result))

(manifest
 (with-store store
   (let* ((grafted (grafted-packages))
          (ungraft-all (package-input-rewriting
                        (map (lambda (package)
                               `(,package . ,(package-replacement package)))
                             grafted))))
     (map (lambda (package)
            (manifest-entry
              (inherit (package->manifest-entry (ungraft-all package)))
              (name (string-append (package-name package) "-ungrafted"))))
          (dependents store grafted)))))
t' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=d41e9ce19478143883c2c81d9d1bbac6d4e6760a'>root</a>/<a href='/guix/log/gnu?id=d41e9ce19478143883c2c81d9d1bbac6d4e6760a'>gnu</a>/<a href='/guix/log/gnu/packages?id=d41e9ce19478143883c2c81d9d1bbac6d4e6760a'>packages</a>/<a href='/guix/log/gnu/packages/web-browsers.scm?id=d41e9ce19478143883c2c81d9d1bbac6d4e6760a'>web-browsers.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/web-browsers.scm?id=d41e9ce19478143883c2c81d9d1bbac6d4e6760a&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-11-07 10:10:12 +0100'>2024-11-07</span></td><td><a href='/guix/commit/gnu/packages/web-browsers.scm?id=fea85206275f28108cc9cfbce7b2e0d1147abd1e'>gnu: qutebrowser: Update to 3.3.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/web-browsers.scm (qutebrowser): Update to 3.3.1.

Change-Id: I4d346030ae40ddca7a1c4dc9468cfca13642f2e9
Signed-off-by: Andreas Enge &lt;andreas@enge.fr&gt;
</span></span></td><td>Herman Rimm</td></tr>
<tr><td><span title='2024-10-06 02:20:55 +0800'>2024-10-06</span></td><td><a href='/guix/commit/gnu/packages/web-browsers.scm?id=002df8abd2f4d7c5d23febb1459b77c880345ca7'>gnu: vimb: Use G-expressions and cc-for-target.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/web-browsers.scm (vimb)[arguments]: Use G-expressions and
cc-for-target.

Change-Id: I701e9d5d6dc12856d49e5c794a535b966fff7810
</span></span></td><td>Zheng Junjie</td></tr>
<tr><td><span title='2024-10-06 02:17:25 +0800'>2024-10-06</span></td><td><a href='/guix/commit/gnu/packages/web-browsers.scm?id=becf33125309076d99609fa0971a98bda6f1f691'>gnu: vimb: Update to 3.7.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/web-browsers.scm (vimb): Update to 3.7.0.
[arguments]&lt;#:phases&gt;: Add fix-config-mk phase.

Change-Id: Ia89eb9588cd7eeda1bad29cf0d6e33f75ff5970c
Signed-off-by: Zheng Junjie &lt;zhengjunjie@iscas.ac.cn&gt;
</span></span></td><td>unwox via Guix-patches via</td></tr>
<tr><td><span title='2024-09-07 23:58:48 +0800'>2024-09-07</span></td><td><a href='/guix/commit/gnu/packages/web-browsers.scm?id=994095b085a495a364d3df82121a1a303d044548'>gnu: qutebrowser: Update to 3.2.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/web-browser.scm (qutebrowser): Update to 3.2.1.
[source]: Switch to git-fetch.
[native-inputs]: Add asciidoc.

Signed-off-by: Zheng Junjie &lt;zhengjunjie@iscas.ac.cn&gt;
Change-Id: I88fd400ed7152818c6cd899d93f8e033dcce4206
</span></span></td><td>Herman Rimm via Guix-patches via</td></tr>